AutoCAD利用VBA宏绘制直线

利用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按钮，窗口关闭，程序结束。