紧急求助：谁能编一个框选水平直线、竖直直线的LISP透明命令

Andyhon

Sorry! 没用2009

Try this:

(defun ax:GetBoundingBox (ent / ll ur)
   (vla-getboundingbox (vlax-ename->vla-object ent) 'll 'ur)
   (mapcar 'vlax-safearray->list (list ll ur))
)

以ax:GetBoundingBox取代acet-ent-geomextents