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

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

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

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

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

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

发表回复

精选推荐