[VBA]我程序中的一个问题，弱弱地问！！
以下变量已经定义。inttmp = 0
For inti = 0 To sngSum - 1
If ssetObj.Item(inti).ObjectName = "AcDbCircle" Then
Set ssetCircle = ssetObj.Item(inti)
If ssetCircle.Radius = sngPileD / 2 Then inttmp = inttmp + 1
End If
Next inti
选中部位出错。出错信息如下：
方法“ITEM”作用于对象“IACADSelectionset”时失败。
什么原因？各位大侠。
你的ssetObj声明的是什么东东？是selection吗？selection好像不支持你的Item这种方法吧？用这个：
for each object in ssetObj
XXXXXXXXXXXXXXXXXX
next
页:
[1]