[求助]图层快速变换

lg328084985

我有一个更简单的办法，就是用动作录制器可以快速切换图层

3122733

学习了，很有用

20060510412

贱人工具箱里面不是有这个功能么

hcr_123

yutianweidi 发表于 2010-12-5 18:34
前提是需要将CAD绘图区域的模板设置好，就是图层要设置好，给出两个命令！
1.以下自动加载默认图层
(defu ...

为什么这个在CAD2018版本就不能用了？

cad890

自己用的一个程序，分享大家，更改至0层

1. (defun c:00 (/ ss i ent)
   
2.   (setq ss (ssget))
   
3.   (entToLayer ss "0")
   
4.   (princ)
   
5. )
   
6. 
   
7. 
   
8. (defun entToLayer (ss name / ent i)
   
9.   (if (/= ss nil)
   
10.     (repeat (setq i (sslength ss))
    
11.       (setq i (- i 1))
    
12.       (setq ent (entget (ssname ss i)))
    
13.       (setq ent
    
14.              (uTbMod ent
    
15.                      (list (cons 8 name) (cons 6 "BYLAYER") (cons 62 256))
    
16.              )
    
17.       )
    
18.       (entmod ent)
    
19.     )
    
20.     (setvar 'CLAYER name)
    
21.   )
    
22. 
    
23. )
    
24. (defun uTbMod (tb nLst)
    
25.   (mapcar (function
    
26.             (lambda (x) (setq tb (SUBST x (assoc (car x) tb) tb)))
    
27.           )
    
28.           nLst
    
29.   )
    
30.   tb
    
31. )

(defun c:00 (/ ss i ent)<br />   (setq ss (ssget))<br />   (entToLayer ss "0")<br />   (princ)<br /> )<br /> <br /> <br /> (defun entToLayer (ss name / ent i)<br />   (if (/= ss nil)<br />     (repeat (setq i (sslength ss))<br />       (setq i (- i 1))<br />       (setq ent (entget (ssname ss i)))<br />       (setq ent<br />              (uTbMod ent<br />                      (list (cons 8 name) (cons 6 "BYLAYER") (cons 62 256))<br />              )<br />       )<br />       (entmod ent)<br />     )<br />     (setvar 'CLAYER name)<br />   )<br /> <br /> )<br /> (defun uTbMod (tb nLst)<br />   (mapcar (function<br />             (lambda (x) (setq tb (SUBST x (assoc (car x) tb) tb)))<br />           )<br />           nLst<br />   )<br />   tb<br /> )

sdls

cad890 发表于 2019-5-16 19:33
自己用的一个程序，分享大家，更改至0层

谢谢分享！！！试了一下，速度很快。好用

chenccna

yutianweidi 发表于 2010-12-5 18:34
前提是需要将CAD绘图区域的模板设置好，就是图层要设置好，给出两个命令！
1.以下自动加载默认图层
(defu ...

不能选中后替换图层啊？
更改如下：可以选中后直接替换图层
(defun layerch(mylsp / LAYCH)
    (setvar "PICKFIRST" 1)
    (setvar "cmdecho" 0)
(if (setq LAYCH (ssget)) ;如果已选择图形则将选择的图形转换到指定的层
  (command "change" laych "" "p" "lt" "bylayer" "c" "bylayer" "la" mylsp "")
(command "_layer" "m" mylsp  "");否则将指定的层转换为当前层
)
(prin1)
)