第10章AutoLISP和Visual_LISP_精品.pptVIP

从图10-10可以看到，用GetBoundingBox方法可以获取图形对象边界框的左下角点MinPoint和右上角点MaxPoint。这两个点是在WCS下的三维坐标。 假定最后生成的实体是以（200，100）为圆心，以50为半径的圆。用GetBoundingBox方法获取该圆边界框的左下角点MinPoint和右上角点MaxPoint。 （1）获取该圆的实体名 (setq ec(entlast)) ；返回Entity name: 7ef67e98 （2）将该圆转换为VLA对象 (setq mycircle(vlax-ename-vla-object ec)) ；返回#VLA-OBJECT IAcadLine 011bf2d4 * （3）用GetBoundingBox方法获取该圆边界框的左下角点MinPoint和右上角点MaxPoint (vla-getboundingbox myCircle minpoint maxpoint)；返回nil vla-getboundingbox函数将该圆边界框的左下角点和右上角点的坐标存放在变量minpoint和maxpoint变量。这两个变量，是含有三个双精度实数的安全数组的类型。 （4）用函数vlax-safearray-list查看minpoint和maxpoint的值 (setq p1(vlax-safearray-list minpoint))；返回(150.0 3.0 0.0) (setq p2(vlax-safearray-list maxpoint))；返回(190.0 20.0 0.0) * 10.7 判断某方法或属性是否可应用于某对象 如果使用了某对象不能应用的方法或的属性，就会导致错误。如果不能确定属性或方法是否可应用于该对象时，应该用函数vlax-method-applicable-p和vlax-property-available-p对该对象进行测试。如果方法或属性可应用到该对象，这些函数返回T，否则返回nil。 1. 判断某方法是否可应用于某对象 ＃12 通过函数vlax-method-applicable-p可以判断某方法是否可应用于某对象。该函数的调用格式如下： (vlax-method-applicable-p VLA对象 method) 参数method为符号或字符串，指定要检查的方法的名称。如果VLA对象支持该方法，返回T，否则返回nil。 * 例如，以下表达式测试copy方法是否可应用到myline指向的直线对象： (vlax-method-applicable-p myline copy);返回T，说明copy方法可以应用到直线对象 以下表达式测试AddBox方法是否可应用到myline指向的直线对象： (vlax-method-applicable-p myline AddBox)；返回nil，说明AddBox 方法不能应用到直线对象 2. 判断某对象是否具有某属性 通过函数vlax-property-available-p可以判断某对象是否具有某属性。该函数的调用格式如下： (vlax-property-available-p VLA对象 property [check-modify) * 参数property为符号或字符串，指定要检查的属性。如果指定参数check-modify的值为T，该函数还检查VLA对象的指定属性是否可被修改。只要VLA对象具有指定属性，该函数就返回T，否则返回返回nil。如果指定check-modify参数的值为T，而该属性不可用或该属性不能修改，该函数返回nil。 例如，下列表达式测试Color和Center是否是myline具有的属性： (vlax-property-available-p myline Color)；返回T (vlax-property-available-p myline Center)；返回nil 假定myCircle是直线一个圆的VLA对象，如果调用该函数时不提供可选参数T，测试圆的Area属性： (vlax-property-available-p myCircle area)；返回T，说明圆具有area属性 如果调用该函数时可选参数设置为T，测试圆的Area属性： (vlax-property-available-p myCircle area T)；返回T，说明圆具有area属性，而且可以被直接修改。 * 10.8 使用集合对象 集合的概念是在理解AutoCAD对象模型中引入的，在AutoCAD对象模型中的所有对象都是用集合来分组的。例如，块集合是由AutoCAD文档中的所有块组成的。VLISP提供处理集合对象的函数，该类函数有v