选取字符串输出道文本同时要求字符串改变颜色
<P></P><P>我有一个程序，他能把我选取的字符串按选取的顺序输出到文本文件，但我要求被输出的字符串被输出后都改变颜色，这样方便我能识别，请各位大哥大姐帮一下忙哈，我是关海的斑竹，帮了我的人，有什么需要关海论坛的东西给我说一声哈</P> (defun c:px (/ fln f a n index el e txt)<BR>(setq rbv-path (getvar "dwgprefix")<BR> rbv-name (getvar "dwgname")<BR> fln (strcat rbv-path (substr rbv-name 1 (- (strlen rbv-name) 4) ) "-px.txt"))<BR>;寻找当前文件路径以及文件名<BR>(setq f (open fln "a"))<BR>(setq a (ssget))<BR>(setq n (sslength a))<BR>(setq index 0)<BR>(repeat n <BR>(setq el (entget ( ssname a index)))<BR>(setq index ( + index 1))<BR>(setq e (assoc 0 el))<BR>(if (= "TEXT" (cdr e))<BR>(progn<BR><FONT color=#ff0000>(if (assoc 62 el)(setq el (subst (cons 62 10) (assoc 62 el) el))(setq el (cons (cons 62 10) el)))<BR>(entmod el)<BR></FONT>(setq txt (cdr (assoc 1 el)))<BR>(write-line txt f)<BR>)<BR>)<BR>)<BR>(close f)<BR>) 谢谢你，搞定了
页:
[1]