多重平行線有多種多樣的樣式，主要用于繪制像墻之類的的平行線的場合，當(dāng)你使用多種的標(biāo)準(zhǔn)繪制直線時(shí)，需要另外一條線來設(shè)置距離。

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

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函數(shù)，定義AcadLine圖元實(shí)例，定義雙精度型數(shù)組作為Mline的頂點(diǎn)，最后利用AddMLine方法添加多重線。