[求助]：请教如何对图中块变层

gyd · 发表于 2004-3-6 11:04:56

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

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

×

我的dwg图中有许多名为23587的块,我想批量的为它改变层,该怎么办,我很急,谢谢

柔柔 · 发表于 2004-3-6 13:28:06

(defun c:temp(/ sset ssl elist)
(setq sset (ssget "X" (list (cons 0 "INSERT" ))))
(setq ssl  (sslength sset))
(while (> ssl 0)
   (setq elist (entget (ssname sset (setq ssl (1- ssl)))))
   (if (= (cdr (assoc 2 elist)) "23587")
         (entmod (subst (cons 8 "新的图层名") (assoc 8 elist) elist)))))

popxi · 发表于 2004-3-6 15:58:20

http://www.xdcad.net/forum/showthread.php?threadid=142896

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

[求助]：请教如何对图中块变层

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

相关帖子

浏览过的版块