怎么能将这张图纸里的图层全部重命名

panliang9

下面这张DWG图纸是从三维软件里导出来的，图层名里包含大量的非法字符，我想要用  “字母+数字流水号” 的方式将所有的图层全部快速重命名一遍，没有找到方法。

大家手上有没有什么现成的工具能做到，多样式管理器 “多样式管理-SYM.VLX” 我试过了，也做不到。

谁能教教我怎么弄。

liuhe

我这边测试成功，但是0图层无法修改

panliang9

liuhe 发表于 2024-12-6 10:44
我这边测试成功，但是0图层无法修改

谢谢，就是这样的！

llsheng_73

1. ((lambda(/ e i)
   
2.    (setq i 0 e(tblnext"layer"t))
   
3.    (while(setq i(1+ i)e(tblnext"layer"nil))
   
4.     (entmod(append(entget(TBLOBJNAME"layer"(cdr(assoc 2 e))))(list(cons 2(strcat""(itoa i)))))))))

((lambda(/ e i)<br />    (setq i 0 e(tblnext"layer"t))<br />    (while(setq i(1+ i)e(tblnext"layer"nil))<br />     (entmod(append(entget(TBLOBJNAME"layer"(cdr(assoc 2 e))))(list(cons 2(strcat""(itoa i)))))))))

wqrwqr

w我也试试a

开心无惧

http://bbs.mjtd.com/thread-190222-1-1.html
之前用过此插件改块名称

xyp1964

1. (defun c:tt ()
   
2.   (setq i 1)
   
3.   (vlax-for a (vla-get-Layers (vla-get-ActiveDocument (vlax-get-acad-object)))
   
4.     (if (/= (vla-get-name a) "0")
   
5.       (progn
   
6.         (setq la (strcat "AB-" (itoa i)))
   
7.         (while (tblobjname "layer" la)
   
8.           (setq i (1+ i)
   
9.                 la (strcat "AB-" (itoa i))
   
10.           )
    
11.         )
    
12.         (vla-put-name a la)
    
13.       )
    
14.     )
    
15.   )
    
16.   (princ)
    
17. )

(defun c:tt ()<br />   (setq i 1)<br />   (vlax-for a (vla-get-Layers (vla-get-ActiveDocument (vlax-get-acad-object)))<br />     (if (/= (vla-get-name a) "0")<br />       (progn<br />         (setq la (strcat "AB-" (itoa i)))<br />         (while (tblobjname "layer" la)<br />           (setq i (1+ i)<br />                 la (strcat "AB-" (itoa i))<br />           )<br />         )<br />         (vla-put-name a la)<br />       )<br />     )<br />   )<br />   (princ)<br /> )

9701519

多样式管理-SYM.VLX 能发我下吗？9701519@126.com

panliang9

xyp1964 发表于 2024-12-6 23:28

院长的程序太厉害了！

panliang9

9701519 发表于 2024-12-7 11:35
多样式管理-SYM.VLX 能发我下吗？

http://bbs.mjtd.com/thread-58564-1-1.html