自动修改图层颜色（索引颜色）

vlisp2012 · 发表于 2012-5-31 19:33:26

看开心，看开心。。。。

tianyi1230 · 发表于 2012-5-31 19:53:54

开心又出手了

1993063 · 发表于 2012-5-31 20:45:02

有贴必顶，好贴必顶。

daidong013 · 发表于 2012-5-31 20:47:58

什么情况啊！看看先！

laiz3000 · 发表于 2012-5-31 21:15:02

看看版主的

仲文玉 · 发表于 2012-5-31 21:17:42

路过

langjs · 发表于 2012-5-31 23:12:07

看开心的图做了一个一样效果的.再看看开心的源码
(defun c:qq ( / la na)
  (while (setq la (tblnext "layer" (not la)))
(if (and (numberp (read (setq na (cdr (assoc 2 la)))))(> (atoi na) 0) (< (atoi na) 257))
   (entmod (subst  (cons 62 (atoi na)) (assoc 62 la) (entget (tblobjname "layer" na))))
)
  )
  (princ)
)

jinwei66 · 发表于 2012-6-1 00:04:51

我非常需要这个功能

zhengchuan · 发表于 2012-6-1 01:07:18

什么情况啊！看看先！

longer1000 · 发表于 2012-6-1 08:22:18

有贴必顶，好贴必顶。

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

自动修改图层颜色（索引颜色）

点评

点评

点评

点评

点评

点评