怎样把CAD里面的数字批量加括号
发布网友
发布时间：2022-04-29 17:45
共4个回答
热心网友
时间：2023-10-25 11:56
要批量加刮弧的话，如果文字内容相同，可以用【快速选择】的方法，选择这个内容的文字加刮弧。
如果数值文字的内容不同，那么使用autolisp来解决，代码如下
(defun C:tes ( / #g1 &k1 &kw1 c1 str1)(princ "\n请选择要加刮弧的文字")
(if (setq &kw1 (ssget (list '(0 . "TEXT") '(1 . "~*[~+-.0-9]*" ))))
;只有数值才会被选择
(progn
(while (setq &k1 (ssname &kw1 0));对每个数值进行操作
(setq &kw1 (ssdel &k1 &kw1))
(setq #g1 (entget &k1));取得属性列表
(setq c1 (assoc 1 #g1));取得文字内容组
(setq str1 (cdr c1));取得内容
(setq str1 (strcat "(" str1 ")"));文字内容加刮弧
(setq #g1 (subst (cons 1 str1) c1 #g1))
(entmod #g1)
)
)
)
(princ)
);复制到记事本,以【.lsp】为后缀命名,打开CAD，autolisp加载，命令【TES】
;数值文字前后加刮弧
热心网友
时间：2023-10-25 11:57
http://sites.google.com/site/cadkits/home/altext
Text选项中选Number,前缀(Prefix)填(,后缀(Suffix)填)即可。
可以试用，也可以发个邮件去免费注册。
参考资料：http://sites.google.com/site/cadkits/home/altext
热心网友
时间：2023-10-25 11:57
热心网友
时间：2023-10-25 11:58
热心网友
时间：2023-10-25 11:56
要批量加刮弧的话，如果文字内容相同，可以用【快速选择】的方法，选择这个内容的文字加刮弧。
如果数值文字的内容不同，那么使用autolisp来解决，代码如下
(defun C:tes ( / #g1 &k1 &kw1 c1 str1)(princ "\n请选择要加刮弧的文字")
(if (setq &kw1 (ssget (list '(0 . "TEXT") '(1 . "~*[~+-.0-9]*" ))))
;只有数值才会被选择
(progn
(while (setq &k1 (ssname &kw1 0));对每个数值进行操作
(setq &kw1 (ssdel &k1 &kw1))
(setq #g1 (entget &k1));取得属性列表
(setq c1 (assoc 1 #g1));取得文字内容组
(setq str1 (cdr c1));取得内容
(setq str1 (strcat "(" str1 ")"));文字内容加刮弧
(setq #g1 (subst (cons 1 str1) c1 #g1))
(entmod #g1)
)
)
)
(princ)
);复制到记事本,以【.lsp】为后缀命名,打开CAD，autolisp加载，命令【TES】
;数值文字前后加刮弧
热心网友
时间：2023-10-25 11:57
http://sites.google.com/site/cadkits/home/altext
Text选项中选Number,前缀(Prefix)填(,后缀(Suffix)填)即可。
可以试用，也可以发个邮件去免费注册。
参考资料：http://sites.google.com/site/cadkits/home/altext
热心网友
时间：2023-10-25 11:57
热心网友
时间：2023-10-25 11:56
要批量加刮弧的话，如果文字内容相同，可以用【快速选择】的方法，选择这个内容的文字加刮弧。
如果数值文字的内容不同，那么使用autolisp来解决，代码如下
(defun C:tes ( / #g1 &k1 &kw1 c1 str1)(princ "\n请选择要加刮弧的文字")
(if (setq &kw1 (ssget (list '(0 . "TEXT") '(1 . "~*[~+-.0-9]*" ))))
;只有数值才会被选择
(progn
(while (setq &k1 (ssname &kw1 0));对每个数值进行操作
(setq &kw1 (ssdel &k1 &kw1))
(setq #g1 (entget &k1));取得属性列表
(setq c1 (assoc 1 #g1));取得文字内容组
(setq str1 (cdr c1));取得内容
(setq str1 (strcat "(" str1 ")"));文字内容加刮弧
(setq #g1 (subst (cons 1 str1) c1 #g1))
(entmod #g1)
)
)
)
(princ)
);复制到记事本,以【.lsp】为后缀命名,打开CAD，autolisp加载，命令【TES】
;数值文字前后加刮弧
热心网友
时间：2023-10-25 11:57
http://sites.google.com/site/cadkits/home/altext
Text选项中选Number,前缀(Prefix)填(,后缀(Suffix)填)即可。
可以试用，也可以发个邮件去免费注册。
参考资料：http://sites.google.com/site/cadkits/home/altext
热心网友
时间：2023-10-25 11:58
热心网友
时间：2023-10-25 11:57
热心网友
时间：2023-10-25 11:58
