[VBA]我程序中的一个问题，弱弱地问！！

胡说 · 发表于 2006-1-19 21:22:00

以下变量已经定义。
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”时失败。
什么原因？各位大侠。

xinghesnak · 发表于 2006-1-20 14:49:00

你的ssetObj声明的是什么东东？是selection吗？selection好像不支持你的Item这种方法吧？用这个：
for each object in ssetObj
XXXXXXXXXXXXXXXXXX
next

[VBA]我程序中的一个问题，弱弱地问！！

发表回复

精选推荐