马上注册,结交更多好友,享用更多功能,让你轻松玩转社区。
您需要 登录 才可以下载或查看,没有帐号?立即注册
x
 - (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)
- )
|