[求助]：如何批量将图层名A*改为B*?

xshrimp · 发表于 2005-8-1 21:44:45

马上注册，结交更多好友，享用更多功能，让你轻松玩转社区。

您需要登录才可以下载或查看，没有账号？立即注册

×

如何批量将图层名A*改为B*?
例如图层 A1, A2, A45, A66, A988
改后的图层名B1, B2, B45, B66, B988
如果图层名B1存在则将图层A1的东西放置到B1层,然后将A1图层删除。

xbx7920 · 发表于 2005-8-2 11:39:49

rename

小伯乐 · 发表于 2005-8-2 13:46:14

命令：LAYTRANS
请查看帮助。

xshrimp · 发表于 2005-8-2 23:13:55

用lsp语言不能实现吗?用图层转换器还是比较麻烦,
因为我有好多张图要一个一个转.很麻烦.

xyp1964 · 发表于 2005-8-2 23:50:35

[FONT=courier new]
(defun c:test ()
(rename-la "A1" "B1")
(rename-la "A2" "B2")
(rename-la "A45" "B45")
(rename-la "A66" "B66")
(rename-la "A988" "B988")
(princ)
)
(defun rename-la (la1 la2)
(If (= (Tblsearch "layer" la1) nil)
(princ)
(command "-rename" "la" la1 la2)
)
)
[/FONT]

xshrimp · 发表于 2005-8-3 15:45:47

最初由 xyp1964 发布
[B][CODE]
(defun c:test ()
  (rename-la "A1" "B1")
  (rename-la "A2" "B2")
  (rename-la "A45" "B45")
  (rename-la "A66" "B66")
  (rename-la "A988" "B988")
  (princ)
)
(defun re... [/B]

这样做已经很方便了.我也这么编了,可是就是还有一个问题没解决,
如果图层名B1存在则将图层A1的东西放置到B1层,然后将A1图层删除。这个做不到.

xyp1964 · 发表于 2005-8-3 20:21:44

[FONT=courier new](defun c:test ()
(rename-la "A1" "B1")
(rename-la "A2" "B2")
(rename-la "A45" "B45")
(rename-la "A66" "B66")
(rename-la "A988" "B988")
(princ)
)
(defun rename-la (la1 la2)
(If (= (Tblsearch "layer" la2) nil)
(command "-rename" "la" la1 la2)
(progn
(setq ss (ssget "X" (list(cons 8 la1))))
(command "change" ss "" "P" "la" la2 "")
(command "purge" "la" la1 "")
)
)
)[/FONT]

zxdvip · 发表于 2006-1-31 15:57:17

谢谢,经常与老美交流,他们的图层设置和我们不一样,这思路可以

雨箭风刀 · 发表于 2006-2-6 09:13:05

老美的图层是怎么设置？

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

[求助] [求助]：如何批量将图层名A改为B?

马上注册，结交更多好友，享用更多功能，让你轻松玩转社区。

相关帖子

浏览过的版块

[求助] [求助]：如何批量将图层名A*改为B*?

马上注册，结交更多好友，享用更多功能，让你轻松玩转社区。

相关帖子

浏览过的版块

[求助] [求助]：如何批量将图层名A改为B?