Andyhon 发表于 2009-7-31 22:19:00

<p>Sorry! 没用2009</p><p>Try this:</p><p>(defun ax:GetBoundingBox (ent / ll ur)<br/>&nbsp;&nbsp; (vla-getboundingbox (vlax-ename-&gt;vla-object ent) 'll 'ur)<br/>&nbsp;&nbsp; (mapcar 'vlax-safearray-&gt;list (list ll ur))<br/>)</p><p>以ax:GetBoundingBox取代acet-ent-geomextents</p>
页: 1 [2]
查看完整版本: 紧急求助:谁能编一个框选水平直线、竖直直线的LISP透明命令