Andyhon 发表于 2009-7-31 22:19:00
<p>Sorry! 没用2009</p><p>Try this:</p><p>(defun ax:GetBoundingBox (ent / ll ur)<br/> (vla-getboundingbox (vlax-ename->vla-object ent) 'll 'ur)<br/> (mapcar 'vlax-safearray->list (list ll ur))<br/>)</p><p>以ax:GetBoundingBox取代acet-ent-geomextents</p>
页:
1
[2]