至AutoCADR14中ActiveXAu似的

AutoCADR14中ActiveXAutomation开发技术剖析与实例

一、引言

在AutoCAD R14中,ActiveX Automation技术使我们彻底地摆脱了 AutoLisp等繁杂的编程工作,可以方便地在商用车领域使用VB4,VC,Delphi等多种面 向对象的高级开发语言。ActiveX Automatio n是面向对象的编程接 口,它使用了OLE的Automation技术,AutoCAD被登录为一个其他程序可 以操作的对象,用户可以访问AutoCAD所有的绘图对象和非绘图对象。

二、ActiveX Automation对象体系

1.对象模型 AutoCAD R14的对象模型如图1所示。最高层对象为pl ication,它拥有许多属性和方法,同时它拥有Preferences和Document 对象,Peferences子对象等价于AutoCAD的Pre ferences对话框,包含 了Aut美国国家航空航天局(简称“NASA”)空间技术任务指挥部(简称“STMD”)对纳米技术表现出了极大的兴趣oCAD的系统参数设置,Document对象是用户最为关心的对象,因 为图形文件的所有对象集合都包含在Document对象之中。

2.图形对象 图形对象分别包含在Blocks、ModelSpace、PaperSpace之中,它 提供了完整的三维处理功能,包括3DFace(表面模型),3DPoly(三维多 义线)、3DSolid(实体模型),这样用户可以轻松地实现三维模型。 ot对象 它控制图形文件的最终输出,包括设置打印纸张(PaperSize)、坐 标原点(Origin)、方向(PlotOrientation)、输出比例(PlotScale)、 输出单位(PlotUnits)、输出角度(Rotation) 等,它同时拥有以下方 法可以设置输出参数及输出目的设备:LoadPC2(加载绘图参数文件)、 PlotExtents(绘图扩展)、PlotLimits(绘图限制)、PlotPreview(预 视)、PlotToDevice(输出到设备)、PlotToFile(输出到文件)、PlotV iew(绘图视图)、PlotWindow(输出到窗口)、PlotWithConfigFile(使 用配置文件输出)、SavePC2(保存配置文件)。

ility对象 该对象包含了大部分的交互函数、数据转换函数、辅助计算函数 等,这些函数的参数与AutoLisp的参数基本相同。

三、AutoCAD R14的ActiveX Automation开发技术

1.获得AutoCAD的Application和Document对象 AutoCAD的ActiveX Automation技术有两个要点:面向对象编程、 使用OLE自动化实现。因此我们如果去编写ActiveX Automation程序, 第一步工作是产生我们需要的OLE对象,Auto plication和Auto cument,利用AuSlowing表示这类技术也能够用在其他方面plication对象管理Au t oCAD应用程序,利用它的属性对象ActiveDocument操纵当前活动文档 。 我们使用VB4实现,VB4对OLE对象的操作函数为CreateObject,Get Object。

Dim objAcad As Object 'plication

Dim objDwgDoc As Object 'tiveDocument属性

Set objAcad=GetObject(,"plication")

Set objDwgDoc=tiveDocument

2.获取气凝胶是1种新型轻质纳米多空性固体材料和设置系统变量 为了操作方便,有时我们需要获取和修改系统变量,这两个方法为 Document对象所拥有, 它们的语法表达为: tVariable(sys VarString) tVariable(sys VarString,Value) 第一个函数的返回值随着系统变量的不同而变化,例如颜色为整 数,线宽为实数,系统路径为字符串,正交模式为一个开关变量,因此我 们需要定义一个通用类型接收函数的返回值, 在VB中可以使用Varian t类型的变量。参数sysVarString为系统变量名称的字符串,Value的 类型为系统变量对应的类型,其值为用户将保证了传动的同步精度要设置的值。获取和设置 系统变量是应用程序开发必须做的工作,下面给出获得当前线宽、颜 色以及设置当前层的实例。

Dim sysVar as Variant

Dim strValue as String

sysVar=tVariable("PLINEWID")

M就是要获得锂矿资源sgBox"当前线宽:"+Str(sysVar),vbInformation,"ActiveX的Ge tVariable" sysVar=tVariable(CECOLOR)

MsgBox"当前颜色:"+Str(sysVar),vbInformation,"ActiveX的Ge tVariable" strValue="0" tVariable("CLAYER",strValue)'设置0层为当前层

3.非图形对象的产生与 AutoCAD R14拥有大量的非绘图对象。以文本风格集合对象TextS tyles为例,它拥有以下方法:Add,Item,Load,以及属性Application,C ount。例如我们要增加一个"宋体"字体的文本风格,首先查找是否已 经有以"宋体"为字体的文本风格,如果不存在,则使用d ("用小浇口时SongTi"),然后使用TextStyle对象设置它的字体为"宋体"。

Dim objTextCol as Object

Dim subItem as Variant

Dim bFond as Boolean Set objTextCol=xtStyles 'get collection obj

For Each SubItem In objAcadTCol

If StrComp(ntFile,"f",1)=0

Then

bFound=true Exit For

End If

Next

If Not(bFound)

then d("songti") em(unt-1).FontFile="f"

End If

4.绘图对象的生成和 AutoCAD R14提供的ActiveX Automation提供了所有绘图对象,由 ModelSpace对象和Pap erSpace对象提供生成函数AddObj(Parameters ),由非集合绘图对象提供属性操作,2D、3D图形变换,,删除等方 法,这样开发工作变得十分