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

• 創(chuàng)建選擇集

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

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

• 把對(duì)象加入選擇集

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

AddTtem方法用于加入一個(gè)或多個(gè)對(duì)象到指定的選擇集，語(yǔ)法格式如下。

object.AddItems Items

Select方法用于選擇對(duì)象并加入到活動(dòng)選擇集，語(yǔ)法格式如下。

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

SelectAtPoint方法通過(guò)給定點(diǎn)選擇對(duì)象并加入到活動(dòng)選擇集，語(yǔ)法格式如下。

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

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

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

SelectOnScreen方法提示用戶從屏幕選擇對(duì)象并加入到活動(dòng)選擇集，語(yǔ)法格式如下。

object.SelectOnScreen [FiterType][,FilterData]

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

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

運(yùn)行該程序，AutoCAD窗口的命令行將提示用戶選擇實(shí)體對(duì)象，選擇完畢，被選擇的實(shí)體將變成綠色。