有没有这样的LISP，启用后改过的字自动变颜色？

yzr2002626

有用，看看G大的

puzb2001

啥也不说了，除了感谢各位老大，还是感谢各位老大！

CAD83

好东西，试多几下

429014673

yshf

学习学习

puzb2001

不知道大家用不用DDMODIFY？

把hao3ren 老大的程序添加了一行，大家看看效果，前提是先加载DDMODIFY

也可以把那一行改成它山兄的PMGZ   (C:PMGZ)


;;文本编辑扩展工具，文本修改后变换颜色显示。可以设置ddedit命令修改后文本
;;的颜色，默认为当前系统颜色号加一，确认不修改为修改文本颜色号加一。
;;作者：南京市市政设计研究院 嵇龙(ll_j@21cn.com)
;;                                  025－3283626
(defun ett_ct()
  (initget "C  ")
  (setq s0 (entsel ""))
  (cond
    ( (= s0 "C") (ett_col))
    ( (= s0 "") nil)
    ( (and (= (type s0) 'LIST) (= (cdr (assoc 0 (entget (car s0)))) "TEXT"))
      (redraw (setq sn (car s0)) 3)
      (setq s1 (entget sn)
            n1 (cdr (assoc 1 s1))
      )
      (C:ddmodify)
      (entupd sn)
      (if (/= n1 (cdr (assoc 1 (entget sn))))
        (progn
          (setq s1 (entget sn))
          (if (/= (assoc 62 s1) nil)
            (setq s1 (subst (cons 62 c2) (assoc 62 s1) s1))
            (setq s1 (cons (cons 62 c2) s1))
          )
          (entmod s1)
          (redraw sn 1)
        )
        (progn
          (setq s1 (entget sn) c3(+ c2 1))
          (if (= c3 257) (setq c3 1))
          (if (/= (assoc 62 s1) nil)
            (setq s1 (subst (cons 62 c3) (assoc 62 s1) s1))
            (setq s1 (cons (cons 62 c3) s1))
          )
          (entmod s1)
          (redraw sn 1)
        )
      )
      (setq sn nil)
      (ett_ct)
    )
    (t (ett_ct))
  )
)
(defun ett_col()
  (setq c1 c2)
  (setq c2 (acad_colordlg c2))
  (if (= c2 nil) (setq c2 c1))
  (ett_ct)
)
(defun c:ett(/ sn s0 s1 c1 c2 c3 n1)
  (setq c1 (getvar "CECOLOR"))
  (if (or (= c1 "BYLAYER") (= c1 "BYBLOCK"))
    (setq c1 1)
    (setq c1 (1+ (read c1)))
  )
  (if (= c1 256) (setq c1 1))
  (setq c2 c1)
  (princ (strcat "\n当前颜色号 " (getvar "cecolor") "，设置颜色号 " (itoa c2) "。"))
  (ett_ct)
  (princ)
)
(princ "\n**Text文本编辑扩展工具。作者：南京市市政设计研究院 嵇龙。**")
(princ "\n**命令：ett")

cxs259

支持G版，回复学习学习！

xiaxiang

现在gu版的程序都要回复才能看啦，增加点击率

石井鱼

这个有时候还是很有用的

e2002

回复看看,这种需求有时确实有,不过最后完成工作后出图前应该还是要改回到 ByLayer 吧?