公差标注批量改色

Lispboy

1. (defun c:xdtb_dimmodtolclr (/ clr ss x m v val)
   
2.   (xdrx_begin)
   
3.   (if (not $xdtb_var_global_blkrefcolor)
   
4.     (setq $xdtb_var_global_blkrefcolor 1)
   
5.   )
   
6.   (xdrx_initget "C")
   
7.   (setq clr (getint (strcat "\n颜色号[C-对话框]<"
   
8.                             (itoa $xdtb_var_global_blkrefcolor)
   
9.                             ">:"
   
10.                     )
    
11.             )
    
12.   )
    
13.   (cond ((= clr "C")
    
14.          (setq $xdtb_var_global_blkrefcolor (acad_colordlg 256))
    
15.         )
    
16.         ((= (type clr) 'INT)
    
17.          (setq $xdtb_var_global_blkrefcolor clr)
    
18.         )
    
19.   )
    
20.   (if (and (xdrx_initssget "\n选择修改颜色的公差标注<退出>:")
    
21.            (setq ss (xdrx_ssget '((0 . "dimension"))))
    
22.       )
    
23.     (progn
    
24.       (mapcar
    
25.         '(lambda (x)
    
26.            (setq m (xdrx_getpropertyvalue x "mtext")
    
27.                  v (xdrx_getpropertyvalue m "contents")
    
28.            )
    
29.            (if (setq val (xdrx_string_regexps "[\\S|%%P].*;" v))
    
30.              (progn
    
31.                (if
    
32.                  (xdrx_string_regexps "\\\\C([0-9]+);([\\\\S|%%P])(.*)" v)
    
33.                   (setq
    
34.                     v (xdrx_string_regexpr "\\\\C([0-9]+);([\\\\S|%%P])(.*)" v (strcat "\\C" (itoa $xdtb_var_global_blkrefcolor) ";$2$3"))
    
35.                   )
    
36.                  (setq
    
37.                     v (xdrx_string_regexpr "([\\\\S|%%P])(.*)" v (strcat "\\C" (itoa $xdtb_var_global_blkrefcolor) ";$1$2"))
    
38.                   )
    
39.                )
    
40.                (xdrx_setpropertyvalue x "dimensiontext" v)
    
41.              )
    
42.            )
    
43.          )(xdrx_pickset->ents ss)
    
44.       )
    
45.     )
    
46.   )
    
47.   (xdrx_end)
    
48.   (princ)
    
49. )
    

(defun c:xdtb_dimmodtolclr (/ clr ss x m v val)<br />   (xdrx_begin)<br />   (if (not $xdtb_var_global_blkrefcolor)<br />     (setq $xdtb_var_global_blkrefcolor 1)<br />   )<br />   (xdrx_initget "C")<br />   (setq clr (getint (strcat "\n颜色号[C-对话框]<"<br />                             (itoa $xdtb_var_global_blkrefcolor)<br />                             ">:"<br />                     )<br />             )<br />   )<br />   (cond ((= clr "C")<br />          (setq $xdtb_var_global_blkrefcolor (acad_colordlg 256))<br />         )<br />         ((= (type clr) 'INT)<br />          (setq $xdtb_var_global_blkrefcolor clr)<br />         )<br />   )<br />   (if (and (xdrx_initssget "\n选择修改颜色的公差标注<退出>:")<br />            (setq ss (xdrx_ssget '((0 . "dimension"))))<br />       )<br />     (progn<br />       (mapcar<br />         '(lambda (x)<br />            (setq m (xdrx_getpropertyvalue x "mtext")<br />                  v (xdrx_getpropertyvalue m "contents")<br />            )<br />            (if (setq val (xdrx_string_regexps "[\\S|%%P].*;" v))<br />              (progn<br />                (if<br />                  (xdrx_string_regexps "\\\\C([0-9]+);([\\\\S|%%P])(.*)" v)<br />                   (setq<br />                     v (xdrx_string_regexpr "\\\\C([0-9]+);([\\\\S|%%P])(.*)" v (strcat "\\C" (itoa $xdtb_var_global_blkrefcolor) ";$2$3"))<br />                   )<br />                  (setq<br />                     v (xdrx_string_regexpr "([\\\\S|%%P])(.*)" v (strcat "\\C" (itoa $xdtb_var_global_blkrefcolor) ";$1$2"))<br />                   )<br />                )<br />                (xdrx_setpropertyvalue x "dimensiontext" v)<br />              )<br />            )<br />          )(xdrx_pickset->ents ss)<br />       )<br />     )<br />   )<br />   (xdrx_end)<br />   (princ)<br /> )<br />

tzfcn

这样看越来就醒目多了。

coverne

谢谢分项拯救视力

小小的人

好强大   好东西  收藏了