标注的数字求和

yaya-54 · 发表于 2009-7-14 10:01

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

clh521 · 发表于 2009-7-14 16:15

很有参考价值

liminnet · 发表于 2009-7-14 21:20

提示: 作者被禁止或删除内容自动屏蔽

dkj0322 · 发表于 2010-10-11 18:54

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

jialiang168 · 发表于 2010-11-16 21:42

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

461045462 · 发表于 2010-11-17 12:33

谢谢

收藏了，下来学学

正好需要这方面的东西

xhq1954425 · 发表于 2010-11-17 13:55

下载学习，谢谢！

xhq1954425 · 发表于 2010-11-17 13:59

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

sina7777777 · 发表于 2011-6-8 14:58

回复 ZZXXQQ 的帖子

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

ZZXXQQ · 发表于 2011-6-8 20:47

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

账号		自动登录	找回密码
密码			注册

liminnet liminnet 当前离线积分 9737 明经币个注册时间 2007-8-22 在线时间小时威望金钱个贡献激情	发表于 2009-7-14 21:20 \| 显示全部楼层提示: 作者被禁止或删除内容自动屏蔽

	回复支持反对使用道具举报显身卡