topirol 发表于 2003-6-3 00:05:00

请问选择集的additems方法怎么用

通过选择集的addItems(pSelSet)向选择集里面增加对象，其中pselset参数指什么？可以简单举一个例子说明用法吗？

efan2000 发表于 2003-6-3 12:37:00

AddItems后面的参数是对象数组

Sub Example_AddItems()
    ' 创建选择集
    Dim ssetObj As AcadSelectionSet
    Set ssetObj = ThisDrawing.SelectionSets.Add("TEST_SELECTIONSET")

    ' 将模型空间中的对象加入到对象数组中
    Dim ssobjs() As AcadEntity
    ReDim ssobjs(0 To ThisDrawing.ModelSpace.count - 1)
    Dim I As Integer
    For I = 0 To ThisDrawing.ModelSpace.count - 1
      Set ssobjs(I) = ThisDrawing.ModelSpace.Item(I)
    Next
   
    ' 将对象数组中的实体加入到选择集中
    ssetObj.AddItems ssobjs
End Sub

mccad 发表于 2003-6-3 20:36:00

请参见对象模型

http://www.mjtd.com/object/acad2004/idh_additems.htm
页: [1]
查看完整版本: 请问选择集的additems方法怎么用