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

topirol

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

efan2000

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

http://www.mjtd.com/object/acad2004/idh_additems.htm