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

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

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

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

<P>(defun C:zd ()<BR>&nbsp; (setq&nbsp;ABC&nbsp;&nbsp; (car (entsel "\nselect object"))<BR>&nbsp;VLAOB (vlax-ename-&gt;vla-object ABC)<BR>&nbsp; )<BR>&nbsp; (vla-getboundingbox VLAOB 'X 'Y)<BR>&nbsp; (setq B (mapcar 'vlax-safearray-&gt;list (list X Y)))<BR>&nbsp; (command "_.RECTANG" (car B) (cadr B))<BR>)<BR></P>
<P>&nbsp;</P>
页: [1]
查看完整版本: [求助]怎样得到一个选择集的最大外形?