[求助]怎样得到一个选择集的最大外形?

lilq_78

各位高手,帮帮忙,怎样得到一个选择集的最大外形?

xjjy

(defun C:zd ()
  (setq ABC   (car (entsel "\nselect object"))
 VLAOB (vlax-ename->vla-object ABC)
  )
  (vla-getboundingbox VLAOB 'X 'Y)
  (setq B (mapcar 'vlax-safearray->list (list X Y)))
  (command "_.RECTANG" (car B) (cadr B))
)