AutoVBA在绘图空间创建直线对象
2011-05-31 21:49 精诚所至 金石为开 阅读(285) 评论(0) 编辑 收藏 举报AutoVBA在绘图空间创建LINE对象,代码如下。
Public Sub creatline()
Dim mylineobject As AcadLine
Dim startpoint(0 To 2) As Double
Dim endpoint(0 To 2) As Double
startpoint(0) = 1
startpoint(1) = 3
startpoint(2) = 2
endpoint(0) = 4
endpoint(1) = 5
endpoint(2) = 4
Set mylineobject = ThisDrawing.ModelSpace.AddLine(startpoint, endpoint)
End Sub
代码完。
定义一个创建直线的函数,指定起点和终点,然后将其添加到绘图空间。