请问各位老师，如何批量修改图层名？

yp9819 · 发表于 2022-4-11 07:38

本帖最后由 yp9819 于 2022-4-12 09:33 编辑

各位老师好，请问能不能用LISP根据EXCEL表来批量修改图层名？下面是个EXCEL表，A列是原始图层名，B列是希望修改的图层名，C列是替换后的状态提示，如果替换成功，就提示替换成功，如果替换不成功，提示为不成功。图纸与表格请见附件。谢谢各位老师。

原始图层名	修改图层名	替换是否成功
从A28到-1AT7-fj2	线路-1AT7-fj2	替换成功
从-2ALE2到A6	线路-2ALE2	替换成功
从A13到-1ALE4	线路-1ALE4	替换成功
从A22到-1AT6-fj1	线路-1AT6-fj1	替换成功
从A33到-1AT8-fj1	线路-1AT8-fj1	替换成功
从A12到1AW2-SP	线路1AW2-SP	替换成功
从AP-CDZ6到A8	线路AP-CDZ6	替换成功
从A11到AP-CDZ4	线路AP-CDZ4	替换成功
从A10到AP-CDZ5	线路AP-CDZ5	替换成功
从jdAP-SHB到A36	线路jdAP-SHB	替换成功
从A28到sybgAP-SHB	线路sybgAP-SHB	替换成功

yp9819 · 发表于 2022-4-14 11:39

我是这样写的
'根据EXCEL表批量修改图层名77
(defun c:77 ()
(command "rename" "layer" "从A28到-1AT7-fj2""线路-1AT7-fj2")
(command "rename" "layer" "从-2ALE2到A6""线路-2ALE2")
(command "rename" "layer" "从A13到-1ALE4""线路-1ALE4")
(command "rename" "layer" "从A22到-1AT6-fj1""线路-1AT6-fj1")
(command "rename" "layer" "从A33到-1AT8-fj1""线路-1AT8-fj1")
(command "rename" "layer" "从A12到1AW2-SP""线路1AW2-SP")
(command "rename" "layer" "从AP-CDZ6到A8""线路AP-CDZ6")
(command "rename" "layer" "从A11到AP-CDZ4""线路AP-CDZ4")
(command "rename" "layer" "从A10到AP-CDZ5""线路AP-CDZ5")
(command "rename" "layer" "从jdAP-SHB到A36""线路jdAP-SHB")
(command "rename" "layer" "从A28到sybgAP-SHB""线路sybgAP-SHB")

)

yp9819 · 发表于 2022-4-11 07:40

原始图层名修改图层名替换是否成功
从A28到-1AT7-fj2 线路-1AT7-fj2 替换成功
从-2ALE2到A6 线路-2ALE2 替换成功
从A13到-1ALE4 线路-1ALE4 替换成功
从A22到-1AT6-fj1 线路-1AT6-fj1 替换成功
从A33到-1AT8-fj1 线路-1AT8-fj1 替换成功
从A12到1AW2-SP 线路1AW2-SP 替换成功
从AP-CDZ6到A8 线路AP-CDZ6 替换成功
从A11到AP-CDZ4 线路AP-CDZ4 替换成功
从A10到AP-CDZ5 线路AP-CDZ5 替换成功
从jdAP-SHB到A36 线路jdAP-SHB 替换成功
从A28到sybgAP-SHB 线路sybgAP-SHB 替换成功

yp9819 · 发表于 2022-4-12 09:13

G〆h 发表于 2022-4-12 09:10
用Excel文件来创建图层，在明径CAD社区里面搜索内容：图层提取器：Lee Mac的大作——图层提取器（汉化）来 ...

图层提取器，我有，我的意思已经在EXCEL表中建立好了原始图层名和拟修改的图层名称的对应关系，根据这个EXCEL表，来修改原始图层名

自贡黄明儒 · 发表于 2022-4-11 08:46

用(command "_.rename"...这样不求人，在键盘上敲一下看怎么写就知道了。

yp9819 · 发表于 2022-4-11 18:07

自贡黄明儒发表于 2022-4-11 08:46
用(command "_.rename"...这样不求人，在键盘上敲一下看怎么写就知道了。

黄工谢谢您的指导，是这样的，是根据EXCEL表来修改图层名

yp9819 · 发表于 2022-4-11 18:15

自贡黄明儒发表于 2022-4-11 08:46
用(command "_.rename"...这样不求人，在键盘上敲一下看怎么写就知道了。

黄工谢谢您的指导，是这样的，是根据EXCEL表来修改图层名

1006015131 · 发表于 2022-4-12 08:41

最简单的办法就是excel写个公式用(command "_.rename" 复制粘贴到cad就行

G〆h · 发表于 2022-4-12 09:10

用Excel文件来创建图层，在明径CAD社区里面搜索内容：图层提取器：Lee Mac的大作——图层提取器（汉化）来实现

yp9819 · 发表于 2022-4-14 11:19

请多指导谢谢谢谢

账号		自动登录	找回密码
密码			注册

[基础] 请问各位老师，如何批量修改图层名？

本帖子中包含更多资源

相关帖子