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

wzg356

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

llsheng_73说的对，还得对单个字符串再判断一次他是不是数值

wayne_myles

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

请教下龙哥   运行你的代码 可能出了些小问题 点击数字后  不知道啥原因数字不见了
望有空时候帮忙看下 ！！谢谢

补充：：不好意思  龙哥代码很完美了 ！！！ 本人太菜   数字是多行文字 需要分解成单行文字就好了 ！！！

wayne_myles

wayne_myles 发表于 2015-12-28 08:22
请教下龙哥   运行你的代码 可能出了些小问题 点击数字后  不知道啥原因数字不见了
望有空时候帮忙看下 ...

龙哥的代码  真的很到位  有点小瑕疵
可惜龙哥没看到！！！
我就恢复下 回到以前的  先将就用用
(defun c:tt(/ ss e)
  (setvar "dimzin" 1)
  (setq *a*(if(setq b(getint(strcat"保留小数位["(if *a*(itoa *a*)"0")"]")))b(if *a* *a* 0)))
  (if(setq ss (ssget '((0 . "TEXT") (1 . "~*[~`--9]*"))))
    (foreach e(mapcar'(lambda(x / e a)(if(and(=(type(setq e(cadr x)))'ename)
          (setq a(distof(cdr(assoc 1(entget e))))))
            (list e a)))(ssnamex ss))
      (if e(entmod(mapcar'cons'(-1 1 62)(list(car e)(rtos(+ 78(last e))2 *a*)1)))))))

补充！！ 谢谢龙哥指点  此处代码不完美，  建议用7#的代码！！

wayne_myles

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

不好意思 误解了 本人实在太菜了  原来数字是多行文字分解成单行文字就好了！！！！

代码很完美  谢谢 龙哥 ！！！！

解决方案  见7#龙哥代码！！很完美了

wayne_myles

http://bbs.mjtd.com/thread-111059-1-1.html
这个计算器也很牛

oistre

学习学习！！!