[LISP程序]：文本求和xtcal程序，支持文本中多个数字

snsj

最初由 ywx0576 发布
[B]snsj斑竹的程序对于默认的标注值，求和结果正确。
但是对于人为改过的标注值，求和结果并不是标注值之和。
请斑竹改正，谢谢! [/B]

2. 
   
3. ;;;标注求和
   
4. (defun c:qbz (/ ss kk i zjz shz ent)
   
5. (setq ss (ssget '((0 . "DIMENSION"))) i 0  kk nil)
   
6. (repeat (sslength ss)
   
7.   (setq ent (entget(ssname ss i)))
   
8.   (setq shz(cdr(assoc 1 ent)))
   
9.   (cond ((/= shz "")(setq zjz (atof shz)))
   
10.    (t (setq zjz (cdr(assoc 42 ent))))
    
11.     )  
    
12.   (setq kk  (cons zjz kk))
    
13.         (setq i (1+ i))
    
14.         )
    
15.   (princ "\n******所选标注和为")(princ (apply '+ kk))(princ "******")
    
16.   (princ)
    
17.   )
    
18. 
    

<br /> ;;;标注求和<br /> (defun c:qbz (/ ss kk i zjz shz ent)<br /> (setq ss (ssget '((0 . "DIMENSION"))) i 0  kk nil)<br /> (repeat (sslength ss)<br />   (setq ent (entget(ssname ss i)))<br />   (setq shz(cdr(assoc 1 ent)))<br />   (cond ((/= shz "")(setq zjz (atof shz)))<br />    (t (setq zjz (cdr(assoc 42 ent))))<br />     )  <br />   (setq kk  (cons zjz kk))<br />         (setq i (1+ i))<br />         )<br />   (princ "\n******所选标注和为")(princ (apply '+ kk))(princ "******")<br />   (princ)<br />   )<br /> <br />

ywx0576

还是老样子：求和结果并不是改过后的标注值之和。

snsj

对不起，贴错了，换了下，试试

ywx0576

太好了，计算结果完全正确，十分感谢snsj斑竹!

krjcxc321

不错，不知能不能用于R14

caibaobao

最好能把上述的程序整理和整合一下，因为象我这个外行看了有点头晕，谢谢！

ywx0576

snsj 斑竹你好! 又麻烦你了，实在不好意思!
你编的标注求和程序在2004下完全正确。可是在2005下对于人为改过的标注值，求和结果正确，对于默认的标注值，求和结果总是负数，选中2个标注结果是-2，选中4个结果是-4。
不知问题出在哪儿，请你再帮帮忙，谢谢!
下面是出错的图：

snsj

因为使用别的程序改变了其42组码，不是2005的问题，是否使用其它比如标注值固定等程序，只需简单更新一下数据就可以了
[php]
;;;标注求和
(defun c:qbz (/ ss kk i zjz shz ent)
(setq ss (ssget '((0 . "DIMENSION"))) i 0  kk nil)
  (vl-cmdf ".erase" ss "")(vl-cmdf ".oops")
(repeat (sslength ss)
  (setq ent (entget(ssname ss i)))
  (setq shz(cdr(assoc 1 ent)))
  (cond ((/= shz "")(setq zjz (atof shz)))
   (t (setq zjz (cdr(assoc 42 ent))))
    )  
  (setq kk  (cons zjz kk))
        (setq i (1+ i))
        )
  (princ "\n******所选标注和为")(princ (apply '+ kk))(princ "******")
  (princ)
  )
[/php]

ywx0576

问题解决了，十分感谢snsj 斑竹的热情相助! 再次感谢!
(前几天是用过标注值固定的程序)

swaywood

非常好的东西，不过我经常会遇到这样的问题：明细表中的文字不经意的重叠了，那么这样计算出来的数值就不对了，但有很难发觉，楼主应该考虑这样的问题……
如何判断在整个选择集中，哪些图元的（可能是相邻图元）除名称外的图元组码是一样的呢，这个问题如何解决？

zjqtc

太好了，我刚好再找这个，谢谢！

yuanxiyi

我使用了一下，确实不错。

shisj

太好了，我先试试

hisen

比较麻烦 ，我的怎么就调不通呢。

冰棱无剑

俺不太清楚,上面的程序怎么用到CAD里去啊.是不是存成.LISP就可以了啊.请各位大虾帮忙解答!