[VLISP函数]：调整实体显示顺序

eachy

2. 
   
3. VxSetDrawOrder - Changes draw order of object(s) by given method
   
4. 
   
5. ;
   
6. ; -- Function VxSetDrawOrder
   
7. ; Changes draw order of object(s) by given method.
   
8. ; Copyright:
   
9. ;   ©2004 MENZI ENGINEERING GmbH, Switzerland
   
10. ; Arguments [Type]:
    
11. ;   Obl = Object list [LIST]
    
12. ;   Tob = Target object [VLA-OBJECT] *)
    
13. ;         or nil
    
14. ;   Mde = Draw order method [SYMBOL]
    
15. ;         Methods:
    
16. ;         - 'MoveToTop
    
17. ;         - 'MoveToBottom
    
18. ;         - 'MoveAbove
    
19. ;         - 'MoveBelow
    
20. ; Return [Type]:
    
21. ;   - True =  VxSetDrawOrder succeed [BOOLEAN]
    
22. ;   - False = VxSetDrawOrder failed [BOOLEAN]
    
23. ; Notes:
    
24. ;   *) Draw order methods 'MoveAbove and 'MoveBelow require
    
25. ;      a target object (Tob) as target of the draw order.
    
26. ;   - AutoCAD 2k5+ only (Bug? <2k5 missing class 'AcDbSortentsTable')
    
27. ;
    
28. (defun VxSetDrawOrder (Obl Tob Mde / ExtDic SreTbl)
    
29. (or Gb:AcO (setq Gb:AcO (vlax-get-acad-object)))
    
30. (or Gb:AcD (setq Gb:AcD (vla-get-ActiveDocument Gb:AcO)))
    
31. (setq ExtDic (vla-GetExtensionDictionary (vla-get-ModelSpace Gb:AcD)))
    
32. (if (vl-catch-all-error-p
    
33.       (setq SreTbl (vl-catch-all-apply
    
34.                     'vla-Item (list ExtDic "ACAD_SORTENTS")
    
35.                    )
    
36.       )
    
37.      )
    
38.   (setq SreTbl (vla-AddObject ExtDic "ACAD_SORTENTS" "AcDbSortentsTable"))
    
39. )
    
40. (cond
    
41.   ((vl-position Mde '(MoveToTop MoveToBottom))
    
42.    (not (vlax-Invoke SreTbl Mde Obl))
    
43.   )
    
44.   (Tob
    
45.    (not (vlax-Invoke SreTbl Mde Obl Tob))
    
46.   )
    
47. )
    
48. )

<br /> VxSetDrawOrder - Changes draw order of object(s) by given method<br /> <br /> ;<br /> ; -- Function VxSetDrawOrder<br /> ; Changes draw order of object(s) by given method.<br /> ; Copyright:<br /> ;   &#169;2004 MENZI ENGINEERING GmbH, Switzerland<br /> ; Arguments [Type]:<br /> ;   Obl = Object list [LIST]<br /> ;   Tob = Target object [VLA-OBJECT] *)<br /> ;         or nil<br /> ;   Mde = Draw order method [SYMBOL]<br /> ;         Methods:<br /> ;         - 'MoveToTop<br /> ;         - 'MoveToBottom<br /> ;         - 'MoveAbove<br /> ;         - 'MoveBelow<br /> ; Return [Type]:<br /> ;   - True =  VxSetDrawOrder succeed [BOOLEAN]<br /> ;   - False = VxSetDrawOrder failed [BOOLEAN]<br /> ; Notes:<br /> ;   *) Draw order methods 'MoveAbove and 'MoveBelow require<br /> ;      a target object (Tob) as target of the draw order.<br /> ;   - AutoCAD 2k5+ only (Bug? <2k5 missing class 'AcDbSortentsTable')<br /> ;<br /> (defun VxSetDrawOrder (Obl Tob Mde / ExtDic SreTbl)<br /> (or Gb:AcO (setq Gb:AcO (vlax-get-acad-object)))<br /> (or Gb:AcD (setq Gb:AcD (vla-get-ActiveDocument Gb:AcO)))<br /> (setq ExtDic (vla-GetExtensionDictionary (vla-get-ModelSpace Gb:AcD)))<br /> (if (vl-catch-all-error-p<br />       (setq SreTbl (vl-catch-all-apply<br />                     'vla-Item (list ExtDic "ACAD_SORTENTS")<br />                    )<br />       )<br />      )<br />   (setq SreTbl (vla-AddObject ExtDic "ACAD_SORTENTS" "AcDbSortentsTable"))<br /> )<br /> (cond<br />   ((vl-position Mde '(MoveToTop MoveToBottom))<br />    (not (vlax-Invoke SreTbl Mde Obl))<br />   )<br />   (Tob<br />    (not (vlax-Invoke SreTbl Mde Obl Tob))<br />   )<br /> )<br /> )

zqw_zhang

CAD不是有这个功能么？？

小菜

怎样对一个实体表按draworder进行排序呢？

yc1122

哪位兄弟能给做个简单介绍?

176489156

是不是前置的一样

wkq004

小菜 发表于 2006-8-4 16:10

问的好,同问

wkq004

有时.有红绿两条重线,显示的是红线,但鼠标点取时拾取到的是绿线,,能否用lisp的方式实现,点选的线就是显示的线,,