用VB对AutoCAD进行二次开发.doc

用VB对AutoCAD进行二次开发|用VB对AutoCAD进行二次开发
A utoCAD一直是CAD市场中的主流产品。随着AutoCAD的日益普及,在其上进行二次开发的工具也不断更新。从早期的Auto Lisp、ADS、 DCL到现在流行的 Object ARX、ActiveX Automation、Visual Lisp,均可十分方便地对AutoCAD进行二次开发。本文主要讨论关于运用Visual Basic对AutoCAD基于ActiveX Automation的二次开发技术。选用 ActiveX有两个原因,一是因为Visual Basic的普及性与易用性,二是采用这种方法进行二次开发可方便地实现与其它图形软件的接口,如与Solid Works实现实体造型与二维绘图的结合,以及根据用户的特殊需要开发出一定功能的软件。
二、ActiveX Automation技术
AutoCAD中的ActiveX Automation是微软公司ActiveX规范的具体应用。它通过基于ActiveX的自动化对象,为其他应用程序提供了访问AutoCAD内部功能的方法,是AutoCAD最新的开发接口。在运行时,AutoCAD与其他应用程序之间的关系是服务器与客户的关系,开发人员使用支持ActiveX规范的编程语言(如VB、Dephi等)能通过访问AutoCAD的对象模型,,根为"AutoCAD Application",AutoCAD中的所有对象都是AutoCAD Application的子对象。图1所示为AutoCAD对象模型的层次结构树,其中父对象与子对象之间的关系并不是对象继承关系,而是包含关系。
图1 AutoCAD中ActiveX对象的总结构图
三、ActiveX Automation的使用方法
1. Application对象
如果在计算机系统上安装了AutoCAD,则Windows会自动将其所有的信息注册到系统注册表里。那么在启动Visual Basic后,用户可以象调用VB自己的对象一样调用AutoCAD所提供的ActiveX。
在编程、调试或运行时至少应该有一个AutoCAD副本在运行。可以通过以下的代码创建AutoCAD对象。
Dim AcadApp as Object ’定义一个对象
On Error Resume Next
Set AcadApp =GetObject(,"")
If Err Then ’如果没有一个AutoCAD副本在运行

Set AcadApp =CreateObject("")
=True ’启动一个AutoCAD副本并设为可见
If Err Then
MsgBox ’如果失败,给出错误提示
Exit Sub
End If
End If
2. Preferences与Document对象
与AutoCAD中的Preferences对话框的作用相同,通过Preferences对象可以读取或设置Aut