AutoCAD二次开发的ActiveX技术应用

发表评论

A+

所属分类：CAD

aCADdoc.save

else

msgbox “该文件已经存在!” '提示该文件已经存在

end if

Document对象还提供了两个非常有用的方法—SetVariable 和 GetVariable，通过它们可以得到(用GetVariable)或改变(用SetVariable )AutoCAD的系统变量。

如语句：

aCADdoc.SetVariable "Orthomode", 1 '打开正交模式

dim CADver As String

CADver=aCADdoc.Getvariable("ACADver") '获取AutoCAD的版本号

(2) 对图形实体的操作

图形实体是指所有CAD的图元物体，如点(point)、线(Line)、圆(Circle)、弧(Arc)、文字(Text)等，它们包含于ModelSpace和PaperSpace集合对象中。对实体的操作总要从这两个集合开始，向下查找相应实体所属的方法或属性。而图形实体的操作包括实体的生成、编辑和查询。 ModelSpace与PaperSpace是所有图形实体的集合，因此要取得图中的某一实体，一般采用遍历查找的方法，下面代码是CAD图形实体的生成、编辑实体或查询。

生成一条直线的代码：

Dim lineobj As Object

Dim pt1(0 To 2) As Double

Dim pt2(0 to 2) as double