资源描述：
《CAD应用二次开发VB和VBA开发CAD的知识.doc》由会员上传分享，免费在线阅读，更多相关内容在教育资源-天天文库。
1、个人收集整理勿做商业用途1、如何在 ＶＢ 中连接 ＡｕｔｏCＡＤ。启动 VB ，引用 AutoCAD 类型库。操作步骤：从“工程”菜单中选择“引用”选项,启动“引用”对话框。在“引用”对话框中,选择 ＡｕtoＣＡD 类型库，然后单击“确定”。 定义模块级变量 AutoＣＡD 应用程序 (aｃadAｐp) 和当前的文档 (aｃａdDｏc)。如果 AutｏCAＤ 正在运行，使用 GetObjecｔ 函数将检索 AuｔoＣAD Applｉcaｔioｎ 对象。如果 AｕｔoCAD 没有运行,使用 ＣreatｅObｊect 函数试图创建一个
2、ＡuｔoＣAＤ Apｐlication 对象。如果创建成功,会启动 AuｔoCAD；如果失败,则会发生错误。 ﻫ同时运行多个 AutoＣＡD 任务时，GetObｊecｔ 函数会返回 Ｗｉndｏｗs 运行对象表中的第一个 AｕtoCAＤ 实例。要显示 AｕｔoCAD 图形窗口,需要将 AｕｔｏCAD 应用程序的 Ｖｉsｉble 特性设置为 ＴRＵE。 使用 aｃadＤoc 变量引用当前的 AuｔoＣAD 图形。 ﻫ示例： ﻫDｉm acadAｐp Aｓ ＡcaｄApplicatｉｏn ﻫDim ａcaｄDoc as AcaｄDoｃum
3、eｎt Sub ＣonnｅｃtＴoAcad()Ｏｎ Errｏｒ Ｒｅsume Ｎext ﻫSｅt acaｄApp = GｅｔObｊecｔ（, ＂ＡｕｔoCＡD.Appliｃaｔioｎ")If Ｅrｒ ＴｈenﻫErr.CｌeaｒﻫＳｅt acａｄApp ＝ CreateObjeｃt("AuｔoＣAD.Ａｐplicatｉｏn＂)ﻫIf Err Ｔhen EｎdﻫEnｄ IfﻫacadAｐp.Visｉble = Ｔｒue Ｓet aｃaｄＤoｃ = aｃadAｐp.ActiveＤocｕmenｔﻫEnd Subﻫ2、如何使 VB 开发的
4、程序不依赖于 ＡutoCAD 的版本。ﻫ启动 VB ，定义模块级变量 AutｏCＡD 应用程序 (acaｄAｐp) 和当前的文档 （aｃａdDoc)。如果 ＡutoCAＤ 正在运行，使用 GetＯbｊect 函数将检索 AutoCAＤ Aｐpliｃａtion 对象。如果 AｕtoCAD 没有运行，使用 ＣreａｔｅObjeｃｔ 函数试图创建一个 AutｏCAD Ａpplｉｃatiｏn 对象。如果创建成功,会启动 AｕtoCAD;如果失败,则会发生错误。 个人收集整理勿做商业用途同时运行多个 AｕtoCＡＤ 任务时，GetOｂjｅct
5、 函数会返回 Ｗindows 运行对象表中的第一个 AuｔoCAD 实例。ﻫ要显示 AutoCAD 图形窗口，需要将 AｕtoCAＤ 应用程序的 Ｖisible 特性设置为 ＴＲUＥ。 ﻫ使用 acaｄDoc 变量引用当前的 AｕtoCAD 图形。 示例： ﻫDｉm acaｄApp As Objｅct ﻫＤｉm acadＤoc as Oｂject Sｕb CoｎneｃtToＡcad() ﻫﻫOn Error Resume NeｘｔＳet ａcadAｐp = GｅｔＯbｊｅct(， ＂AｕtｏCAＤ.Applicａtion") Ｉｆ
6、 Erｒ Ｔhen Err．Clear ﻫSet acａdApｐ = ＣreaｔeObject("AuｔoＣAD.Appｌiｃatioｎ")ﻫIf Ｅrr Thｅｎ ＥｎｄEnｄ IfaｃadＡpp.Visibｌe ＝ TrueSeｔ aｃadＤｏc ＝ ａｃadAｐp.ActiveＤocumeｎｔ ﻫEnd Subﻫ与第一个问题相比较,可以看出,不引用具体的类型库以及使用通用的对象类型就可以达到通用性。 ﻫ３、前期绑定和后期绑定要创建一个使用前期绑定方式的对象变量，也就是说,在程序编译时就完成绑定，则对象变量在声明时应指定类 ID
7、，如:Ｄｉm aｃadApp As AcａdＡpｐlicatｉon。 ﻫ使用 Ａs Ｏbｊeｃt 子句声明对象变量,可以创建一个能包含任何类型对象引用的变量。不过,该变量访问对象是后期绑定的，也就是说，绑定在程序运行时才进行,如：Ｄiｍ ａcａdApp As Oｂｊecｔ。ﻫ前期绑定的变量引用可以提供更好的性能，但该变量只能存放声明中所指定的类的引用。ﻫ而后期绑定的变量引用可以提供更好的通用性。ﻫ4、依赖于版本和独立于版本个人收集整理勿做商业用途ﻫ如果 CreateObｊｅｃｔ 或 GetObject 函数使用的 ProｇID 没有
8、附加版本号，那么是独立于版本的,否则是依赖于版本的。例如，如果使用的是 ＣｒeａｔeOｂject,则 CreａｔeOｂject （"ＡutoCＡD.Ａpplｉcａtｉon＂) 是独立于版本的，而 CreaｔeObject ("Aｕto
