利用VBA宏代碼繪制直線，可以設(shè)置線性，設(shè)置直線顏色，對直線進行操作。

繪制直線主要用到addline函數(shù)，該函數(shù)接受兩個參數(shù)，第一個參數(shù)指點直線起點startpoint，第二個參數(shù)指定直線終點endpoint，新的直線實例被添加到繪圖空間。

定義繪制直線的函數(shù)creatline，代碼如下。

Sub creatline()
    Dim startpoint(0 To 2) As Double
    Dim endpoint(0 To 2) As Double
    startpoint(0) = txtstartpointx
    startpoint(1) = txtstartpointy
    startpoint(2) = txtstartpointz
    endpoint(0) = txtendpointx
    endpoint(1) = txtendpointy
    endpoint(2) = txtendpointz
    With ThisDrawing.ModelSpace
        .AddLine startpoint, endpoint
        .Item(.Count – 1).Update
    End With
End Sub

代碼完。

函數(shù)第一行聲明函數(shù)定義，函數(shù)體中首先定義兩個雙精度實數(shù)型數(shù)組，用來存放直線的起點和重點，創(chuàng)建的用戶窗體上包含六個text控件，分別用于用戶輸入直線的起點重點坐標，最后用addline函數(shù)將直線添加到圖紙空間。

用一個button按鈕控件來調(diào)用上面定義的creatline函數(shù)，按鈕名稱命名為cmdcreatline，代碼如下。

Private Sub cmddrawline_Click()
    creatline
End Sub

代碼完。

同時在用戶窗體添加的button按鈕控件，按鈕名稱命名為cmdexit，用來退出程序，代碼如下。

Private Sub cmdexit_Click()
    End
End Sub

代碼完。

每一個VBA工程中至少包含一個宏代碼，選擇插入-模塊，添加如下宏代碼。

Sub drawline()
    frmlineinput.Show
End Sub

調(diào)試程序，選擇工具-宏，運行剛剛創(chuàng)建的drawline宏，彈出用戶窗體，輸入起點和終點坐標，單擊cmdcreatline按鈕，即可在圖紙空間看到繪制的直線，單擊cmdexit按鈕，窗口關(guān)閉，程序結(jié)束。