选取字符串输出道文本同时要求字符串改变颜色

raobinhsh

我有一个程序，他能把我选取的字符串按选取的顺序输出到文本文件，但我要求被输出的字符串被输出后都改变颜色，这样方便我能识别，请各位大哥大姐帮一下忙哈，我是关海的斑竹，帮了我的人，有什么需要关海论坛的东西给我说一声哈

sailorcwx

(defun c:px (/ fln f a n index el e txt)
(setq rbv-path (getvar "dwgprefix")
          rbv-name (getvar "dwgname")
          fln (strcat rbv-path (substr rbv-name 1 (- (strlen rbv-name) 4) ) "-px.txt"))
;寻找当前文件路径以及文件名
(setq f (open fln "a"))
(setq a (ssget))
(setq n (sslength a))
(setq index 0)
(repeat n
(setq el (entget ( ssname a index)))
(setq index ( + index 1))
(setq e (assoc 0 el))
(if (= "TEXT" (cdr e))
(progn
(if (assoc 62 el)(setq el (subst (cons 62 10) (assoc 62 el) el))(setq el (cons (cons 62 10) el)))
(entmod el)
(setq txt (cdr (assoc 1 el)))
(write-line txt f)
)
)
)
(close f)
)

raobinhsh

谢谢你，搞定了