方法 AddItems 範例

本範例會建立一個名稱為 TEST_SELECTIONSET 的選集，並在模型空間內劃上幾個元件，然後將模型空間內的所有元件都加入到選集內。 選集的名稱不可以重複，它在關閉檔案後就會自動消失，下次再開啟檔案時也不會存在。 Sub Example_AddItems()     ' 建立一個名稱為 TEST_SELECTIONSET 的選集     Dim ssetObj As AcadSelectionSet     Set ssetObj = ThisDrawing.SelectionSets.Add("TEST_SELECTIONSET")     ' 模型空間內畫一個射線元件     Dim rayObj As AcadRay     Dim basePoint(0 To 2) As Double     Dim SecondPoint(0 To 2) As Double     basePoint(0) = 3#: basePoint(1) = 3#: basePoint(2) = 0#     SecondPoint(0) = 1#: SecondPoint(1) = 3#: SecondPoint(2) = 0#     Set rayObj = ThisDrawing.ModelSpace.AddRay(basePoint, SecondPoint)     ' 模型空間內畫一個聚合線元件     Dim plineObj As AcadLWPolyline     Dim points(0 To 5) As Double     points(0) = 3: points(1) = 7     points(2) = 9: points(3) = 2     points(4) = 3: points(5) = 5     Set plineObj = ThisDrawing.ModelSpace.AddLightWeightPolyline(points)     plineObj.Closed = True     ' 模型空間內畫一線元件     Dim lineObj As AcadLine     Dim startPoint(0 To 2) As Double     Dim endPoint(0 To 2) As Double     startPoint(0) = 0: startPoint(1) = 0: startPoint(2) = 0     endPoint(0) = 2: endPoint(1) = 2: endPoint(2) = 0     Set lineObj = ThisDrawing.ModelSpace.AddLine(startPoint, endPoint)     ' 模型空間內畫一個圓元件     Dim circObj As AcadCircle     Dim centerPt(0 To 2) As Double     Dim radius As Double     centerPt(0) = 20: centerPt(1) = 30: centerPt(2) = 0     radius = 3     Set circObj = ThisDrawing.ModelSpace.AddCircle(centerPt, radius)     ' 模型空間內畫一個橢圓元件     Dim ellObj As AcadEllipse     Dim majAxis(0 To 2) As Double     Dim center(0 To 2) As Double     Dim radRatio As Double     center(0) = 5#: center(1) = 5#: center(2) = 0#     majAxis(0) = 10: majAxis(1) = 20#: majAxis(2) = 0#     radRatio = 0.3     Set ellObj = ThisDrawing.ModelSpace.AddEllipse(center, majAxis, radRatio)     '縮放全部     ZoomAll         ' 模型空間內的所有元件全部收集到陣列內。     ReDim ssobjs(0 To ThisDrawing.ModelSpace.Count - 1) As AcadEntity     Dim I As Integer     For I = 0 To ThisDrawing.ModelSpace.Count - 1         Set ssobjs(I) = ThisDrawing.ModelSpace.Item(I)     Next     ' 將陣列內的所有元件加入到選集內。     ssetObj.AddItems ssobjs     ' 重生目前視埠。     ThisDrawing.Regen acActiveViewport End Sub