大家快来帮帮忙吧,关于选择集的问题

cracher · 发表于 2007-1-24 16:02:00

代码是这样的
dim iType(0) as integer
dim vData(0) as Variant
iType(0)=0
vData(0)="LWPOLYLINE"
定义了一个的选择集对象 : acaddAngle3dSect
程序初始化时创建了acaddAngle3dSect对象
这个地方总是在执行一定次数之后出现 '方法'~'作用于'~'对象失败!' 错误,为什么啊!!!!!!
acaddAngle3DSect.Clear
acaddAngle3DSect.Select acSelectionSetAll , , , iType ,vData

wyj7485 · 发表于 2007-1-24 17:31:00

把这句去掉呢acaddAngle3DSect.Clear

cracher · 发表于 2007-1-25 08:50:00

我每次总是要选择一个对象,选择完毕后处理,不Clear就要重新创建一个选择集对象.
而且这样也不行...

fjfhgdwfn · 发表于 2007-1-25 09:11:00

Dim ssetObj As AcadSelectionSet
Dim ssobj As AcadSelectionSet
Dim CONUT As Integer
CONUT = 0
Count = ThisDrawing.SelectionSets.Count
For i = 0 To Count - 1 '删除所有的选择集
Set ssetObj = ThisDrawing.SelectionSets.Item(0)
ssetObj.Delete
Next i
是不是选择集没有删了啊.你删了试试