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

Lispboy

1. (defun c:XDTB_DimTxtColor (/ clr el n oldstyl)
   
2.   (xdrx-begin)
   
3.   (xdrx-prompt "\n**修改(恢复)标注对象的文字颜色**")
   
4.   (xd::var:getint "#xd-var-global-color" 7)
   
5.   (xdrx-initget "R C 1 2 3 4 5 6 7 8")
   
6.   (setq tf t)
   
7.   (while (and tf
   
8.               (setq clr
   
9.                      (getint
   
10.                        (xdrx-prompt
    
11.                          "\n请输入标注文字的新颜色号[选色(C)/恢复原色(R)](1红/2黄/3绿/4青/5蓝/6紫/7白)<"
    
12.                          #xd-var-global-color
    
13.                          ">:"
    
14.                          t
    
15.                        )
    
16.                      )
    
17.               )
    
18.          )
    
19.     (cond ((= clr "C")
    
20.            (setq clr (acad_colordlg #xd-var-global-color))
    
21.           )
    
22.     )
    
23.     (setq tf nil)
    
24.   )
    
25.   (and (/= (type clr) 'STR)
    
26.        (xd::var:setint "#xd-var-global-color" clr)
    
27.   )
    
28.   (if (setq ss (xdrx-ssget "\n选择要修改的标注对象<退出>:"
    
29.                            '((0 . "*dim*"))
    
30.                )
    
31.       )
    
32.     (progn
    
33.       (or
    
34.         (and (= clr "R")
    
35.              (mapcar
    
36.                '(lambda (x) (xdrx-dimension-remove-override x "dimclrt"))
    
37.                (xdrx-pickset->ents ss)
    
38.              )
    
39.              (xdrx-prompt "\n成功恢复了"
    
40.                           (sslength ss)
    
41.                           "个标注对象的文字颜色."
    
42.              )
    
43.         )
    
44.         (and (xdrx-setpropertyvalue ss "dimclrt" #xd-var-global-color)
    
45.              (xdrx-prompt "\n成功修改了"
    
46.                           (sslength ss)
    
47.                           "个标注对象的文字颜色."
    
48.              )
    
49.         )
    
50.       )
    
51.     )
    
52.   )
    
53.   (xdrx_end)
    
54.   (princ)
    
55. )
    
56. 
    

(defun c:XDTB_DimTxtColor (/ clr el n oldstyl)<br />   (xdrx-begin)<br />   (xdrx-prompt "\n**修改(恢复)标注对象的文字颜色**")<br />   (xd::var:getint "#xd-var-global-color" 7)<br />   (xdrx-initget "R C 1 2 3 4 5 6 7 8")<br />   (setq tf t)<br />   (while (and tf<br />               (setq clr<br />                      (getint<br />                        (xdrx-prompt<br />                          "\n请输入标注文字的新颜色号[选色(C)/恢复原色(R)](1红/2黄/3绿/4青/5蓝/6紫/7白)<"<br />                          #xd-var-global-color<br />                          ">:"<br />                          t<br />                        )<br />                      )<br />               )<br />          )<br />     (cond ((= clr "C")<br />            (setq clr (acad_colordlg #xd-var-global-color))<br />           )<br />     )<br />     (setq tf nil)<br />   )<br />   (and (/= (type clr) 'STR)<br />        (xd::var:setint "#xd-var-global-color" clr)<br />   )<br />   (if (setq ss (xdrx-ssget "\n选择要修改的标注对象<退出>:"<br />                            '((0 . "*dim*"))<br />                )<br />       )<br />     (progn<br />       (or<br />         (and (= clr "R")<br />              (mapcar<br />                '(lambda (x) (xdrx-dimension-remove-override x "dimclrt"))<br />                (xdrx-pickset->ents ss)<br />              )<br />              (xdrx-prompt "\n成功恢复了"<br />                           (sslength ss)<br />                           "个标注对象的文字颜色."<br />              )<br />         )<br />         (and (xdrx-setpropertyvalue ss "dimclrt" #xd-var-global-color)<br />              (xdrx-prompt "\n成功修改了"<br />                           (sslength ss)<br />                           "个标注对象的文字颜色."<br />              )<br />         )<br />       )<br />     )<br />   )<br />   (xdrx_end)<br />   (princ)<br /> )<br /> <br />

singa

谢谢分享！！！

凌乱的核桃仁

感谢楼主分享！！！

tzfcn

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

yangjian001

做一个热心并受欢迎的人

ko05050

活到老学到老