[求助]：如何更改标注文字的颜色

lennie

; 标注文字是变值还是固定值
                                        ; 支持所有标注类型.
(defun c:DZ (/ ss n dm dml)
  (princ "\n选择标注:")
  (setq ss (ssget '((0 . "DIMENSION"))))
  (initget "Yes No")
  (setq        Swith_T        (getkword
                  "\n将选择的标注变成固定值<选择n则恢复标注>? <Y>/N: "
                )
  )
  (cond
    ((= Swith_T "No")
     (repeat (setq n (sslength ss))
       (setq dm         (ssname ss (setq n (1- n)))
             dml (entget dm)
             dml (subst '(1 . "<>") (assoc 1 dml) dml)
       )
       (entmod dml)
     )
    )
    ((or (= Swith_T "Yes") (null Swith_T))
     (repeat (setq n (sslength ss))
       (setq dm         (ssname ss (setq n (1- n)))
             dml (entget dm)
             dml (subst (cons 1 (getdimtext dm)) (assoc 1 dml) dml)
       )
       (entmod dml)
     )
    )
  )
  (princ (strcat "\n共处理" (itoa (sslength ss)) "个标注:"))
  (princ)
)

                                        ;取标注文本.
(defun getdimtext (dm / e el)
  (setq        e (cdr
            (assoc -2 (tblsearch "block" (cdr (assoc 2 (entget dm)))))
          )
  )
  (while (and (setq e (entnext e))
              (not (member '(100 . "AcDbMText") (setq el (entget e))))
         )
  )
  (if e
    (cdr (assoc 1 el))
    " "
  )
)

xbdx

用变量 dimclrt  控制

lennie

具体一点吧 我LISP不会啊

ljpnb

如果用VLISP的vla-put-TextColor比较容易实现.

qjcpj

直接改标注样式，刷新来得更快！