14、VBA绘图编程：从多线到填充圆的实现

VBA绘图编程：从多线到填充圆的实现

1. 多线绘制

多线通常有多种样式，常用于绘制墙壁或任何需要平行线的场景。使用标准样式绘制多线时，会伴随着一条与之保持固定距离的第二条线。

1.1 多线绘制宏实现

以下是使用宏绘制多线的代码示例：

Sub DrawMultipleLines()
    Dim MultiLineObj As AcadMLine
    Dim Vertices(0 To 17) As Double
    Vertices(0) = 3: Vertices(1) = 3: Vertices(2) = 0
    Vertices(3) = 5: Vertices(4) = 6: Vertices(5) = 0
    Vertices(6) = 3: Vertices(7) = 7: Vertices(8) = 0
    Vertices(9) = 7: Vertices(10) = 5: Vertices(11) = 0
    Vertices(12) = 5: Vertices(13) = 6: Vertices(14) = 0
    Vertices(15) = 3: Vertices(16) = 3: Vertices(17) = 0
    Set MultiLineObj = ThisDrawing.ModelSpace.AddMLine(Vertices)
End Sub

1.2 代码分析

行号	说明