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

[求助]怎样得到一个选择集的最大外形?
[求助]怎样得到一个选择集的最大外形?
各位高手,帮帮忙,怎样得到一个选择集的最大外形?
(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))
)