AutoCAD VBA选集方法

【AutoCAD VBA选择集操作，以下为示例代码。

Public Sub Test()
Dim pt1(0 To 2) As Double
Dim pt2(0 To 2) As Double
Dim pt3(0 To 2) As Double
Dim pt4(0 To 2) As Double
Dim pt5(0 To 2) As Double
Dim ObjLine As AcadLine
Dim objCir As AcadCircle
Dim objArc As AcadArc
pt1(0) = 0: pt1(1) = 0: pt1(2) = 0
pt2(0) = 5: pt2(1) = 8: pt2(2) = 0
pt3(0) = 15: pt3(1) = 0: pt3(2) = 0
pt4(0) = 15: pt4(1) = 8: pt4(2) = 0
pt5(0) = 20: pt5(1) = 0: pt5(2) = 0
Set objCir = AddCirCR(pt1, 1)
AddCirCR pt3, 3
AddCirCR pt5, 5
Set ObjLine = AddLine(pt1, pt2)
Add