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

cracher

代码是这样的

dim iType(0) as integer

dim vData(0) as Variant

iType(0)=0

vData(0)="LWPOLYLINE"

定义了一个AutoCAD的选择集对象 : acaddAngle3dSect

程序初始化时创建了acaddAngle3dSect对象

这个地方总是在执行一定次数之后出现 '方法'~'作用于'~'对象失败!' 错误,为什么啊!!!!!!

acaddAngle3DSect.Clear

acaddAngle3DSect.Select acSelectionSetAll , , , iType ,vData

wyj7485

把这句去掉呢acaddAngle3DSect.Clear

cracher

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

而且这样也不行...

fjfhgdwfn

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

是不是选择集没有删了啊.你删了试试

cracher

我要同时操作多个选择集,不能全部删除的

cracher

找到原因了,我在处理别的选择集,创建时用Rnd函数来生成选择集名称,但Rnd函数在3000-4000之内肯定会出现重复的,所以选择集过多时,会创建失败

mccad

你厉害，需要那么多的选择集，但注意，选择集用完了不及时清理，系统也会变慢的。(虽然你的机器够好)