求一个图层过滤功能，求大神帮忙，谢谢

thalon

下面代码可以将选择的图元移至指定图层（图层信息存在的前提下），
现在我希望增加一个功能，

在移至指定图层的时候过滤指定的其它图层，怎么把下面图层过滤代码加进去，求大神帮忙，谢谢


图层过滤
(setq ss (ssget(list '(-4 . "<not")(cons 8 layer)'(-4 . "not>"))))

2. ;;;-------------------------------------------------------------------------------------------------------------------
   
3. ;;;★改图元图层
   
4. ;;;  By print1985 明经社区
   
5. ;;;-------------------------------------------------------------------------------------------------------------------
   
6. (vl-load-com)
   
7. ;冷水
   
8. (defun c:sw()(gtc "SP_W"))
   
9. (defun c:sj()(gtc "SJ_J"))
   
10. (defun c:sjs()(gtc "SJ_JS"))
    
11. (defun c:sj1()(gtc "SJ_J1"))
    
12. (defun c:sj2()(gtc "SJ_J2"))
    
13. (defun c:sj3()(gtc "SJ_J3"))
    
14. (defun c:sj4()(gtc "SJ_J4"))
    
15. (defun c:sj5()(gtc "SJ_J5"))
    
16. (defun c:sjl()(gtc "SJSTK"))
    
17. (defun c:sjb()(gtc "SJBLK"))
    
18. (defun c:sj5()(gtc "SJ_J5"))
    
19. 
    
20. ;;;此处省略若干行类似上面的语句！！！
    
21. 
    
22. (defun gtc (tcm /  ss k ent obj);改图层子程序
    
23.   (if (setq ss (ssget))
    
24.    (progn
    
25.     (setq k 0)
    
26.     (repeat (sslength ss)
    
27.      (setq ent (ssname ss k))
    
28.      (setq obj (vlax-ename->vla-object ent))
    
29.      (vla-put-layer obj tcm)
    
30.      (setq k (1+ k))
    
31.     )
    
32.   ))
    
33. (princ)
    
34. )
    
35. 
    

;;;-------------------------------------------------------------------------------------------------------------------<br /> ;;;★改图元图层<br /> ;;;  By print1985 明经社区<br /> ;;;-------------------------------------------------------------------------------------------------------------------<br /> (vl-load-com)<br /> ;冷水<br /> (defun c:sw()(gtc "SP_W"))<br /> (defun c:sj()(gtc "SJ_J"))<br /> (defun c:sjs()(gtc "SJ_JS"))<br /> (defun c:sj1()(gtc "SJ_J1"))<br /> (defun c:sj2()(gtc "SJ_J2"))<br /> (defun c:sj3()(gtc "SJ_J3"))<br /> (defun c:sj4()(gtc "SJ_J4"))<br /> (defun c:sj5()(gtc "SJ_J5"))<br /> (defun c:sjl()(gtc "SJSTK"))<br /> (defun c:sjb()(gtc "SJBLK"))<br /> (defun c:sj5()(gtc "SJ_J5"))<br /> <br /> ;;;此处省略若干行类似上面的语句！！！<br /> <br /> (defun gtc (tcm /  ss k ent obj);改图层子程序<br />   (if (setq ss (ssget))<br />    (progn<br />     (setq k 0)<br />     (repeat (sslength ss)<br />      (setq ent (ssname ss k))<br />      (setq obj (vlax-ename->vla-object ent))<br />      (vla-put-layer obj tcm)<br />      (setq k (1+ k))<br />     )<br />   ))<br /> (princ)<br /> )<br /> <br />

thalon

不要沉啊，大神帮帮忙

w245272914

帮你顶  让大家看到

305341043

强烈支持，

llsheng_73

1. (setq ss (ssget(list '(-4 . "<not")(cons 8 layer)'(-4 . "not>"))));;与下一句同样效果
   
2. (setq ss(ssget(list(cons 8(strcat"~"layer)))))

(setq ss (ssget(list '(-4 . "<not")(cons 8 layer)'(-4 . "not>"))));;与下一句同样效果<br /> (setq ss(ssget(list(cons 8(strcat"~"layer)))))

1. (defun gtc (tcm /  ss);改图层子程序
   
2.   (if(setq ss(ssget(list(cons 8(strcat"~"tcm)))))
   
3.     (command"chprop"ss"""la"tcm"")
   
4.     )
   
5. )

(defun gtc (tcm /  ss);改图层子程序<br />   (if(setq ss(ssget(list(cons 8(strcat"~"tcm)))))<br />     (command"chprop"ss"""la"tcm"")<br />     )<br /> )