AutoCAD二次开发的ActiveX技术应用

发表评论

A+

所属分类：CAD

Application对象是一系列对象的父对象，可以通过它的属性设置来改变AutoCAD的窗口设置。如下面代码：

aCADapp.Top=100 '设置AutoCAD窗口的位置

aCADapp.Left=200

aCADapp.Height=1000 '调整AutoCAD窗口的大小

aCADapp.Width=800

2.2 Document对象

(1) 对文件的操作

Document对象提供了大多数AutoCAD软件中有关文件的功能，可以通过它在AutoCAD中新建(New)、打开(Open)、输出(Export)、输入(Import)等文件功能操作。编程时先把Document对象设为Application对象的 ActiveDocument属性，以返回当前活动的图形文档。例:

Set aCADdoc=Application.ActiveDocument

请看下面的例子对文件的操作：

Dim Docname As String

Docname = "e:\temp\zk01.dwg"

If Dir(docname) <> "" Then

aCADdoc.Open docname '如果文件存在则打开CAD文件

Else

aCADdoc.new("aCAD") '若不存在则以aCAD.dwt为模板建立一个新文件。

End If

把当前文档存盘则可以用下面的语句：

if docname<>"" then 'docname不存在时存盘