修改图层名

citykunan

明经终于好了，我上了一天都上不上。 我想编了一个可以修改图层名的程序，但是这个程序如果遇到一些不能重命名的图层就会出错，如0层和xref的层，0层可以通过判断解决，可是xref时代进的层，每张图纸里都不一样，不知怎么处理？ ;使用(relay "bbb-") (defun relay (prefix / lay name)
(setq lay nil)
(setvar "cmdecho" 0)
(while (setq lay (tblnext "layer" (not lay)))
(setq name (cdr (assoc 2 lay)))
(if (/= name "0")
(command "_.rename" "la" name (strcat prefix name) )
)
)
(princ)
) 请大侠们指点。

citykunan

我把程序改善了一下，但还不完善。

独角斗士

有什么实用价值吗？

citykunan

有啊，可以将一张图纸里所有的图层，一起修改名字，如果一张图纸里有几百个图层，手工修改就会很慢。

龙龙仔

(defun RELAY (PREFIX / LAY NAME)
(setq LAY NIL)
(setvar "cmdecho" 0)
(while (setq LAY (tblnext "layer" (not LAY)))
(setq NAME (cdr (assoc 2 LAY)))
(if (and (not (wcmatch NAME "*|*"))
(/= NAME "0")
(/= NAME "Defpoints")
)
(command "_.rename" "la" NAME (strcat PREFIX NAME))
)
)
(princ)
)