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

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
是不是选择集没有删了啊.你删了试试

cracher 发表于 2007-1-25 16:12:00

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

cracher 发表于 2007-1-25 16:16:00

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

mccad 发表于 2007-1-25 17:35:00

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

查看完整版本: 大家快来帮帮忙吧,关于选择集的问题