lilq_78 发表于 2005-4-20 19:57:00

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

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

xjjy 发表于 2006-1-15 11:22:00

(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))
)
页: [1]
查看完整版本: [求助]怎样得到一个选择集的最大外形?