批量修改图中颜色~

関吣

(defun c:  LAS (/ i l obj)
  (setq i 7)  ;设定初始颜色
  (while
    (setq l (tblnext "LAYER" (null l)))
         (entmod
         (subst
           (cons 62 i)
           (assoc 62 (setq obj (entget (tblobjname "LAYER" (cdr (assoc 2 l))))))
           obj
         )
       )
     (if (eq i 255)
       (setq i 1)
       (setq i (1+ i))
     )
  ) (princ"\n-->修改图层颜色完成")
  (princ)
)


这个是一键修改所有随层数据颜色的功能。能不能过滤一些图层呢？ 比如“kc_1”/“kc_2”/“kc_3”……等图层~
另外，这个程序有个问题是，如果图中某些数据没有随层颜色，那就改不过来啊~

関吣

改颜色的效果是想把图淡化显示，而且能过滤一些图层~

st788796

怎么说呢，楼主这程序像闹着玩得的，论坛有的代码也不看！

GTJ116600

一时没有看懂，有空再来研究研究

関吣

比如图层1改成颜色1
图层2改成颜色2

関吣

(if (= (vla-get-color layer) 43) (vla-put-color layer 44)
(if (= (vla-get-color layer) 42) (vla-put-color layer 44)
(if (= (vla-get-color layer) 41) (vla-put-color layer 44)
(if (= (vla-get-color layer) 40) (vla-put-color layer 44)

整整折腾了一天，已解决~~~

Free-Lancer

関吣 发表于 2 小时前

                               
登录/注册后可看大图

本帖最后由 関吣 于 2013-7-19 18:23 编辑

(if (= (vla-get-color layer) 43) (vla-put-color layer 44)
(if (=

没看出LZ的规则
(if (< 40 (vla-get-color layer) 43)
  (vla-put-color layer 44)
)来自: Android客户端

関吣

Free-Lancer 发表于 2013-7-19 20:26
没看出LZ的规则
(if (< 40 (vla-get-color layer) 43)
  (vla-put-color layer 44)

规则是每个十字段的1-3的颜色改成该段的4，如上41-43改成44，51-53改成54，类似这样的意思哦~

関吣

另外，1-8的自定义颜色~不然会重复改成其他十字段的带4颜色滴~

st788796

関吣 发表于 2013-7-22 18:49
另外，1-8的自定义颜色~不然会重复改成其他十字段的带4颜色滴~

用 cond，提问也是学问啊

1. (cond
   
2. ((<= 1 (vla-get-color layer) 3)
   
3.   (vla-put-color layer layer 4)
   
4. )
   
5. ((<= 40 (vla-get-color layer) 43)
   
6.    (vla-put-color layer 44)
   
7.   )
   
8.   ...
   
9.   (t  ...)
   
10. )

(cond<br /> ((<= 1 (vla-get-color layer) 3)<br />   (vla-put-color layer layer 4)<br /> )<br /> ((<= 40 (vla-get-color layer) 43)<br />    (vla-put-color layer 44)<br />   )<br />   ...<br />   (t  ...)<br /> )

関吣

额。看不懂哦~~~最后那个t是什么意思呢

yshf

前面的条件都不成立时，执行t后面的操作

関吣

哇塞，这个功能好像不错哦~群攻模式啊~

sicky111

学习一下，最近也遇到了这方面的困扰。