ucs下，如何求实体外矩形框

pxt2001

2. (defun GETBOX (e1 / obj minpoint maxpoint)
   
3.   (setq obj (vlax-ename->vla-object e1)) ;转换图元名
   
4.   (vla-GetBoundingBox obj 'minpoint 'maxpoint)
   
5.   ;;取得包容图元的最大点和最小点
   
6.   (setq minpoint (vlax-safearray->list minpoint)) ;把变体数据转化为表
   
7.   (setq maxpoint (vlax-safearray->list maxpoint)) ;把变体数据转化为表
   
8.   ;;  (command "box" minpoint maxpoint 2)
   
9.   (setq obj (list minpoint maxpoint))
   
10. )

(defun GETBOX (e1 / obj minpoint maxpoint)<br />   (setq obj (vlax-ename->vla-object e1)) ;转换图元名<br />   (vla-GetBoundingBox obj 'minpoint 'maxpoint)<br />   ;;取得包容图元的最大点和最小点<br />   (setq minpoint (vlax-safearray->list minpoint)) ;把变体数据转化为表<br />   (setq maxpoint (vlax-safearray->list maxpoint)) ;把变体数据转化为表<br />   ;;  (command "box" minpoint maxpoint 2)<br />   (setq obj (list minpoint maxpoint))<br /> )

这段求实体外矩形框的程序，如何在用户坐标系[ucs]下使用？

zyhandw

trans下如何？可以查阅下trans函数

highflybir

http://bbs.mjtd.com/thread-66618-1-1.html

pxt2001

highflybir 发表于 2012-12-15 11:16
http://bbs.mjtd.com/thread-66618-1-1.html

楼上高人，正需要这个！

ygp820601

高手，很有用哦。