（XD::Entity:GroupsMaxBoxAtUcs）获取实体所有组里面最大面积组包围盒

newer

1. ;|
   
2. 获取实体所有组里面最大面积组包围盒
   
3. 参数： e --- 实体名
   
4.        xdir -- UCS X轴向量， 给 T，对齐世界坐标系
   
5. 返回值： UCS点表
   
6. 
   
7. 命令: (setq box (XD::ENTITY:GROUPSMAXBOXATUCS e '(1.0 0.0 0.0)))
   
8. ((1219.48 470.098 0.0) (3111.85 470.098 0.0) (3111.85 1676.3 0.0) (1219.48
   
9. 1676.3 0.0))
   
10. |;
    
11. (defun XD::Entity:GroupsMaxBoxAtUcs (e xdir / box gs x)
    
12.   (if (setq gs (XD::Entity:GroupName e t))
    
13.     (progn
    
14.       (cadar (XD::List:Sort (mapcar
    
15.                               '(lambda (x)
    
16.                                  (setq box (XD::Group:BoxAtUcs (cadr x) xdir))
    
17.                                  (list (abs (apply 'xdrx_points_area box)) box)
    
18.                                )
    
19.                               gs
    
20.                             ) '>
    
21.              )
    
22.       )
    
23.     )
    
24.   )
    
25. )

;|<br /> 获取实体所有组里面最大面积组包围盒<br /> 参数： e --- 实体名<br />        xdir -- UCS X轴向量， 给 T，对齐世界坐标系<br /> 返回值： UCS点表<br /> <br /> 命令: (setq box (XD::ENTITY:GROUPSMAXBOXATUCS e '(1.0 0.0 0.0)))<br /> ((1219.48 470.098 0.0) (3111.85 470.098 0.0) (3111.85 1676.3 0.0) (1219.48 <br /> 1676.3 0.0))<br /> |;<br /> (defun XD::Entity:GroupsMaxBoxAtUcs (e xdir / box gs x)<br />   (if (setq gs (XD::Entity:GroupName e t))<br />     (progn<br />       (cadar (XD::List:Sort (mapcar<br />                               '(lambda (x)<br />                                  (setq box (XD::Group:BoxAtUcs (cadr x) xdir))<br />                                  (list (abs (apply 'xdrx_points_area box)) box)<br />                                )<br />                               gs<br />                             ) '><br />              )<br />       )<br />     )<br />   )<br /> )