标注的数字求和

yaya-54

太好了，这个就是我要的程序。谢谢！

clh521

很有参考价值

dkj0322

谢谢楼上的分享，参考下，很感激

jialiang168

谢谢楼主，学习了。可以用谢啦。

461045462

谢谢

收藏了，下来学学

正好需要这方面的东西

xhq1954425

下载学习，谢谢！

xhq1954425

求值的结果用一个对话框显示就更好了！

sina7777777

回复 ZZXXQQ 的帖子

你好，求和代码怎样加载到CAD中，谢谢赐教。

ZZXXQQ

不会加载！
有多种方式加载。
首先将代码复制粘贴到记事本或纯文本编辑器中，另存成扩展名为lsp的文件；
1、在ACAD中用(load "filename")加载；
2、直接用鼠标左键从资源管理器中拖到ACAD图形中；
3、使用appload加载；
4、直接将代码贴到ACAD命令行中；
5、将加载命令写在acad.mnl中；
6、将加载命令写在acad.lsp中
……

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

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