求代码 点击一下数字 就变成 此数字加上固定数字的运算结果！

wayne_myles

求助各位大大！！！  
点击一下数字 就变成 此数字加上固定数字的运算结果！

表达不好 我就举个例子！
cad中 不同位置 有不同的数字    我想得到 每个数字+78 的结果   

想要的效果是 我先定义+78 然后我单击2  2就变成80   我单击23  就变成101     我单击100就变成178.。。。。。。
假如可以的话  +78这个数字可以自定义（比如+!  比如+8）   最好改变后的数字变成红色 ---方便区别是否单击过！！

麻烦各位大大了！！！！呵呵  先谢谢了

补充 ！已解决  方案见7# 龙哥代码  完美运行   谢谢龙哥了！

wayne_myles

发张美女镇楼！！哈

wzg356

(+ (atof(cdr(assoc 1(entget(car(entsel)))))) 78)

wayne_myles

wzg356 发表于 2015-12-26 13:58
(+ (atof(cdr(assoc 1(entget(car(entsel)))))) 78)

可行谢谢  就是结果显示在命令行之中稍有不便
是否可以把原来的数字变成运算结果？！！！！谢谢大侠

wzg356

2. (defun c:adnum ( / ss i val1 val2 ent newstr)
   
3. (setvar "dimzin" 1)
   
4. (if (setq ss (ssget '((0 . "TEXT") (1 . "~*[~`--9]*"))));只选取数字文本
   
5.   (progn
   
6.     (setq i 0 )
   
7.     (setq val1 (getreal "\n输入要加的数："))
   
8.     (setq val2 (getint "\n输入保留小数位："))
   
9.     (repeat (sslength ss)
   
10.       (setq ent (entget(ssname ss i))
    
11.            newstr(rtos (+ (atof(cdr(assoc 1 ent))) val1) 2 val2)
    
12.       )
    
13.       (entmod (setq ent (subst (cons 1 newstr) (assoc 1 ent) ent)))
    
14.       ;(if (assoc 62 ent)
    
15.       ;  (entmod (subst (cons 62 1) (assoc 62 ent) ent))
    
16.       ;  (entmod (cons (cons 62 1)ent))        
    
17.       ;)
    
18.       (setq i (+ 1 i))      
    
19.     )
    
20.   )
    
21.   (alert "\n没有选中数字！")
    
22. )
    
23. (princ)
    
24. )

(defun c:adnum ( / ss i val1 val2 ent newstr)<br /> (setvar "dimzin" 1)<br /> (if (setq ss (ssget '((0 . "TEXT") (1 . "~*[~`--9]*"))));只选取数字文本<br />   (progn<br />     (setq i 0 )<br />     (setq val1 (getreal "\n输入要加的数："))<br />     (setq val2 (getint "\n输入保留小数位："))<br />     (repeat (sslength ss)<br />       (setq ent (entget(ssname ss i))<br />            newstr(rtos (+ (atof(cdr(assoc 1 ent))) val1) 2 val2)<br />       )<br />       (entmod (setq ent (subst (cons 1 newstr) (assoc 1 ent) ent)))<br />       ;(if (assoc 62 ent)<br />       ;  (entmod (subst (cons 62 1) (assoc 62 ent) ent))<br />       ;  (entmod (cons (cons 62 1)ent))        <br />       ;)<br />       (setq i (+ 1 i))      <br />     )<br />   )<br />   (alert "\n没有选中数字！")<br /> )<br /> (princ)<br /> )

wayne_myles

wzg356 发表于 2015-12-26 15:36

已经运行很好！！！！谢谢
  希望您有空的话 帮忙改进下已经改变的数字变成红色 再次谢谢大神！！！

llsheng_73

wayne_myles 发表于 2015-12-26 17:01
已经运行很好！！！！谢谢
  希望您有空的话 帮忙改进下已经改变的数字变成红色 再次谢谢大神！！！

1. (defun c:tt(/ ss e)
   
2.   (setvar "dimzin" 1)
   
3.   (setq *a*(if(setq b(getint(strcat"保留小数位["(if *a*(itoa *a*)"0")"]")))b(if *a* *a* 0)))
   
4.   (if(setq ss (ssget '((1 . "*#*"))))
   
5.     (foreach e(mapcar'(lambda(x / e a)(if(and(=(type(setq e(cadr x)))'ename)
   
6.           (setq a(distof(cdr(assoc 1(entget e))))))
   
7.             (list e a)))(ssnamex ss))
   
8.       (if e(entmod(mapcar'cons'(-1 1 62)(list(car e)(rtos(+ 78(last e))2 *a*)1)))))))

(defun c:tt(/ ss e)<br />   (setvar "dimzin" 1)<br />   (setq *a*(if(setq b(getint(strcat"保留小数位["(if *a*(itoa *a*)"0")"]")))b(if *a* *a* 0)))<br />   (if(setq ss (ssget '((1 . "*#*"))))<br />     (foreach e(mapcar'(lambda(x / e a)(if(and(=(type(setq e(cadr x)))'ename)<br />           (setq a(distof(cdr(assoc 1(entget e))))))<br />             (list e a)))(ssnamex ss))<br />       (if e(entmod(mapcar'cons'(-1 1 62)(list(car e)(rtos(+ 78(last e))2 *a*)1)))))))

ll_j

到我的网络U盘中下载一个ce.lsp，通用文本计算。

wzg356

llsheng_73 发表于 2015-12-26 18:40

谢谢大咖指点
(setq ss (ssget '((0 . "TEXT") (1 . "~*[~`--9]*"))));只选取数字文本

llsheng_73

wzg356 发表于 2015-12-26 21:45
谢谢大咖指点
(setq ss (ssget '((0 . "TEXT") (1 . "~*[~`--9]*"))));只选取数字文本

"1.2.3"或者"1-2"都会被 (ssget '((0 . "TEXT") (1 . "~*[~`--9]*")))选中，而类似1e-8这种实实在在的数字却被过滤掉了
个人认为，无法直接通过过滤表来选择数字文本。。。只能大致过滤然后对文本进行测试后进行剔除