公差改色程序

xudongchu · 发表于 2019-3-19 08:36:48

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

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

×

公差改色
1.输入命令
2.输入要色号
3.框选尺寸
4.空格完成
备注：自动将带有公差的尺寸公差改为设定颜色
兼有颜色复原功能

请大神帮忙实现一下功能谢谢。

aisong220 · 发表于 2019-3-19 09:07:26

xudongchu · 发表于 2019-3-19 12:36:24

这里这么冷清？

Lispboy · 发表于 2019-3-19 16:32:24

本帖最后由 Lispboy 于 2019-3-19 16:53 编辑

xudongchu 发表于 2019-3-19 12:36
这里这么冷清？

试试

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

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

xudongchu · 发表于 2019-3-20 07:58:57

Lispboy 发表于 2019-3-19 16:32
试试

你好：谢谢您的回答。
不知道这是怎么回事，重新在测试文件上标注尺寸用这个插件后，尺寸标注的颜色都改了。

newer · 发表于 2019-3-20 09:58:22

xudongchu 发表于 2019-3-20 07:58
你好：谢谢您的回答。
不知道这是怎么回事，重新在测试文件上标注尺寸用这个插件后，尺寸标注的颜色都 ...

在你的图试的

xudongchu · 发表于 2019-3-20 10:40:26

newer 发表于 2019-3-20 09:58
在你的图试的

我上传的测试文件上的尺寸是可以使用的，重新在测试文件上标注尺寸使用这个插件就不行，重新新建---标注尺寸用这个插件也不行，真是见了鬼了。

xudongchu · 发表于 2019-3-20 14:44:04

谁帮忙测试一下，你们CAD能使用这个程序吗？

xudongchu · 发表于 2019-3-26 09:41:18

你好楼主程序好像有点问题。直接使用程序改色，尺寸和公差都一起改成设定的颜色了，如果使用ed编辑先将公差随便改成一种颜色，这时候再用这个程序是没问题的。

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

[编程申请] 公差改色程序

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

点评

点评

点评

点评