多重平行線有多種多樣的樣式，主要用于繪制像墻之類的的平行線的場合，當你使用多種的標準繪制直線時，需要另外一條線來設置距離。

繪制多重平行線的代碼如下。

Sub mylines()
    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) = 8: 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

代碼完。

首先聲明mulines函數，定義AcadLine圖元實例，定義雙精度型數組作為Mline的頂點，最后利用AddMLine方法添加多重線。