一個選擇集是一組指定的作為單個單元處理的AutoCAD對象，一個選擇集可以由單個對象組成，也可以是更加復(fù)雜的組，比如在某一層上某一顏色的對象集，用選擇集選擇實體分為兩步：創(chuàng)建選擇集，將對象添加到選擇集。

• 創(chuàng)建選擇集

用Add方法創(chuàng)建選擇 集，下面的語句創(chuàng)建一個名為TEST的新選擇集。

Dim ssetobj As AcadSelectionSet
Set ssetobj = acadapp.ActiveDocument.SelectionSets.Add("TEST")

• 把對象加入選擇集

可以使用下列方法向選擇集添加對象。

AddTtem方法用于加入一個或多個對象到指定的選擇集，語法格式如下。

object.AddItems Items

Select方法用于選擇對象并加入到活動選擇集，語法格式如下。

object.Select Mode[,Point1][,Point2][,FilterType][,FilterData]

SelectAtPoint方法通過給定點選擇對象并加入到活動選擇集，語法格式如下。

objcet.SelectAtPoint (Point [,FilterType,FilterData])

SelectByPolygon方法選擇多邊形范圍內(nèi)的對象并加入到活動選擇集，語法格式如下。

object.SelectByPolygon (Mode,PointList[,FilterType,FilterData])

SelectOnScreen方法提示用戶從屏幕選擇對象并加入到活動選擇集，語法格式如下。

object.SelectOnScreen [FiterType][,FilterData]

下面的代碼用鼠標(biāo)從屏幕上選擇加入到選擇集，并將被選擇實體改變顏色。

Private Sub Command1_Click()
    Dim ssetobj As AcadSelectionSet
    Set ssetobj = acadapp.ActiveDocument.SelectionSets.Add("TEST3")
    AppActivate acadapp.Caption
    ssetobj.SelectOnScreen
    AppActivate Form1.Caption
    Dim pickedobjs As AcadEntity
    For Each pickedobjs In ssetobj
        pickedobjs.Color = acGreen
        pickedobjs.Update
    Next
    ssetobj.Delete
End Sub

運行該程序，AutoCAD窗口的命令行將提示用戶選擇實體對象，選擇完畢，被選擇的實體將變成綠色。