标注的数字求和

toeastone

;;;=============标注求和dadd.lsp===================================================
;;;标注的数字求和

(defun c:dadd3 (/ss i sum  ssone0  ssone   a1 a2)
  (setq ss (ssget '((0 . "DIMENSION"))))
  (setq i  0   sum 0)
 
 

 
(repeat (sslength ss)
    (setq kk (cons (cdr (assoc 42 (entget (ssname ss i)))) kk))
    (setq i (1+ i))
  )
    
       (setq ssone0 (ssname ss i) )
       (setq ssone (entget  ssone0 ))

       (setq a1  (cdr (assoc 1 ssone)))

       (if (=a1  "") (setq a2 (atof (cdr (assoc 42 ssone))))  (setq a2  (atof (cdr (assoc 1  ssone))))    )   
 
     
      
      (setq sum (+ sum 　a2))   (setq i (1+  i))
) 

  (princ "\n******所选标注和为")
   (princ sum)

  (princ "******")
   ;(command "text" "s" "standard"  pause "3" "0"   (rtos sum 2 2)  )
 (princ)
)

ch34

ZZXXQQ 发表于 2011-6-8 20:47
不会加载！
有多种方式加载。
首先将代码复制粘贴到记事本或纯文本编辑器中，另存成扩展名为lsp的 ...

好用，对用改的标注也可以统计。以后对手改尺寸就不用一个个算了

664571221

ZZXXQQ 发表于 2011-6-8 20:47
不会加载！
有多种方式加载。
首先将代码复制粘贴到记事本或纯文本编辑器中，另存成扩展名为lsp的 ...

你好能把表达式写入cad吗

szx025

天宇飞翔12 发表于 2021-2-8 17:42
大神，有没有标注相减的

http://bbs.mjtd.com/forum.php?mo ... A2%B8%CA&page=1
看看这个

fengshi0519

拿来试用一下

详谢谢楼主

zfsaaa

; 错误: 参数太少

ZZXXQQ

改了改。

3. (defun c:dadd3 ( / ss i sum ssone0 ssone a1 a2)
4. (setq ss (ssget '((0 . "DIMENSION"))))
5. (setq i 1)
6. (setq ent (entget(ssname ss 0)))
7. (setq a1 (cdr(assoc 1 ent)))
8. (if (or (= a1 "") (= a1 "<>"))
9.   (setq sum (cdr(assoc 42 ent)))
10.   (setq sum (atof a1))
11. )
12. (repeat (1- (sslength ss))
13.   (setq ssone (entget (ssname ss i)))
14.   (setq a1 (cdr (assoc 1 ssone)))
15.   (if (or (= a1 "") (= a1 "<>"))
16.    (setq a2 (cdr (assoc 42 ssone)))
17.    (setq a2 (atof a1))
18.   )   
19.   (setq sum (+ sum a2))
20.   (setq i (1+ i))
21. )
22. (princ "\n******所选标注和为")
23. (princ sum)
24. (princ "******")
25.    ;(command "text" "s" "standard"  pause "3" "0" (rtos sum 2 2))
26. (princ)
27. )

(defun c:dadd3 ( / ss i sum ssone0 ssone a1 a2) (setq ss (ssget '((0 . "DIMENSION")))) (setq i 1) (setq ent (entget(ssname ss 0))) (setq a1 (cdr(assoc 1 ent))) (if (or (= a1 "") (= a1 "<>"))   (setq sum (cdr(assoc 42 ent)))   (setq sum (atof a1)) ) (repeat (1- (sslength ss))   (setq ssone (entget (ssname ss i)))   (setq a1 (cdr (assoc 1 ssone)))   (if (or (= a1 "") (= a1 "<>"))    (setq a2 (cdr (assoc 42 ssone)))    (setq a2 (atof a1))   )      (setq sum (+ sum a2))   (setq i (1+ i)) ) (princ "\n******所选标注和为") (princ sum) (princ "******")    ;(command "text" "s" "standard"  pause "3" "0" (rtos sum 2 2)) (princ) )

zfsaaa

还是不行

ZZXXQQ

zfsaaa发表于2009-6-11 16:11:00还是不行

怎么不行？我在AutoCAD Mechanica 2006 上调试通过。请说出如何不行。

zfsaaa

; 错误: 参数类型错误: lselsetp nil
命令cad2004下提示）

ZZXXQQ

4楼代码在2004中也调试通过。不知为什么楼上还出错？是选中了特殊的尺寸？

zfsaaa

知道是啥原因了，我用来合计面积标注，才会这样,尺寸标注就不会。