张和平 发表于 2013-7-19 18:01:07

文字求和

本帖最后由 张和平 于 2014-5-8 20:43 编辑


===============
20140508更新

===============


源码：


http://bbs.mjtd.com/xwb/images/bgimg/icon_logo.png 该贴已经同步到 张和平的微博

p-3-ianlcc 发表于 2022-9-7 16:28:23

你好，请问一下
我用2014年的版本运行
autocad会当掉…是不是有少了哪个步骤吗？

glcsq 发表于 2024-8-24 10:44:32

谢谢分享，增加一个没有选择的对象的出错判断就完美了。

guankuiwu 发表于 2020-1-4 13:28:46

如果有空格多少不一就无法正常了

阿霸jun 发表于 2013-7-19 18:09:26

不错

bai0379 发表于 2013-7-19 22:01:45

能不能做个：如：A=23MMB=45MM    SUM=48MM   这样的求和？

张和平 发表于 2013-7-20 00:45:36

bai0379 发表于 2013-7-19 22:01 static/image/common/back.gif
能不能做个：如：A=23MMB=45MM    SUM=48MM   这样的求和？

这个可以考虑扩展

chenbh2 发表于 2014-2-9 14:40:31

一直找了好久这样的软件。感谢楼主！
可不可以修改为
1 ：SUM=修改为过滤前缀。
2：所选文字变色，取消√。

胖胖肥的天涯 发表于 2014-5-6 23:45:46

求楼主发个安装教程啊，怎么加载啊？

flytoday 发表于 2014-5-7 08:51:56



老大这个统计怎么过滤啊能改改不~

xyp1964 发表于 2014-5-7 09:48:11


;; 需要e派工具箱(XCAD)的支持：http://yunpan.cn/QXQKsW9gAPmpF 访问密码 2ffa
(defun c:tt ()
(if (setq ss (ssget '((0 . "text"))))
    (progn
      (setq lst (mapcar '(lambda (x) (xyp-DXF 1 x)) (xyp-ss2list ss))
          lst        (mapcar '(lambda (x) (xyp-Get-HzEngNum x 0)) lst)
          lst        (vl-remove-if '(lambda (x) (not (vl-some 'distof x))) lst)
          lst        (vl-sort lst '(lambda (x y) (< (car x) (car y))))
          lst        (mapcar '(lambda (x) (list (car x) (distof (cadr x)))) lst)
      )
      (if (and lst
             (setq lst (XYP-COUNT-NUM lst 1))
             (setq p1 (getpoint "\n基点<退出>: "))
          )
        (foreach a lst
          (setq tx (strcat "SUM(" (car a) ")=" (rtos (cadr a) 2 2))
                s1 (xyp-Text 4 p1 tx)
                p1 (xyp-Pt2Y p1 -600)
          )
        )
      )
    )
)
(princ lst)
)

flytoday 发表于 2014-5-7 10:04:15

xyp1964 发表于 2014-5-7 09:48


院长好………………………………………………

张和平 发表于 2014-5-7 10:54:45

flytoday 发表于 2014-5-7 08:51 static/image/common/back.gif
老大这个统计怎么过滤啊能改改不~

你要s1和s2的都加起来？
页: [1] 2 3 4 5
查看完整版本: 文字求和