panliang9 发表于 2024-12-6 09:29:18

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

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

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

谁能教教我怎么弄。


liuhe 发表于 2024-12-6 10:44:29

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

panliang9 发表于 2024-12-6 10:48:10

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

谢谢，就是这样的！

llsheng_73 发表于 2024-12-6 11:09:50

本帖最后由 llsheng_73 于 2024-12-6 14:11 编辑

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

wqrwqr 发表于 2024-12-6 14:23:26

w我也试试a

开心无惧 发表于 2024-12-6 16:15:06

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

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

本帖最后由 xyp1964 于 2024-12-9 16:47 编辑

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

9701519 发表于 2024-12-7 11:35:30

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

panliang9 发表于 2024-12-9 09:30:48

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


院长的程序太厉害了！

panliang9 发表于 2024-12-16 13:09:04

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

http://bbs.mjtd.com/thread-58564-1-1.html
页: [1]
查看完整版本: 怎么能将这张图纸里的图层全部重命名