[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”时失败。

什么原因？各位大侠。

xinghesnak

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

for each object in ssetObj

    XXXXXXXXXXXXXXXXXX

next