Autocad二次开发--画直线、圆、多段线

Sub 直线()
Dim line1 As AcadLine
Dim 起点(2) As Double
    Dim 端点(2) As Double
   
    起点(0) = 10
    起点(1) = 20
    端点(0) = 80
    端点(1) = 100
   
    Set line1 = ThisDrawing.ModelSpace.AddLine(起点, 端点)
End Sub

Sub 多段线()
Dim plineObj As AcadLWPolyline    ‘

    Dim points(0 To 11) As Double

    points(0) = 1: points(1) = 2

    points(2) = 1: points(3) = 3

    points(4) = 2: points(5) = 3

    points(6) = 3: points(7) = 3

    points(8) = 4: points(9) = 4

    points(10) = 4: points(11) = 2

    Set plineObj = ThisDrawing.ModelSpace. _
AddLightWeightPolyline(points)

End Sub
 

Sub 圆()
Dim pt1(2) As Double
Dim circleObj  As AcadCircle
Dim radius As Double
pt1(0) = 100
pt1(1) = 100
pt1(2) = 0
radius = 100
Set circleObj = ThisDrawing.ModelSpace.AddCircle(pt1, radius)

ZoomAll

End Sub