社区 › AutoLISP/Visual LISP 编程技术 › 求代码 点击一下数字 就变成 此数字加上固定数字的运算结果！

wzg356 发表于 2015-12-26 22:50:29

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

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

wayne_myles 发表于 2015-12-28 08:22:18

本帖最后由 wayne_myles 于 2015-12-29 15:19 编辑

llsheng_73 发表于 2015-12-26 18:40 http://bbs.mjtd.com/static/image/common/back.gif


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

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

wayne_myles 发表于 2015-12-29 10:23:29

本帖最后由 wayne_myles 于 2015-12-30 07:38 编辑

wayne_myles 发表于 2015-12-28 08:22 http://bbs.mjtd.com/static/image/common/back.gif
请教下龙哥   运行你的代码 可能出了些小问题 点击数字后不知道啥原因数字不见了
望有空时候帮忙看下 ...
龙哥的代码真的很到位有点小瑕疵
可惜龙哥没看到！！！
我就恢复下 回到以前的先将就用用
(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 发表于 2015-12-29 15:17:22

本帖最后由 wayne_myles 于 2015-12-29 15:20 编辑

llsheng_73 发表于 2015-12-26 18:40 http://bbs.mjtd.com/static/image/common/back.gif


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

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

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

wayne_myles 发表于 2016-1-4 08:44:02

本帖最后由 wayne_myles 于 2016-1-4 08:53 编辑

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

oistre 发表于 2018-9-1 09:19:38

学习学习！！!

查看完整版本: 求代码 点击一下数字 就变成 此数字加上固定数字的运算结果！