[转帖]修改过地尺寸醒目提示程序

;;如尺寸值與文本一致，則文本不變色，否則文本被修改但顏色<BR>;;變如紅色，這樣用戶對這個功能會更好理解也容易維護。 <BR>;;BY LUCAS<BR>(defun C:TT (/ SS N VOBJ)<BR>         (setq SS (ssget "X" '((0 . "DIMENSION")))<BR>        N         0<BR>         )<BR>         (repeat (sslength SS)<BR>                         (setq VOBJ (vlax-ename-&gt;vla-object (ssname SS N)))<BR>                         (if (and VOBJ<BR>                                         (vlax-read-enabled-p VOBJ)<BR>                                         (not (wcmatch (vla-get-textoverride VOBJ) "*&lt;&gt;*,"))<BR>                                         (vlax-write-enabled-p VOBJ)<BR>        )<BR>                                         (vla-put-textcolor VOBJ 1)<BR>                         )<BR>                         (setq N (1+ N))<BR>         )<BR>         (princ)<BR>)

不错，希望能看到更好的东东！

好用！谢谢！

不错！