楼主最好是找到要加与不加两种字符内容的区别及相同点！这样才好框选一次搞定
本帖最后由 ZZXXQQ 于 2012-12-15 07:59 编辑
;字串加括弧 明经 ZZXXQQ 2012.12.13
(defun c:tt ()
(if (and (setq txt1 (getstring "\n匹配的字串 :"))
(setq ss (ssget (list '(0 . "TEXT") (cons 1 (strcat "*"
txt1 "*")))))) (progn
(setq i -1)
(repeat (sslength ss)
(setq ent (entget(ssname ss (setq i (1+ i))))
txt (cdr(assoc 1 ent)))
(setq n (vl-string-search txt1 txt))
(if (= (substr txt n 1) "(")
(setq txt
(strcat
(substr txt 1 n)
txt1
(substr txt (+ (strlen txt1) n 2))
)
)
(setq txt
(strcat
(substr txt 1 n)
"(" txt1 ")"
(substr txt (+ (strlen txt1) n))
)
)
)
(entmod (subst (cons 1 txt) (assoc 1 ent) ent))
)
))
(princ)
)
ZZXXQQ 发表于 2012-12-13 10:15 static/image/common/back.gif
给个程序框架，程序未调试，可能函数错误。
输入tt无反应
请Z版再出手
本帖最后由 ZZXXQQ 于 2012-12-14 07:05 编辑
10楼又改了，试试看。
其实我一直想找一个这样的求和程序：
1、文本纯数字统计，（如23、35、51，统计结果109）
2、文本数字前缀一样的统计（如m23、钉1、钉8、钉91、m35、m51，统计结果m109、钉100）
3、文本数字后缀一样的统计（如23m、19m、63m、11钉、12钉，统计结果105m,23钉）
ZZXXQQ 发表于 2012-12-13 21:18 static/image/common/back.gif
10楼又改了，试试看。
在cad2004下提示“错误: no function definition: GETSTING”
在cad20006直接无反应
是我电脑缺少什么函数吗？
本帖最后由 chleiwu 于 2012-12-15 10:57 编辑
ZZXXQQ 发表于 2012-12-13 21:18 http://bbs.mjtd.com/static/image/common/back.gif
10楼又改了，试试看。
现在程序可以输入需要替代的字符串
不过执行完毕并没有加上括号
是不是对文字图层和字符串有什么限制？
求完善，bow~
wowan1314 发表于 2012-12-13 01:32 static/image/common/back.gif
楼主最好是找到要加与不加两种字符内容的区别及相同点！这样才好框选一次搞定
加与不加的主要区别在于集中标注的第一排编号字符是KL还是L，
但是这跟这集中标注的几排字符排列有关，判断这有难度。
所以我觉得只要能输入需加括号的字符，
然后是点选还是框选，能把需要加括号的字符加上括号就行了
具体操作时我一个个点或框都行，总比现在一个个进去加括号快吧
不能就这么沉了，
顶上去，求高手指点啊