VB编程在AutoCAD绘图空间创建直线
2011-06-12 14:41
225 查看
给出直线的起点和终点的三维坐标,利用AddLine方法可以创建直线。如下代码创建一条(1,1,0)与(15,15,0)之间的直线。
Private Sub Command1_Click()
Dim lineobj As AcadLine
Dim startpoint(0 To 2) As Double
Dim endpoint(0 To 2) As Double
startpoint(0) = 1#: startpoint(1) = 1#: startpoint(2) = 0#
endpoint(0) = 15#: endpoint(1) = 15#: endpoint(2) = 0#
Set lineobj = acadapp.ActiveDocument.ModelSpace.AddLine(startpoint, endpoint)
ZoomAll
End Sub
利用AddLightWeightPolyline方法可以创建轻便多义线,该方法需要多义线的各个定点坐标,如下代码创建一条以(1,1)、(3,2)、(4,9)为定点的多义线。Dim lineobj As AcadLine
Dim startpoint(0 To 2) As Double
Dim endpoint(0 To 2) As Double
startpoint(0) = 1#: startpoint(1) = 1#: startpoint(2) = 0#
endpoint(0) = 15#: endpoint(1) = 15#: endpoint(2) = 0#
Set lineobj = acadapp.ActiveDocument.ModelSpace.AddLine(startpoint, endpoint)
ZoomAll
End Sub
Private Sub Command1_Click()
Dim plineobj As AcadLWPolyline
Dim points(0 To 5) As Double
points(0) = 1: points(1) = 1
points(2) = 3: points(3) = 2
points(4) = 4: points(5) = 9
Set plineobj = acadapp.ActiveDocument.ModelSpace.AddLightWeightPolyline(points)
ZoomAll
End Sub
利用AddPolyline方法可以创建普通多义线,该方法需要给出多义线各个顶点的三维坐标点。
Dim plineobj As AcadLWPolyline
Dim points(0 To 5) As Double
points(0) = 1: points(1) = 1
points(2) = 3: points(3) = 2
points(4) = 4: points(5) = 9
Set plineobj = acadapp.ActiveDocument.ModelSpace.AddLightWeightPolyline(points)
ZoomAll
End Sub
相关文章推荐
- VB编程在AutoCAD绘图空间创建实心面和图案填充
- VB编程在AutoCAD绘图空间创建曲线
- AutoVBA在绘图空间创建直线对象
- VB编程在AutoCAD绘图空间创建点
- AutoCAD_创建直线,圆弧,圆
- 【Hello AutoCAD 002】创建直线
- AutoCAD.NET创建对象之绘制直线
- AutoCAD .Net 创建直线Line
- 计算空间直线与平面的交点 (C#)
- 创建、查询、修改带名称空间的 XML 文件的例子
- Revit API根据房间Room创建空间Space
- mfc 绘图中的坐标空间转换问题
- VB编程操作AutoCAD长度型尺寸标注
- 判断点在三角形区域内;求空间直线与平面的交点;
- oracle创建表空间,用户步骤
- Oracle创建用户及表空间 代码片段
- 创建数据库表空间、表及用户
- 在JavaScript中创建命名空间的几种写法
- Raphael学习笔记(3)--绘图(路径【直线】)
- oracle 11g 创建数据库表空间