《在AutoLISP中使用ActiveX对象.ppt》由会员分享，可在线阅读，更多相关《在AutoLISP中使用ActiveX对象.ppt（87页珍藏版）》请在三一办公上搜索。
1、第10章 在AutoLISP中使用ActiveX对象,ActiveX Automation是一种新的方法，通过它可以用编程的方式操作AutoCAD图形。在许多操作AutoCAD图形对象的实例中，ActiveX的速度比传统的AutoLISP函数要快。在某些情况下，例如在反应器回调函数中访问图形对象时，只能使用ActiveX。许多语言和环境可以使用ActiveX编程界面，如C+、Visual Basic、Java和Delphi等。在AutoLISP中使用ActiveX对象，其模型、属性和方法和在其他编程环境中使用的ActiveX对象完全相同。如果要在AutoLISP中使用ActiveX函数，必须首
2、先调用vl-load-com函数来初始化ActiveX环境。vl-load-com函数首先检查是否加载了ActiveX支持的函数，如果已加载，该函数不做任何工作，否则将加载ActiveX和其他Visual LISP扩展部分的函数。本章所有实例的前提是已调用了vl-load-com函数。,10.1 AutoCAD对象模型 对象是ActiveX应用程序的主要组成部分。例如，直线、圆弧、多义线和圆等都被称为图形对象。但在使用ActiveX时，以下AutoCAD概念也被称为对象：样式设置对象，如线型(linetype)、文本样式(style)和尺寸样式(dimstyle)等。组织结构对象，如图层(la
3、yer)和块(block)等。图形显示对象，如视图(view)和视口(viewport)。图形的模型空间(modelspace)和图纸空间(paperspace)。甚至连图形和AutoCAD本身都被认为是对象。AutoCAD用层次结构来组织它的对象。结构的根是应用程序对象，即AutoCAD本身。该层次结构被称为AutoCAD的对象模型，见图10-1。,图10-1 AutoCAD对象模型图,AutoCAD的所有对象都有一个或多个属性。属性用于描述对象。例如，圆具有半径、面积、线型等属性，通过半径、面积、线型等属性描述一个具体的圆。椭圆具有面积和线型属性，虽然没有半径这个属性，但可以用其长轴和短轴
4、的比例来描述它。下一级对象也是其上级对象的属性。AutoCAD的对象还包括方法，它们是为特定类型的对象所提供的操作。某些方法可应用于大多数图形对象，例如，Mirror（镜像）和Move（平移）方法。而另一些方法，如Offset（等距线）只能应用到圆弧、圆、椭圆和直线等少数几种图形对象。AutoCAD通过集合将所有对象进行分类，例如，块集合是由 AutoCAD图形中的所有块定义组成的，而模型空间集合则包括模型空间中的所有的图形对象（圆、直线、多义线等）。,10.2.1访问AutoCAD应用程序1.获取AutoCAD应用程序 AutoCAD应用程序即AutoCAD本身，是AutoCAD所有对象的根
5、对象，是访问所有AutoCAD对象的起点。获取AutoCAD应用程序对象，只能通过函数vlax-get-acad-object，格式如下：(setq myacad(vlax-get-acad-object)该函数没有参数，返回指向AutoCAD应用程序的指针#，返回值的数据类型为VLA，即VLISP ActiveX对象。该表达式将指向AutoCAD应用程序的指针赋给了变量myacad。,2.了解AutoCAD应用程序的属性和方法（vlax-dump-object VLA对象 T）,该函数的功能是列出指定VLA对象的属性和方法，参数为VLA对象，如果未设置T，只列出指定VLA对象的属性。例如(v
6、lax-dump-object myacad t)返回;IAcadApplication:An instance of the AutoCAD application;Property values:;ActiveDocument=#;Application(RO)=#;Caption(RO)=AutoCAD 2006 Drawing1.dwg;Documents(RO)=#;FullName(RO)=C:Program FilesAutoCAD 2006acad.exe;Height=730;HWND(RO)=66224,;LocaleId(RO)=1033;MenuBar(RO)=#;Me
7、nuGroups(RO)=#;Name(RO)=AutoCAD;Path(RO)=C:Program FilesAutoCAD 2006;Preferences(RO)=#;StatusId(RO)=.Indexed contents not shown.;VBE(RO)=AutoCAD:Problem in loading VBA;Version(RO)=16.2s(LMS Tech);Visible=-1;Width=1020;WindowLeft=2;WindowState=1;WindowTop=2,;Methods supported:;Eval(1);GetAcadState();
8、GetInterfaceObject(1);ListArx();LoadArx(1);LoadDVB(1);Quit();RunMacro(1);UnloadArx(1);UnloadDVB(1);Update();ZoomAll(),;ZoomCenter(2);ZoomExtents();ZoomPickWindow();ZoomPrevious();ZoomScaled(2);ZoomWindow(2),在Property values（属性）部份列出了AutoCAD应用程序具有ActiveDocument（活动的文档）、Application（应用程序的指针）、Caption（标题）、
9、FullName（可执行文件名）等属性。其中标记为#的属性是VLA对象。例如，ActiveDocument（活动的文档）、Documents（一般文档）、MenuBar(菜单条)、MenuGroups(菜单组)和Preferences(设置)这些对象属于VLA对象，它们可以被继续访问，引出下一级ActiveX对象，了解它们的属性和方法。带有标记(RO)的属性是只读的，不能被修改，例如属性Caption(RO)=AutoCAD 2006 Drawing1.dwg，表示AutoCAD应用程序的标题是AutoCAD 2006 Drawing1.dwg，它是只读的，不能被修改。在Methods sup
10、ported(支持的方法)部份列出了可以对过AutoCAD应用程序施加Eval、GetAcadState、GetInterface Object等操作。,10.2.2访问其他AutoCAD对象 获取AutoCAD应用程序这个根对象之后，沿着AutoCAD对象模型图，就可以将其作为起点，逐级访问它的下一级VLA对象。获取AutoCAD应用程序之外的对象，是一个前缀为vla-get-的函数，格式如下：（vla-get-property object）参数object必须是VLA对象，property是object的VLA对象类型的属性。该属性可通过vlax-dump-object函数获得。假定本作
11、业依次绘制了一条起点为(10,20)终点为(60,20)的直线和圆心为(35,20)半径为25的一个圆。按照以下步骤，可以沿着AutoCAD对象模型图所示的AutoCAD应用程序活动文档模型空间图形对象的顺序，访问这条直线和这个圆。,1.获取AutoCAD应用程序对象(setq myacad(vlax-get-acad-object);返回AutoCAD应用程序的指针#，将其赋给变量myacad。2.了解AutoCAD应用程序的属性(vlax-dump-object myacad);返回的属性信息中有以下一行:;ActiveDocument=#。ActiveDocument是AutoCAD应用
12、程序的属性之一，也是AutoCAD应用程序的下一级VLA对象。3.获取活动文档程序对象(setq mydoc(vla-get-ActiveDocument myacad);返回活动文档的指针#，将其赋给变量mydoc。,4.了解活动文档的属性(vlax-dump-object mydoc)返回的属性信息中有以下一行：;ModelSpace(RO)=#。ModelSpace是活动文档的属性之一，也是活动文档的下一级VLA对象。5.获取模型空间对象(setq myms(vla-get-ModelSpace mydoc)返回模型空间的指针#，将其赋给变量myms。6.了解活动文档的属性和方法(vla
13、x-dump-object myms t)返回的属性信息中有以下一行：;Count(RO)=2。说明该模型空间当前有两个图形对象。返回的方法信息中有Add3Dface、Add3Dmesh、Add3Dpoly、AddArc、AddAttribute、AddBox、AddCircle、Item等许多方法。其中 Item是根据序号获取图形对象，第一个图形对象的序号为0。,7.获取模型空间的第一个图形对象(setq myline(vla-item myms 0)返回第一个图形对象,即这条直线的指针#，将其赋给变量myline。8.了解这条直线的属性和方法(vlax-dump-object myline
14、 t)返回有关这条直线属性的信息如下：;Property values:;Angle(RO)=0.0;Application(RO)=#;Delta(RO)=(50.0 0.0 0.0);Document(RO)=#;EndPoint=(60.0 20.0 0.0),;Handle(RO)=81;HasExtensionDictionary(RO)=0;Hyperlinks(RO)=#;Layer=0;Length(RO)=50.0;Linetype=ByLayer;LinetypeScale=1.0;Lineweight=-1;Normal=(0.0 0.0 1.0);ObjectID(RO
15、)=2129985160;ObjectName(RO)=AcDbLine;OwnerID(RO)=2129984760;PlotStyleName=ByLayer;StartPoint=(10.0 20.0 0.0);Thickness=0.0;TrueColor=#;Visible=-1,从以上有关这条直线属性的信息中，可以了解到这条直线与X轴正方向夹角为0、三个坐标的增量分别是(50.0 0.0 0.0)、终点坐标是(60.0 20.0 0.0)、句柄是81、所在图层的名字是0、长度为50.0、线型名是ByLayer、线型比例为1.0、线宽为-1（默认）、厚度方向为(0.0 0.0 1.0
16、)、打印样式名是ByLayer、起点坐标是(10.0 20.0 0.0)、厚度为 0.0。返回这条直线的有关方法的信息如下：;Methods supported:;ArrayPolar(3);ArrayRectangular(6);Copy();Delete();GetBoundingBox(2);GetExtensionDictionary(),;GetXData(3);Highlight(1);IntersectWith(2);Mirror(2);Mirror3D(3);Move(2);Offset(1);Rotate(2);Rotate3D(3);ScaleEntity(2);SetXD
17、ata(2);TransformBy(1);Update(),从以上有关这个圆有关方法的信息中，可以了解到对这个圆可以施加ArrayPolar（环形阵列）、ArrayRectangular（矩形阵列）、Copy（复制）、Delete（删除）、GetBoundingBox(包容盒)、GetExtensionDictionary(获取延长方向)、GetXData(获取扩展数据)、Highlight(高亮显示)、IntersectWith(交点)、Mirror(镜像)、Mirror3D(三维镜像)、Move(平移)、Offset(等距)、Rotate(旋转)、Rotate3D(三维旋转)、Scale
18、Entity(比例缩放)、SetXData(设置扩展数据)、TransformBy(变换)、Update(更新)这些操作。,9.获取模型空间的第二个图形对象(setq mycircle(vla-item myms 1)返回第二个图形对象,即圆的指针#，将其赋给变量myline。10.了解这个圆的属性和方法(vlax-dump-object mycircle t)返回有关这个圆的属性信息中大部分与直线相同，不同的部份有Area（面积）=1963.5、Center（圆心）=(35.0 20.0 0.0)、Circumference（周长）=157.08、Diameter（直径）=50.0和Radi
19、us（半径）=25.0。返回有关这个圆的方法信息中与直线完全相同。,10.2.3 使用检验工具了解AutoCAD对象的属性 上一节介绍了通过函数了解AutoCAD对象和这些对象的属性与方法，本节介绍利用检验工具了解AutoCAD对象的属性。按照上一节的顺序用检验工具了解AutoCAD应用程序、活动文档、模型空间和图形对象的步骤如下：1.获取AutoCAD应用程序对象(setq myacad(vlax-get-acad-object)返回AutoCAD应用程序的指针#，将其赋给变量myacad。,2.了解AutoCAD应用程序对象 要了解VLA对象的属性，首先选取择指向该对象的变量。选取myac
20、ad，然后单击按钮，将弹出图10-2 所示AutoCAD应用程序的检验窗口。,图10-2 AutoCAD应用程序的检验窗口,3.了解活动文档的属性 双击上图所示AutoCAD应用程序的检验窗口的Active Document属性，将弹出图10-3所示活动文档的检验窗口。,图10-3 活动文档的检验窗口,4.了解模型空间的属性 双击活动文档的检验窗口的ModelSpace属性，将弹出图10-4所示模型空间检验窗口。在该窗口可以看到属性Count的值为2，说明在模型空间当前有两个图形对象。,图10-4 模型空间检验窗口,5.了解直线的属性 由于模型空间的检验窗口没有直线的VLA对象，所以必须以下表
21、达式获取这条直线的VLA对象。(setq myacad(vlax-get-acad-object)(setq mydoc(vla-get-ActiveDocument myacad)(setq myms(vla-get-ModelSpace mydoc)(setq myline(vla-item myms 0)以上表达式获取了这条直线的VLA对象的指针，并将其赋给了myline变量。选取myline，然后单击按钮，将弹出图10-5所示这条直线的检验窗口。,图10-5 直线的检验窗口,6.了解圆的属性 同样的理由，必须以下表达式获取这个圆的VLA对象。(setq mycircle(vla-ite
22、m myms 1),图10-6 圆的检验窗口,以上表达式获取了这个圆的对象的指针，并将其赋给了mycircle变量。选取mycircle，然后单击按钮，将弹出图10-6所示这个圆的检验窗口。不难看出，用检验窗口显示有关VLA对象的属性，与10.2.1节通过vlax-dump-object函数显示有关VLA对象的属性基本相同。,10.2.4通过Help功能了解AutoCAD对象通过Help功能了解AutoCAD对象的步骤是：在VLISP环境下，按功能键F1；在随后显示的AutoCAD 2006 Help:Developer Documentation对话框的目录选项卡内双击；在展开的目录树上双击
23、；在Objects目录下双击AutoCAD图形对象，例如双击，即可显示图107所示有关直线对象方法和属性的信息。,图107有关直线对象方法和属性的帮助信息,以上帮助信息告诉用户创建一条直线用Addline方法，编辑直线用第一列显示的各种方法，第二列显示了直线的全部属性。至此已介绍了了解AutoCAD对象的属性通过帮助功能显示的不难看出，用检验窗口显示有关VLA对象的属性，与10.2节通过vlax-dump-object函数显示有关VLA对象的属性基本相同。10.3 在Visual LISP函数中使用ActiveX方法10.3.1通过Help功能详细了解AutoCAD图形对象的方法 上一节的帮助
24、功能和10.2节的vlax-dump-object函数都提供了AutoCAD图形对象的方法，但这只是一些方法的名称，下面以了解创建一条直线的Addline方法为例，介绍详细了解AutoCAD图形对象的方法。双击图107所示有关直线对象帮助信息中的蓝色带下划线的超文本Addline，显示有关创建直线的语法，见图108。,图108创建直线的语法,对于Visual LISP的用户来说，该语法很陌生，因为它是为Visual Basic用户定义的。在Visual Basic环境下，AddLine的语法定义如下：RetVal=object.AddLine(StarPoint,EndPoint)其中obje
25、ct是模型空间、图纸空间或图块对象的集合，StarPoint、EndPoint是Variant（3个双精度类型元素组成的变体）的数据类型，返回值是直线对象。因此确定Visual LISP函数的创建直线的方法还需要做以下两件事：（1）将Visual Basic环境下的语句改写为AutoLISP表达式。（2）将AutoLISP的数据转换为ActiveX所需类型的数据。,10.3.2 将Visual Basic环境下的语句改写为AutoLISP表达式 先分析Visual Basic环境下的语句：RetVal=object.AddLine(StartPoint,EndPoint)RetVal是返回值，
26、object是AddLine的上一级对象，StartPoint和EndPoint是AddLine函数的参数。在VLISP ActiveX环境下，模型空间是直线对象的上一级对象，模型空间对象作为AddLine的第一个参数，StartPoint和EndPoint作为AddLine 的其余参数。返回值赋给变量myline。valx-3d-point是VLISP ActiveX的函数，其功能是将AutoLISP的3维点转换为ActiveX要求的变体类型的数据。,采用AutoLISP表达式为：(setq myline(vla-addline myms(vlax-3d-point(10 20)(vlax-
27、3d-point(80 30)其中myms是模型空间对象的指针，获取该指针的表达式如下：(setq myacad(vlax-get-acad-object)(setq mydoc(vla-get-ActiveDocument myacad)(setq myms(vla-get-ModelSpace mydoc)vlax-3d-point是VLISP ActiveX的函数，其功能是将AutoLISP的2维或3维点转换为ActiveX要求的变体类型的数据。二者的转换关系见图10-9。,图10-9 Visual Basic环境下的语句与AutoLISP表达式的对应关系,整数 实数 字符串 VLA对象
28、 变体 安全数组:vlax_true:vlax_false单字节字符+布尔类型+整数+长整数+单精度实数+双精度实数+对象+字符串+变体+数组+,10.3.3 ActiveX能够自动进行转换的AutoLISP的一些数据类型 AutoLISP和ActiveX有些数据类型的定义是类似的，当ActiveX遇到这样类型的数据时，能够自动进行转换。表10-1所示为ActiveX要求的数据类型和Auto LISP数据类型的关系表。表的第1列为ActiveX要求的数据类型，表的第1行为AutoLISP的数据类型。如果表格的交叉处有加号(+)，表示这样的ActiveX数据类型时可以直接使用相应的AutoLIS
29、P数据类型。,表10-1 AutoLISP数据类型和ActiveX数据类型的关系,10.3.4 VLISP扩充的数据类型 为了实现ActiveX的功能，VLISP扩充了一些数据类型，这些数据类型是以前AutoLISP所没有的。1.变体（variant）要想使用ActiveX方法，就必须遵守它的数据声明的规则。对于数量、高度、半径这些数据ActiveX允许AutoLISP使用整型或实型的数据，它可以自动将其转换为长整数或双精度的数据类型，见表10-1。对于起点、终点、圆心这些数据必须经过必要的转换，才能为ActiveX所用。变体实质上是自定义的数据结构，它可以包括不同类型的数据。例如字符串、整数
30、和数组都可以表示为变体。变体的主要特点是数据的类型和值存放在一起。这种自定义的特点，在向ActiveX服务器传递参数时非常有用，因为它使得基于任何语言的服务器都能理解这样的数据。,（1）创建变体 创建变体用vlax-make-variant函数，调用的格式如下：(vlax-make-variant 值 类型)如果省略参数的值和类型，创建的变体将为vlax-vbEmpty类型（未初始化）。类型是指变体的类型，见表10-2。表示变体的类型时，可以用它的值，如整型用2，也可以用预定义的类型常量，如vlax-vbInteger，最好用预定义的类型常量，因为在后续的AutoCAD版本中类型的值可能会有变
31、化。该函数返回的值为所创建的变体。如果省略参数类型，该函数根据LISP数据值的类型来确定默认的ActiveX数据类型，见表10-3。,类型 值 含义Vlax-vbEmpty 预定义的变体0 未初始化（默认值）Vlax-vbNull 1 空数据Vlax-vbInteger 2 整数型Vlax-vbLong 3 长整数型Vlax-vbSingle 4 单精度浮点数Vlax-vbDouble 5 双精度浮点数Vlax-vbString 8 字符串Vlax-vbObject 9 对象Vlax-vbBoolean 11 布尔值Vlax-vbArray 8192 数组,表10-2 预定义的变体类型及其含义
32、,LISP数据值的类型 默认的数据类型Nil vlax-vbEmptyvlax-null vlax-vbNullInteger vlax-vbLongReal vlax-vbDoubleString vlax-vbStringVLA-object vlax-vbObjectvlax-true、vlax-false vlax-vbBooleanVariant 与初始值的类型相同vlax-make-safearray vlax-vbArray,表10-3 LISP数据类型与默认的ActiveX数据类型对照表,以下是一些创建变体的表达式：(setq varnil(vlax-make-variant)
33、;返回#，创建了未初始化的变体，变体的类型为0即vlax-vbEmpty，值为nil。(setq varint(vlax-make-variant 50 vlax-vbInteger);返回#，创建了整型变体，变体的类型为2即vlax-vbInteger，值为50。(setq varlng(vlax-make-variant 5);返回#，创建了长整型变体，变体的类型为3即vlax-vbLong，值为5。(setq varstr(vlax-make-variant tsinghua);返回#，创建了字符串类型的变体，变体的类型为8即vlax-vbString，值为tsinghua。,（2）了解
34、变体的数据类型了解变体的数据类型用vlax-variant-type函数，返回变体的数据类型见表10-2。调用的格式如下：(vlax-variant-type varnil变体类型的数据)例如(vlax-variant-type varnil)；返回nil(vlax-variant-type varint)；返回2即vlax-vbInteger(vlax-variant-type varstr)；返回8即vlax-vbString（3）了解变体的值了解变体的值用vlax-variant-value函数，调用的格式如下：(vlax-variant-value 变体类型的数据)例如(vlax-va
35、riant-value varnil)；返回nil(vlax-variant-value varint)；返回50(vlax-variant-value varstr)；返回tsinghua,（4）改变变体的数据类型 改变变体的数据类型用vlax-variant-change-type函数，数据类型见表10-2，返回转换为指定变体类型后的值，如果不能将var转换为指定类型，则返回nil。调用的格式如下：(vlax-variant-change-type 变体类型的数据 新类型)例如，将名为varint的变量的值设为变体：(setq varint(vlax-make-variant 5);返回#
36、将名为 varintstr 的变量设置为 varint 中包含的值，但将该值转换为字符串：(setq varintStr(vlax-variant-change-type varint vlax-vbstring);返回#检查 varintstr 的值：_$(vlax-variant-value varintStr);返回5这说明 varintstr 中确实包含字符串。,2.安全数组 在VLISP中，有可能与一些强制数据类型的编译型应用程序进行数据交换，而这样的程序不可能直接接受AutoLISP特有的表的数据类型，比如ActiveX，为了解决这个矛盾，VLISP设立了安全数组这一数据类型。安全
37、数组是一种特殊的数组。它限制了不能在数组的边界之外赋值，因此不会引起数据异常，所以这类数组是安全的。（1）创建安全数组 创建安全数组用vlax-make-safearray函数，调用的格式如下：(vlax-make-safearray 类型(下限.上限)(下限.上限).)该函数要求至少有两个参数，第一个参数是确定该数组中元素的数据类型，可确定的数据类型及其预定义的数据类型如表10-4所示。,表10-4 可作为安全数组的预定义的数据类型,预定义的变体类型 值 含 义vlax-vbInteger 2 整数Vlax-vbLong 3 长整数Vlax-vbSingle 4 单精度浮点数Vlax-vbD
38、ouble 5 双精度浮点数Vlax-vbString 8 字符串Vlax-vbObject 9 对象Vlax-vbBoolean 11 布尔类型Vlax-vbVariant 12 变体,由于它们的值在AutoCAD以后的版本中可能会作修改，所以应该使用预定义的常量，而不要直接使用常量所对应的数值。该函数的其他参数如，(下限.上限)(下限.上限).，为确定数组每维的上下限。其中第一个点对确定第一维的上下限，余类推。下限可为0或任何正负整数。不同的维可以有不同的边界。该函数可创建最多16维的数组。返回值为创建的安全数组。以下是一些创建安全数组的表达式：(setq p1(vlax-make-saf
39、earray vlax-vbDouble(0.2)；返回#，该例创建一个名字为p1的一维数组，下限标为0，上限为2，所以该数组可以存储三个数据为双精度的实数。(setq mt2(vlax-make-safearray vlax-vbString(0.1)(1.3)；返回#，创建一个名字为mt2的二维字符串数组，第一维下限为0，上限为1，包括两个元素，第二维下限为1，上限为3包括三个元素。,新创建的数组中的元素按如表10-5所示方式初始化。,表10-5 新创建的数组中的元素初始化方式,数据类型 初始值数值 0字符串 零长度字符串。布尔值 vlax-false 对象 nil 变体 未初始化(vla
40、x-vbEmpty),（2）为整个安全数组赋值 为整个安全数组赋值用vlax-safearray-fill函数，调用的格式如下：(vlax-safearray-fill 变量 数值表)参数变量必须是安全数组类型的变量，数值表是数值类型的表，表的长度必须等于数组元素的个数。该函数返回#。例如，已创建了一个名字为p1的一维数组，下限为0，上限为2，所存数据为双精度实数。用vlax-safearray-fill函数填满该数组：(vlax-safearray-fill p1(1 2 3);返回#,如果赋值的元素的数目与数组所包含元素的数目不等，vlax-safearray-fill函数返回出错信息。例
41、如：(vlax-safearray-fill p1(1 2 3 4)；返回 error:vlax-safearray-fill failed.Invalid initialization list.错误：函数失败，无效的设置初值的表。对于多维数组，数值表必须为表的列表，其中每个表对应于数组中的一维。例如已创建了一个名字为mt2的二维字符串数组，第一维下限为0，上限为1，包括两个元素，第二维下限为1，上限为3包括三个元素。用vlax-safearray-fill函数填满该数组：(vlax-safearray-fill mt2(a b c)(d e f);返回#,（3）列出安全数组的内容 列出安全
42、数组的内容用vlax-safearray-list函数，调用的格式如下：(vlax-safearray-list 安全数组)例如(vlax-safearray-list p1);返回(1.0 2.0 3.0)(vlax-safearray-list mt2);返回(a b c)(d e f)（4）为安全数组内指定的元素赋值 为安全数组内指定的元素赋值用vlax-safearray-put-element函数，调用的格式如下：(vlax-safearray-put-element 变量 索引.)参数变量的类型为SafeArray的变量；对于一维数组，应指定一个索引值，对于二维数组，应指定两个索引
43、值，依此类推；值是赋给安全数组内指定的元素元素的值；返回指定给数组元素的值。例如，已创建了名字为p1的由双精度数据构成的一维数组，数组的下界为0，上界为2。用vlax-safearray-put-element填满该数组：,(vlax-safearray-put-element p1 0 10)；返回10，将数组p1的第1个元素赋值为10(vlax-safearray-put-element p1 1 20)；返回20，将数组p1的第2个元素赋值为20(vlax-safearray-put-element p1 2 30)；返回30，将数组p1的第3个元素赋值为30调用 vlax-safear
44、ray-list 函数确认p1的内容：返回(10.0 20.0 30.0)对于二维数组，应指定两个索引值。例如已创建了名字为mt2的由字符串构成的二维数组，第一维下限为0，上限为1，包括两个元素，第二维下限为1，上限为3包括三个元素。每个维的下界为1，上界为2。用vlax-safearray-put-element填满该数组：(vlax-safearray-put-element mt2 0 1 a1)；返回a1(vlax-safearray-put-element mt2 0 2 b2)；返回b2(vlax-safearray-put-element mt2 0 3 c3)；返回c3(vla
45、x-safearray-put-element mt2 1 1 d4)；返回d4(vlax-safearray-put-element mt2 1 2 e5)；返回e5(vlax-safearray-put-element mt2 1 3 f6)；返回f6调用 vlax-safearray-list 函数确认mt2的内容：(vlax-safearray-list mt2)；返回(a1 b2 c3)(d4 e5 f6),（5）在变体中使用安全数组 安全数组的数据必须用变体传给ActiveX。如果需要为一个数组创建一个变体，就必须先创建数组再转换成变体。例如创建一个包含5个双精度实数数组的变体的步
46、骤如下：给数组分配空间(setq a5(vlax-make-safearray vlax-vbDouble(0.4)给数组赋值(vlax-safearray-fill a5(1.1 2.2 3.3 4.4 5.5)将数组存储到变体(setq vara5(vlax-make-variant a5)；返回#这样变量vara5就是一个包含具有5个双精度实数的数组的变体。,（6）用函数vlax-3d-point来创建ActiveX要求的三维点 用vlax-3d-point函数可以将3个数字的表转换为三维点。调用的格式如下：(vlax-3d-point 三维点表、二维点表、3个数字或2个数字)例如以下表
47、达式都可以将创建ActiveX要求的三维点赋给变量CircleCenter。(setq CircleCenter(vlax-3d-point(12.5 10 0)；返回#(setq CircleCenter(vlax-3d-point(12.5 10)；返回#(setq CircleCenter(vlax-3d-point 12.5 10 0)；返回#(setq CircleCenter(vlax-3d-point 12.5 10)；返回#也可传给 vlax-3d-point 两个或三个数（而不是表），例如：如果省略参数中的第三个数（即点的 Z 坐标），vlax-3d-point函数将其设置为
48、0。用vlax-safearray-list函数验证用vlax-3d-point函数设置的变量的内容：(vlax-safearray-list(vlax-variant-value circcenter)；返回(12.5 10.0 0.0),10.3.5 AutoCAD实体名和VLA对象之间的转换1.将AutoCAD实体名转换为VLA对象 函数vlax-ename-vla-object可以将AutoCAD实体名转换为VLA对象。调用格式如下：(vlax-ename-vla-object AutoCAD实体名)返回值为VLA对象。例如，以下表达式获取了当前作业的第一个图形对象的图元名：(setq
49、 e1(entnext)；返回调用vlax-ename-vla-object函数将该图元名转换成VLA对象：(setq vla-object(vlax-ename-vla-object e1)；返回#,2.将VLA图形对象转换为AutoCAD实体名 函数vlax-vla-object-ename可以将VLA对象转换为AutoCAD实体名。调用格式如下：(vlax-vla-object-ename VLA图形对象)返回值为AutoCAD实体名。例如，vla-object是标识一个图形对象的VLA 对象，以下表达式可以将该VLA对象转换为AutoCAD实体名：(setq new-ename(vla
50、x-vla-object-ename vla-object)；返回,2.将VLA图形对象转换为AutoCAD实体名 函数vlax-vla-object-ename可以将VLA对象转换为AutoCAD实体名。调用格式如下：(vlax-vla-object-ename VLA图形对象)返回值为AutoCAD实体名。例如，vla-object是标识一个图形对象的VLA 对象，以下表达式可以将该VLA对象转换为AutoCAD实体名：(setq new-ename(vlax-vla-object-ename vla-object)；返回 假定以(100 80)为圆心，以50为半径绘制了一个圆，并且将获取
