所选图层置顶的代码

beneman

所选图层置顶的代码什么写的？？

edata

_ai_molc           

zmzk

借花献佛,蔡建伟的源码，贴给大家，以供学习！

2. ;; 命令: TCF   图层置顶的LISP程序或前置后置的     
   
3. (defun C:TCF (/ E LAYER MSG OPTION SS)
   
4.   (princ "\n根据图层改变对象绘图顺序")
   
5.   (initget "A U F B")
   
6.   (setq msg "\n排序选项 [对象上(A)/对象下(U)/最前(F)/最后(B)] <最前>: ")
   
7.   (setq option (getkword msg))
   
8.   (or option (setq option "F"))
   
9.   (while (and (setq e (car (entsel)))
   
10.               (setq layer (cdr (assoc 8 (entget e))))
    
11.               (setq ss (ssget "X" (list (cons 8 layer))))
    
12.               (not (command "_.Draworder" ss "" option))
    
13.          )
    
14.   )
    
15.   (princ "\n作者: 蔡建伟 QQ: 95818608")
    
16.   (princ)
    
17. )
    
18. (defun C:TCB (/ E LAYER MSG OPTION SS)
    
19.   (princ "\n根据图层改变对象绘图顺序")
    
20.   (initget "A U F B")
    
21.   (setq msg "\n排序选项 [对象上(A)/对象下(U)/最前(F)/最后(B)] <最后>: ")
    
22.   (setq option (getkword msg))
    
23.   (or option (setq option "B"))
    
24.   (while (and (setq e (car (entsel)))
    
25.               (setq layer (cdr (assoc 8 (entget e))))
    
26.               (setq ss (ssget "X" (list (cons 8 layer))))
    
27.               (not (command "_.Draworder" ss "" option))
    
28.          )
    
29.   )
    
30.   (princ "\n作者: 蔡建伟 QQ: 95818608")
    
31.   (princ)
    
32. )

;; 命令: TCF   图层置顶的LISP程序或前置后置的     <br /> (defun C:TCF (/ E LAYER MSG OPTION SS)<br />   (princ "\n根据图层改变对象绘图顺序")<br />   (initget "A U F B")<br />   (setq msg "\n排序选项 [对象上(A)/对象下(U)/最前(F)/最后(B)] <最前>: ")<br />   (setq option (getkword msg))<br />   (or option (setq option "F"))<br />   (while (and (setq e (car (entsel)))<br />               (setq layer (cdr (assoc 8 (entget e))))<br />               (setq ss (ssget "X" (list (cons 8 layer))))<br />               (not (command "_.Draworder" ss "" option))<br />          )<br />   )<br />   (princ "\n作者: 蔡建伟 QQ: 95818608")<br />   (princ)<br /> )<br /> (defun C:TCB (/ E LAYER MSG OPTION SS)<br />   (princ "\n根据图层改变对象绘图顺序")<br />   (initget "A U F B")<br />   (setq msg "\n排序选项 [对象上(A)/对象下(U)/最前(F)/最后(B)] <最后>: ")<br />   (setq option (getkword msg))<br />   (or option (setq option "B"))<br />   (while (and (setq e (car (entsel)))<br />               (setq layer (cdr (assoc 8 (entget e))))<br />               (setq ss (ssget "X" (list (cons 8 layer))))<br />               (not (command "_.Draworder" ss "" option))<br />          )<br />   )<br />   (princ "\n作者: 蔡建伟 QQ: 95818608")<br />   (princ)<br /> )