[编程申请]：修改文字，将里面的数字加（减）一个定值！

Durain

因为经常要改动梁表（GSCAD生成的）里面的配筋，希望能有这样一个小程序：
1.增加（减少）一级钢筋，就是将文字"2D16" 改成："2D18"(增加一级）或者 "2D14"（减少一级）
2.增加（减少）一条钢筋，就是将文字"2D16"改成："3D16"    ~~~                          "1D16"   ~~~
3.将数字增加（减少）一个定值。
4.不管选中的文字是什么，一律改成一个指的值。

绘图员

"不管选中的文字是什么，一律改成一个指的值"   可以用文字替换

Durain

最初由 绘图员 发布
[B]"不管选中的文字是什么，一律改成一个指的值"   可以用文字替换 [/B]

不行的，兄弟，如可真的可以的话，那么请看看下面的截图，告诉我该怎么做？（哎，要是支持通配符就好了）

lsjjm

4. 单个的用DDEDIT;
    批量的参考:

2. 
   
3.    (defun c:test ()
   
4.       (prompt "\Select Text:")
   
5.       (setq ss (ssget) n 0)
   
6.       (setq tstr (getstring "\nNew Text String: "))
   
7.       (while (< n (sslength ss))
   
8.         (setq ent (ssname ss n))
   
9.         (setq obj (vlax-ename->vla-object ent))
   
10.         (vla-put-textstring obj tstr)
    
11.         (setq n (1+ n))
    
12.       )
    
13.    (princ)
    
14. )

<br />    (defun c:test ()<br />       (prompt "\Select Text:")<br />       (setq ss (ssget) n 0)<br />       (setq tstr (getstring "\nNew Text String: "))<br />       (while (< n (sslength ss))<br />         (setq ent (ssname ss n))<br />         (setq obj (vlax-ename->vla-object ent))<br />         (vla-put-textstring obj tstr)<br />         (setq n (1+ n))<br />       )<br />    (princ)<br /> )

自由的鱼

改成指定的值不难，在论坛外挂版里我有一个程序可以做到，而且可以多文档替换/

blackspot

我以前作过的一个程序能完成一楼楼主指定的前三项的功能，有过滤文字前缀、后缀的功能（但尚未添加支持通配符的功能），先上传，以后有空时再添加第四项功能
该程序以前是为道路交叉口竖向设计的后期处理所用
不好意思，袋里钱太少，过节讨些钱花。附件为vlx格式。

Durain

To 4楼
谢谢了，我也想自已做一个，你的程序对我很有启发！
To 5楼
多谢指点，我这就去找找看。
To 6楼
不是吧，老兄，这也要收钱？不能学学雷锋么^_^
算你了，不管如何，还是要多谢你的。

eachy

http://www.xdcad.net/forum/showthread.php?s=&threadid=160637