SelectionSet

A group of one or more AutoCAD objects specified for processing as a single unit.

Add

Creates a member object and adds it to the appropriate collection.

Dim ssetObj As AcadSelectionSet
Set ssetObj = ThisDrawing.SelectionSets.Add("ssetName")

SelectOnScreen

Prompts the user to pick an object from the screen.

ssetObj.selectOnScreen 

Select

Prompts the user to pick an object from the screen.

Dim mode As Integer
mode = acSelectionSetAll 
    'acSelectionSetWindow
    'acSelectionSetCrossing
    'acSelectionSetPrevious
    'acSelectionSetLast
    'acSelectionSetAll 
ssetObj.Select mode, , , , 

filter
另一章叙述

Dim filtertype(1) As Integer
Dim filterdata(1) As Variant
filtertype(0) = 0:filterdata(0) = "Circle" 
filtertype(1) = 8:filterdata(1) = "0" 
ssetObj.selectOnScreen filtertype, filterdata
'ssetObj.Select mode, , , filtertype, filterdata

Clear / Erase / Delete

'ssetObj.Clear  'count=0, Name=ssetName
'ssetObj.Erase  'count=0, Name=ssetName
                'Delete all members off the model space
'ssetObj.Delete 'null

• Clear：清空选择集。选择集将仍然存在。
• Erase：清空选择集。选择集将仍然存在。图形空间中删除图元。
• Delete：删除选择集。
• RemoveItems：从选择集中删除一个或多个项目。 删除的项目仍然存在，但是它们不再驻留在选择集中。

上一篇
下一篇