（XD::Container:MoveTop）实体或者容器内所有实体显示顺序置顶

newer

1. ;|
   
2. 实体或者容器内所有实体显示顺序置顶
   
3. 参数： e --- 容器实体名 or 实体 or 实体表
   
4. 返回值：  t  or nil
   
5. 
   
6. 说明：容器实体包括 块、组、选择集
   
7. |;
   
8. (defun XD::Container:MoveTop (e / ents gn na ss)
   
9.   (cond
   
10.     ((= (type e) 'PICKSET)
    
11.       (xdrx_draworder->top e)
    
12.     )
    
13.     ((= (type e) 'ENAME)
    
14.       (setq na (xdrx_getpropertyvalue e "isA"))
    
15.       (cond
    
16.         ((= na "AcDbGroup")
    
17.           (setq ents (xdrx_getpropertyvalue e "AllEntities"))
    
18.           (xdrx_draworder->top ents)
    
19.         )
    
20.         ((= na "AcDbBlockReference")
    
21.           (xdrx_draworder->top e)
    
22.           (setq ents (xdrx_getpropertyvalue e "AttributeEntities"))
    
23.           (xdrx_draworder->top ents)
    
24.         )
    
25.         (t
    
26.           (xdrx_draworder->top e)
    
27.         )
    
28.       )
    
29.     )
    
30.   )
    
31. )
    
32. 
    

;|<br /> 实体或者容器内所有实体显示顺序置顶<br /> 参数： e --- 容器实体名 or 实体 or 实体表<br /> 返回值：  t  or nil<br /> <br /> 说明：容器实体包括 块、组、选择集<br /> |;<br /> (defun XD::Container:MoveTop (e / ents gn na ss)<br />   (cond<br />     ((= (type e) 'PICKSET)<br />       (xdrx_draworder->top e)<br />     )<br />     ((= (type e) 'ENAME)<br />       (setq na (xdrx_getpropertyvalue e "isA"))<br />       (cond<br />         ((= na "AcDbGroup")<br />           (setq ents (xdrx_getpropertyvalue e "AllEntities"))<br />           (xdrx_draworder->top ents)<br />         )<br />         ((= na "AcDbBlockReference")<br />           (xdrx_draworder->top e)<br />           (setq ents (xdrx_getpropertyvalue e "AttributeEntities"))<br />           (xdrx_draworder->top ents)<br />         )<br />         (t<br />           (xdrx_draworder->top e)<br />         )<br />       )<br />     )<br />   )<br /> )<br /> <br />