[求助]如何用LISP修改标注里文字的颜色

xiaoquansb

如题，求教如何用LISP修改标注里文字的颜色

DeLiN001

;例如对选择的尺寸的文本改为1号颜色
(defun C:changecolor (/ ss K)
  (setq ss (ssget) k 0)
  (repeat (sslength ss)
    (vlax-put-property (vlax-ename->vla-object (ssname ss k)) "textcolor" 1)
    (setq k (1+ k))
    )
  )

xiaoquansb

得左，多谢楼上，终于写成了下面的lisp

(defun c:ck()

(SETQ GOP (SSADD));;设定一个空的图元集合SS
(SETQ ss (SSADD))
(SETQ GOP (SSGET "x" '((0 . "*DIMENSION*"))))

(IF (/= GOP NIL)

(PROGN
(SETQ N (SSLENGTH GOP ))
(SETQ M 0)
(REPEAT N
(SETQ ENT (ENTGET (SSNAME GOP M)))

(if (and (/= (CDR (ASSOC 1 ENT)) "")
         (/= (CDR (ASSOC 1 ENT)) "<>"))
(ssadd (SSNAME GOP M) ss)
)

(SETQ M (+ M 1))
)

(setq k 0)
(repeat (sslength ss)
    (vlax-put-property (vlax-ename->vla-object (ssname ss k)) "textcolor" 3)
    (setq k (1+ k))
)
)
)

(IF (/= (sslength ss) 0)
(princ "注意 文字为绿色的尺寸在图上可能不是1：1的")
(princ "所有尺寸在图上都是1：1的")
)

(princ)

)

pzweng

xiaoquansb 发表于 2008-9-11 20:03
得左，多谢楼上，终于写成了下面的lisp(defun c:ck()(SETQ GOP (SSADD));;设定一个空的图元集合SS(SETQ ss  ...

你这个是干嘛用的，根本用不了

lzg8877

嗯　嗯　　用用

vlisp2012

能用的，修改的标注文字变成绿色了。