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