求改字变色程序

STRETCH

要求：运行程序后，白字文字改后颜色变为绿色,
非白色文字改后颜色变为白色，支持单多行文字
标注文字


测试文件

zyhandw

记得坛子里有这个类似的帖子。
可以搜索下，再根据自己的要求组装、修改下！

STRETCH

zyhandw 发表于 2012-12-28 09:31
记得坛子里有这个类似的帖子。
可以搜索下，再根据自己的要求组装、修改下！

找到一个，效果不是很好

ll_j

把以前的程序改一下，你再看看。
1.没有改变原来颜色变化规律（改变后颜色号加1，选定不改变加2）。
2.标注颜色全改变，标注的文字颜色是在标注类型中定义的，如果仅仅改变文字颜色，修改比较麻烦。

STRETCH

ll_j 发表于 2012-12-28 10:08
把以前的程序改一下，你再看看。
1.没有改变原来颜色变化规律（改变后颜色号加1，选定不改变加2）。
2.标 ...

还可以，就是标注改的是标注线，不是文字

lisp学习

白色颜色值是多少？

lisp学习

(defun c:tmp(/ s n i e obj )
  (setvar "cmdecho" 0)  
  (setq s(ssget '((0 . "TEXT,MTEXT"))))
  (setq n(sslength s) i 0)
(while (< i n)
   (setq e(ssname s i))   
   (setq obj(vlax-ename->vla-object e))
   (setq co(vla-get-color obj))   
  (if(/= co 7)(progn
  (command "change" e "" "p" "c" "7" "")))
  (if(= co 7)(progn
                (command "change" e "" "p" "c" "3" "")))  
(setq i(1+ i))
)
(setvar "cmdecho" 1)
(princ)
)；(if(/= co 7)(progn  这里的7是白色的值，你自己修改吧。0、256、7好像都是白色。有点迷糊。标注文字在样式管理器下不就能改了吗？

ljcgq

(defun c:de( / ss )
  (setq  ss(car (nentsel  "请选择文本")))
  (setq text(cdr (assoc 1 (entget ss))))
  (command "ddedit" ss "" )
   (setq text1(cdr (assoc 1 (entget ss))))
  (if (equal text text1) (command)
   (command "change" ss  "" "p" "c" "1" ""  )
  )

ll_j

STRETCH 发表于 2012-12-28 11:27
还可以，就是标注改的是标注线，不是文字

4楼的附件更新过了，你再试试。

ll_j

lisp学习 发表于 2012-12-28 13:18
(defun c:tmp(/ s n i e obj )
  (setvar "cmdecho" 0)  
  (setq s(ssget '((0 . "TEXT,MTEXT"))))

0号色是“随块”，也就是当作子实体，父实体什么颜色，子实体就是什么颜色，主要是针对复杂实体的，如块、标注等。
256号色是“随层”，所在层的颜色就是实体的颜色，默认，DXF组码中会忽略。
7号色标注是“白色”，其实显示是“反色”，在浅色背景下显示黑色，在深色背景下显示白色。
255号色才是真正的“白色”，不管背景如何，不管是显示还是打印（无色）。