【标注】修改标注文字颜色

Lispboy · 发表于 2020-7-11 18:09:27

马上注册，结交更多好友，享用更多功能，让你轻松玩转社区。

您需要登录才可以下载或查看，没有账号？立即注册

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)
)

(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) 
)

singa · 发表于 2020-7-11 19:20:09

谢谢分享！！！

凌乱的核桃仁 · 发表于 2020-7-11 19:23:26

感谢楼主分享！！！

tzfcn · 发表于 2020-7-11 19:48:38

不错的插件，可以提高工作效率

yangjian001 · 发表于 2020-7-12 08:24:07

做一个热心并受欢迎的人

ko05050 · 发表于 2020-7-22 14:45:18

活到老学到老

天然卷tea · 发表于 2021-11-15 09:44:17

感谢楼主分享！！！

hh_lj007 · 发表于 2021-11-30 08:46:02

感谢分享源码

sncokina · 发表于 2022-9-3 11:02:01

感谢分享。。。。。

liu-he · 发表于 2022-9-18 11:36:55

66666666666666666

账号		自动登录	找回密码
密码			立即注册

[标注] 【标注】修改标注文字颜色

马上注册，结交更多好友，享用更多功能，让你轻松玩转社区。