AutoVBA在绘图空间创建直线对象
2011-05-31 21:49
225 查看
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
代码完。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
定义一个创建直线的函数,指定起点和终点,然后将其添加到绘图空间。
相关文章推荐
- VB编程在AutoCAD绘图空间创建直线
- AutoVBA利用AddArc方法创建Arc对象
- 根据包名,在指定空间中创建对象
- java数组创建了指针,而没有为对象分配空间
- java中程序的执行的原理如怎么创建空间,创建对象等
- Greenplum中定义数据库对象之创建与管理表空间
- 在恢复管理器(RMAN)创建恢复目录测试(解决报错'对表空间 XX无权限'和'名称已由现有对象使用')
- 绘图操作时报错“无法从带有索引像素格式的图像创建 Graphics 对象”
- C++类对象创建过程(分配空间、赋值和初始化、对象初始化顺序、虚函数表指针)
- MicroStation VBA创建直线的三种方法
- 速战速决 (5) - PHP: 动态地创建属性和方法, 对象的复制, 对象的比较, 加载指定的文件, 自动加载类文件, 命名空间
- java创建对象内存分配空间及其原理一
- J2SE基础:3.对象的创建与使用类的命名空间和访问权限
- Oracle创建表空间、创建用户、授权、授权对象的访问以及查看权限集合
- word转换为pdf 创建临时文件时出现错误:Word未能写某些嵌入对象,因为内容或磁盘空间不足
- Oracle创建表空间、创建用户、授权、授权对象的访问以及查看权限集合
- 为js对象创建命名空间
- Oracle创建表空间、创建用户、授权、授权对象的访问以及查看权限集合
- 使用伪命名空间封装保护独自创建的对象方法
- C++类对象创建过程(分配空间、赋值和初始化、对象初始化顺序、虚函数表指针)