文字求和

张和平

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

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


源码：


该贴已经同步到 张和平的微博

p-3-ianlcc

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

glcsq

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

guankuiwu

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

阿霸jun

不错

bai0379

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

张和平

bai0379 发表于 2013-7-19 22:01
能不能做个：如：A=23MM  B=45MM    SUM=48MM   这样的求和？

这个可以考虑扩展

chenbh2

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

胖胖肥的天涯

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

flytoday

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

xyp1964

2. 
   
3. ;; 需要e派工具箱(XCAD)的支持：[url]http://yunpan.cn/QXQKsW9gAPmpF[/url] 访问密码 2ffa
   
4. (defun c:tt ()
   
5.   (if (setq ss (ssget '((0 . "text"))))
   
6.     (progn
   
7.       (setq lst (mapcar '(lambda (x) (xyp-DXF 1 x)) (xyp-ss2list ss))
   
8.             lst        (mapcar '(lambda (x) (xyp-Get-HzEngNum x 0)) lst)
   
9.             lst        (vl-remove-if '(lambda (x) (not (vl-some 'distof x))) lst)
   
10.             lst        (vl-sort lst '(lambda (x y) (< (car x) (car y))))
    
11.             lst        (mapcar '(lambda (x) (list (car x) (distof (cadr x)))) lst)
    
12.       )
    
13.       (if (and lst
    
14.                (setq lst (XYP-COUNT-NUM lst 1))
    
15.                (setq p1 (getpoint "\n基点<退出>: "))
    
16.           )
    
17.         (foreach a lst
    
18.           (setq tx (strcat "SUM(" (car a) ")=" (rtos (cadr a) 2 2))
    
19.                 s1 (xyp-Text 4 p1 tx)
    
20.                 p1 (xyp-Pt2Y p1 -600)
    
21.           )
    
22.         )
    
23.       )
    
24.     )
    
25.   )
    
26.   (princ lst)
    
27. )

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

flytoday

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

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

张和平

flytoday 发表于 2014-5-7 08:51
老大这个统计怎么过滤啊能改改不~

你要s1和s2的都加起来？