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


有贴必顶，好贴必顶。
页: 1 [2] 3 4 5 6 7 8 9 10 11
查看完整版本: 自动修改图层颜色（索引颜色）