标注的数字求和

toeastone · 发表于 2009-2-10 03:14:00

;;;=============标注求和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 · 发表于 2020-10-19 15:37:08

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

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

664571221 · 发表于 2018-9-30 16:54:28

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

你好能把表达式写入cad吗

szx025 · 发表于 2021-2-9 08:53:41

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

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

fengshi0519 · 发表于 2009-4-3 22:16:00

拿来试用一下

详谢谢楼主

zfsaaa · 发表于 2009-6-11 11:52:00

; 错误: 参数太少

ZZXXQQ · 发表于 2009-6-11 12:42:00

改了改。

(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)
)

liminnet · 发表于 2009-6-11 12:45:00

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

zfsaaa · 发表于 2009-6-11 16:11:00

还是不行

ZZXXQQ · 发表于 2009-6-11 20:54:00

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

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

zfsaaa · 发表于 2009-6-11 21:01:00

; 错误: 参数类型错误: lselsetp nil
命令

cad2004下提示）

ZZXXQQ · 发表于 2009-6-11 22:21:00

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

zfsaaa · 发表于 2009-6-12 08:08:00

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

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

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

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

标注的数字求和

点评