[编程申请]：多个text对象同时按照某一公式计算

linuxme

如将
3443
4532
456.56
134.3
分别乘以2；

将
SS1
SS5
SS8
SS15
中后缀的数字部分分别加1

工作中经常遇到类似问题
文字修改大师可以完成第一个功能，而且作得还不错，只是不想为这么一个小功能就要装那么大的一个工具集
请几位斑竹帮忙写个小程序，谢谢

david96007

我这里有一个乘以10的程序:

2. 
   
3. (defun c:CH10 ()
   
4.   (princ "\n选择填挖面积:")
   
5.   (setq        ssmj          (ssget '((0 . "TEXT")))
   
6.         sslen          (sslength ssmj)
   
7.         FangLiang 0
   
8.         n          0
   
9.         xx          0
   
10.         yy          0
    
11.   )
    
12.   (while (< n sslen)
    
13.     (setq entmj (entget (ssname ssmj n)))
    
14.     (setq mj (distof (cdr (assoc 1 entmj)))
    
15.           x  (cadr (assoc 10 entmj))
    
16.           y  (caddr (assoc 10 entmj))
    
17.     )
    
18.     (setq str_fl (rtos (* mj 10) 2 2)
    
19.           xx         (+ x 35000)
    
20.     )
    
21. 
    
22.     (setq entmj        (subst (cons 1 str_fl) (assoc 1 entmj) entmj)
    
23.           entmj        (subst (list 10 xx y 0) (assoc 10 entmj) entmj)
    
24. 
    
25.     )
    
26.     (entmake entmj)
    
27. 
    
28.     (setq n (1+ n))
    
29.   ) ;_ end of while
    
30. 
    
31. 
    
32.   (princ)
    
33. 
    
34. )

<br /> (defun c:CH10 ()<br />   (princ "\n选择填挖面积:")<br />   (setq        ssmj          (ssget '((0 . "TEXT")))<br />         sslen          (sslength ssmj)<br />         FangLiang 0<br />         n          0<br />         xx          0<br />         yy          0<br />   )<br />   (while (< n sslen)<br />     (setq entmj (entget (ssname ssmj n)))<br />     (setq mj (distof (cdr (assoc 1 entmj)))<br />           x  (cadr (assoc 10 entmj))<br />           y  (caddr (assoc 10 entmj))<br />     )<br />     (setq str_fl (rtos (* mj 10) 2 2)<br />           xx         (+ x 35000)<br />     )<br /> <br />     (setq entmj        (subst (cons 1 str_fl) (assoc 1 entmj) entmj)<br />           entmj        (subst (list 10 xx y 0) (assoc 10 entmj) entmj)<br /> <br />     )<br />     (entmake entmj)<br /> <br />     (setq n (1+ n))<br />   ) ;_ end of while<br /> <br /> <br />   (princ)<br /> <br /> )

在自己画图中根据自己需要写的，很不完善，没有通用性！
楼主可以借鉴一下，改成适合自己需要的！

mmmm

将
SS1
SS5
SS8
SS15
中后缀的数字部分分别加1也不难，先将SS替换成""，计算完成后在加前缀。
另外的解决方案可以参考MathAnno2005 @ http://www.ikozmos.com/htmls/mathanno2005.htm

MingSoft

我网站的工具   http://www.mingsoft.net
TSCHANGETEXT命令 可以满足你的要求

841594

文字数字计算：
http://www.xdcad.net/forum/showthread.php?s=&threadid=154594
这个程序很适合。