CAD应用二次开发VB和VBA开发CAD的知识.docVIP

1、如何在?VB?中连接?AutoCAD。 启动?VB?，引用?AutoCAD?类型库。操作步骤：从“工程”菜单中选择“引用”选项，启动“引用”对话框。在“引用”对话框中，选择?AutoCAD?类型库，然后单击“确定”。? 定义模块级变量?AutoCAD?应用程序?(acadApp)?和当前的文档?(acadDoc)。 如果?AutoCAD?正在运行，使用?GetObject?函数将检索?AutoCAD?Application?对象。如果?AutoCAD?没有运行，使用?CreateObject?函数试图创建一个?AutoCAD?Application?对象。如果创建成功，会启动?AutoCAD；如果失败，则会发生错误。? 同时运行多个?AutoCAD?任务时，GetObject?函数会返回?Windows?运行对象表中的第一个?AutoCAD?实例。 要显示?AutoCAD?图形窗口，需要将?AutoCAD?应用程序的?Visible?特性设置为?TRUE。? 使用?acadDoc?变量引用当前的?AutoCAD?图形。? 示例：? Dim?acadApp?As?AcadApplication Dim?acadDoc?as?AcadDocument? Sub?ConnectToAcad() On?Error?Resume?Next Set?acadApp