[求助]：谁能给我一个图层置顶的LISP程序?

温柔女神

我的CAD经常有问题,绘图顺序失效,现在想自己编写一个程序.
谁能给我一个图层置顶的LISP程序或前置后置的?
提示一下也行,谢谢各位

carrot1983

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

<br /> ;; 命令: TCU<br /> (defun C:TCU (/ 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 /> )<br />

netbee

ET工具就带这个功能了