AutoCAD二次开发实用教程 教学课件 作者 郭秀娟第12章 使用ActiveX.ppt

《AutoCAD二次开发实用教程 教学课件 作者 郭秀娟第12章 使用ActiveX.ppt》由会员上传分享，免费在线阅读，更多相关内容在教育资源-天天文库。

1、第12章使用ActiveXVisualLISP为AutoCAD提供了许多新的功能，包括支持ActiveX对象的操作以及支持ActiveX与其他程序的交互等。ActiveXAutomation技术使用户可以方便地使用其他许多面向对象的高级语言来开发AutoCAD程序，它的作用是面向对象的编程接口，程序可以据此访问AutoCAD所有的绘图对象和非绘图对象。第12章使用ActiveXActiveXAutomation是一种新的方法，通过它可以用编程的方式操作AutoCAD图形。MSWordVBAVisualBASICC++DelphiJavaExcelVBAAutoCADVBAAutoCADActi

2、veXObjectsAtuoCADApplicationDrawing.dwy第12章使用ActiveX许多语言和环境都可以使用ActiveX编程界面，如C++、VisualBasic、Java和Delphi等。在AutoLISP中使用ActiveX对象，与其模型、属性和方法和在其他编程环境中使用的ActiveX对象完全相同。12.1在AutoLISP中使用ActiveX对象对象是ActiveX应用程序的主要组成部分。例如，直线、圆弧、多义线和圆等都被称为图形对象。但在使用ActiveX时，以下AutoCAD本身及概念都被称为对象。1.样式设置对象，如线型(linetype)、文本样式(sty

3、le)和尺寸样式(dimstyle)等。2.组织结构对象，如图层(layer)和块(block)等。3.图形显示对象，如视图(view)和视口(viewport)。4.图形的模型空间(modelspace)和图纸空间(paperspace)。12.2AutoCAD对象模型AutoCAD对象是通过分层方式来组织的，应用程序（Application）对象为根对象。这种分层结构的视图被归结为对象模型。Application对象还提供指向AutoCAD图形（通过Documents集合）、AutoCAD菜单和工具栏（通过MenuBa和MenuGroup集合）以及VBAIDE（通过VBE特性）的链接。12

4、.2.1对象属性AutoCAD对象模型中的所有对象都有一个或多个特性，我们把这些特性称为属性。属性用于描述对象。例如，圆具有半径、面积、线型等属性，通过半径、面积、线型等属性描述一个具体的圆。椭圆具有面积和线型属性，虽然没有半径这个属性，但可以用其长轴和短轴的比例来描述它。通过ActiveX函数访问AutoCAD数据时必须知道特性名称。12.2.2对象方法ActiveX对象也包括方法，它们是为特定类型的对象提供的动作。某些方法可应用到大多数AutoCAD图形对象。在VisualLISP中，ActiveX方法是用AutoLISP函数实现的，在VisualLISP文档中，用户会看到许多关于Acti

5、veX函数的内容，但是应该清楚在ActiveX术语中，它们应被称为方法。12.2.3对象集合AutoCAD通过集合将所有对象进行分类。虽然这些集合包含了不同类型的数据，但是可以使用相似的技术来处理它们。每一个集合都提供了向其中添加对象的方法。大多数集合是通过Add方法完成的。但添加图元对象通常使用名为Add<图元名>的方法。例如，要添加直线，请使用AddLine方法。12.3访问AutoCAD对象通过Document对象的Application特性可以访问Application对象。在对象层次结构中，Application对象位于Document对象的上方。如果要AutoLISP中使用Acti

6、veX函数，用户必须先加载支持代码来使这些函数可用。12.3.1访问AutoCAD应用程序获取AutoCAD应用程序2.AutoCAD应用程序的属性和方法12.3.2应用程序对象以下的其他ActiveX对象沿着AutoCAD对象模型层次图，应用程序对象的ActiveDocument特性将把用户带到文档对象，它代表当前AutoCAD图形。文档对象有许多特性。对非图形对象（如图层、线型和组等）的访问是由名称相近的特性（如Layers、Linetype和Groups等）提供的。12.3.3过程总结实现的功能是用ActiveXAutomation在AutoCAD图形中画一个圆对象，函数调用序列如下所示

7、：(vl-load-com)(setqacadObject(vlax-get-acad-object))(setqacadDocument(vla-get-ActiveDocumentacadObject))(setqmSpace(vla-get-ModelSpaceacadDocument))(setqmycircle(vla-acadCirclemSpace(vlax-3d-point'(3.