马上注册,结交更多好友,享用更多功能,让你轻松玩转社区。
您需要 登录 才可以下载或查看,没有帐号?立即注册
x
 - (defun c:XDTB_DimTxtColor (/ clr el n oldstyl)
- (xdrx-begin)
- (xdrx-prompt "\n**修改(恢复)标注对象的文字颜色**")
- (xd::var:getint "#xd-var-global-color" 7)
- (xdrx-initget "R C 1 2 3 4 5 6 7 8")
- (setq tf t)
- (while (and tf
- (setq clr
- (getint
- (xdrx-prompt
- "\n请输入标注文字的新颜色号[选色(C)/恢复原色(R)](1红/2黄/3绿/4青/5蓝/6紫/7白)<"
- #xd-var-global-color
- ">:"
- t
- )
- )
- )
- )
- (cond ((= clr "C")
- (setq clr (acad_colordlg #xd-var-global-color))
- )
- )
- (setq tf nil)
- )
- (and (/= (type clr) 'STR)
- (xd::var:setint "#xd-var-global-color" clr)
- )
- (if (setq ss (xdrx-ssget "\n选择要修改的标注对象<退出>:"
- '((0 . "*dim*"))
- )
- )
- (progn
- (or
- (and (= clr "R")
- (mapcar
- '(lambda (x) (xdrx-dimension-remove-override x "dimclrt"))
- (xdrx-pickset->ents ss)
- )
- (xdrx-prompt "\n成功恢复了"
- (sslength ss)
- "个标注对象的文字颜色."
- )
- )
- (and (xdrx-setpropertyvalue ss "dimclrt" #xd-var-global-color)
- (xdrx-prompt "\n成功修改了"
- (sslength ss)
- "个标注对象的文字颜色."
- )
- )
- )
- )
- )
- (xdrx_end)
- (princ)
- )
|