[求助]：关于图层转换

啵浪鼓 · 发表于 2005-4-11 00:04:07

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

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

×

下面图层为将D01A所有层里的备份再转换新图层为B1，下面有句 (setq s (ssget "all"))用得不恰当，以致程序结束出现大量的：
Unknown command "LA".  Press F1 for help.
Unknown command "B1".  Press F1 for help.
Unknown command "FZP".  Press F1 for help.
nil

因为图层太多且非特定图层，所以需编个程序来一一复制到新图层然后再purge老图层，各位高手有没有更好的办法（fox-->presscad）

(if(tblsearch "layer" "D01A")
(progn
(command "-layer" "lo" "*" "u" "D01A*" "")
(setq s (ssget "all"))
(if s
(command "change" s "" "Properties" "la" "B1" "")
)))

aeo · 发表于 2005-4-11 02:21:55

(if (setq s (ssget "x" '((8 . "D01A*" ))))
(command "change" s "" "Properties" "la" "B1" "")
)

舟自横 · 发表于 2005-4-11 08:50:14

我说李兄啊!教你一个省事的办法
不要一个一个图层去改..
将旧图层列表,对应转换的新图层也列表
用参数循环调用更换图层子程序企不省事又省心??
子程序可以就用楼上的只是把你的"D01A*" 和B1分别用
新旧图层的参数代替就好了.....

啵浪鼓 · 发表于 2005-4-11 13:12:42

不懂，试写一个瞧瞧~

伊伊哎哎 · 发表于 2005-4-12 12:32:44

怎么好弄，就怎么搞，当图层已存在时老提示
Layer "TEXT" already exists.

啵浪鼓 · 发表于 2005-4-14 00:25:27

我说李兄啊!教你一个省事的办法
不要一个一个图层去改..
将旧图层列表,对应转换的新图层也列表
用参数循环调用更换图层子程序企不省事又省心??
子程序可以就用楼上的只是把你的"D01A*" 和B1分别用
新旧图层的参数代替就好了.....

如何写。。。

lh869 · 发表于 2005-4-14 16:08:45

我给一楼的添上一个，你不仿试一试吧！
代码如下：
(defun c:gc()
   (setq f6 (ssget))
   (prompt "\nPick an entity whose layer new entities will be changed to:")
   (setq f7 (entsel))
   (setq n (sslength f6))
   (setq i 0)
   (setq g7 (entget (car f7)))
   (setq i7 (assoc 8 g7))
   (repeat n
      (setq g6 (entget (ssname f6 i)))
      (setq i6 (assoc 8 g6))
      (setq g8 (subst i7 i6 g6))
      (entmod g8)
      (setq i (+ i 1))
   )
  )

啵浪鼓 · 发表于 2005-4-14 17:57:44

事先装置图层，然后说一键切换，而不用选择的这种

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

[求助] [求助]：关于图层转换

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

相关帖子