怎样把CAD里面的数字批量加括号

Question

CAD图形里面有一些数字，有没有办法可以批量的把这些数字加上括号（即用括号括起来）？

Answer 1

要批量加刮弧的话，如果文字内容相同，可以用【快速选择】的方法，选择这个内容的文字加刮弧。

如果数值文字的内容不同，那么使用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】
;数值文字前后加刮弧

Answer 2

请使用ALTEXT
http://sites.google.com/site/cadkits/home/altext
Text选项中选Number,前缀(Prefix)填(,后缀(Suffix)填)即可。
可以试用，也可以发个邮件去免费注册。

参考资料：http://sites.google.com/site/cadkits/home/altext

本回答被提问者采纳

Answer 3

自己写VBA程序才行

Answer 4

CAD可不是文字处理软件....没有那个功能~