（XD::Group:BoxAtUcs）获得组的沿着指定X轴的包围盒

newer

1. ;|
   
2. 获得组的沿着指定X轴的包围盒
   
3. 参数： gn --- 组名 or 组实体名
   
4.        xdir --向量 如果给T，对齐世界坐标系X轴
   
5. 
   
6. 返回值： UCS点表
   
7. |;
   
8. (defun XD::Group:BoxAtUcs (gn xdir / ss)
   
9.   (if (= xdir T)
   
10.     (setq xdir '(1.0 0.0 0.0))
    
11.   )
    
12.   (if (and (= (type gn) 'ENAME)
    
13.            (= (xdrx_getpropertyvalue gn "isA") "AcDbGroup")
    
14.       )
    
15.     (setq gn (xdrx_getpropertyvalue gn "name"))
    
16.   )
    
17.   (if (and
    
18.         (xdrx_object_get "group" gn)
    
19.         (setq xdir (xdrx_vector_normalize xdir))
    
20.         (setq ss (xdrx_group->pickset gn))
    
21.       )
    
22.     (XD::Entity:BoxAtEcs ss xdir)
    
23.   )
    
24. )

;|<br /> 获得组的沿着指定X轴的包围盒<br /> 参数： gn --- 组名 or 组实体名<br />        xdir --向量 如果给T，对齐世界坐标系X轴<br /> <br /> 返回值： UCS点表<br /> |;<br /> (defun XD::Group:BoxAtUcs (gn xdir / ss)<br />   (if (= xdir T)<br />     (setq xdir '(1.0 0.0 0.0))<br />   )<br />   (if (and (= (type gn) 'ENAME)<br />            (= (xdrx_getpropertyvalue gn "isA") "AcDbGroup")<br />       )<br />     (setq gn (xdrx_getpropertyvalue gn "name"))<br />   )<br />   (if (and<br />         (xdrx_object_get "group" gn)<br />         (setq xdir (xdrx_vector_normalize xdir))<br />         (setq ss (xdrx_group->pickset gn))<br />       )<br />     (XD::Entity:BoxAtEcs ss xdir)<br />   )<br /> )