給出直線的起點(diǎn)和終點(diǎn)的三維坐標(biāo)，利用AddLine方法可以創(chuàng)建直線。如下代碼創(chuàng)建一條（1,1,0）與（15,15,0）之間的直線。

Private Sub Command1_Click()
    Dim lineobj As AcadLine
    Dim startpoint(0 To 2) As Double
    Dim endpoint(0 To 2) As Double
    startpoint(0) = 1#: startpoint(1) = 1#: startpoint(2) = 0#
    endpoint(0) = 15#: endpoint(1) = 15#: endpoint(2) = 0#
    Set lineobj = acadapp.ActiveDocument.ModelSpace.AddLine(startpoint, endpoint)
    ZoomAll
End Sub

利用AddLightWeightPolyline方法可以創(chuàng)建輕便多義線，該方法需要多義線的各個(gè)定點(diǎn)坐標(biāo)，如下代碼創(chuàng)建一條以（1，1）、（3,2）、（4,9）為定點(diǎn)的多義線。

Private Sub Command1_Click()
    Dim plineobj As AcadLWPolyline
    Dim points(0 To 5) As Double
    points(0) = 1: points(1) = 1
    points(2) = 3: points(3) = 2
    points(4) = 4: points(5) = 9
    Set plineobj = acadapp.ActiveDocument.ModelSpace.AddLightWeightPolyline(points)
    ZoomAll
End Sub

利用AddPolyline方法可以創(chuàng)建普通多義線，該方法需要給出多義線各個(gè)頂點(diǎn)的三維坐標(biāo)點(diǎn)。