利用VBA宏代码绘制直线，可以设置线性，设置直线颜色，对直线进行操作。
绘制直线主要用到addline函数，该函数接受两个参数，第一个参数指点直线起点startpoint，第二个参数指定直线终点endpoint，新的直线实例被添加到绘图空间。
定义绘制直线的函数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
代码完。
函数第一行声明函数定义，函数体中首先定义两个双精度实数型数组，用来存放直线的起点和重点，创建的用户窗体上包含六个text控件，分别用于用户输入直线的起点重点坐标，最后用addline函数将直线添加到图纸空间。
用一个button按钮控件来调用上面定义的creatline函数，按钮名称命名为cmdcreatline，代码如下。
Private Sub cmddrawline_Click()
creatline
End Sub
代码完。
同时在用户窗体添加的button按钮控件，按钮名称命名为cmdexit，用来退出程序，代码如下。
Private Sub cmdexit_Click()
End
End Sub
代码完。
每一个VBA工程中至少包含一个宏代码，选择插入-模块，添加如下宏代码。
Sub drawline()
frmlineinput.Show
End Sub
调试程序，选择工具-宏，运行刚刚创建的drawline宏，弹出用户窗体，输入起点和终点坐标，单击cmdcreatline按钮，即可在图纸空间看到绘制的直线，单击cmdexit按钮，窗口关闭，程序结束。