第10章 在AutoLISP中使用ActiveX对象.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-getbounding