修改图层名

citykunan · 发表于 2004-4-27 14:42:00

乐筑天下终于好了，我上了一天都上不上。
我想编了一个可以修改图层名的程序，但是这个程序如果遇到一些不能重命名的图层就会出错，如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 · 发表于 2004-4-27 17:25:00

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

请点击此处下载

请先注册会员后在进行下载

已注册会员，请先登录后下载

文件名称:fbbjb30gpb0.lsp
下载次数:0 文件大小:987 Bytes 售价:2银币 [记录]
下载权限: 不限以上或 Vip会员 [开通Vip] [签到领银币] [免费赚银币]

请点击此处下载

请先注册会员后在进行下载

已注册会员，请先登录后下载

文件名称:ytzj2am4ybi.lsp
下载次数:0 文件大小:964 Bytes 售价:2银币 [记录]
下载权限: 不限以上或 Vip会员 [开通Vip] [签到领银币] [免费赚银币]

修改图层名

请点击此处下载

请先注册会员后在进行下载

已注册会员，请先登录后下载

文件名称:slpuwhzv3jz.lsp
下载次数:0 文件大小:984 Bytes 售价:2银币 [记录]
下载权限: 不限以上或 Vip会员 [开通Vip] [签到领银币] [免费赚银币]

独角斗士 · 发表于 2004-4-27 22:49:00

有什么实用价值吗？

citykunan · 发表于 2004-4-28 09:09:00

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

龙龙仔 · 发表于 2004-4-28 11:57:00

(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)
)

修改图层名

发表回复

精选推荐

浏览过的版块