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：從選擇集中刪除一個或多個項目。 刪除的項目仍然存在，但是它們不再駐留在選擇集中。

上一篇
下一篇