您的位置:网站首页 > CAD新闻

AutoCAD利用VBA宏绘制直线

时间:2012-01-31 18:01:19 来源:未知

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