标题栏自动求和nbs

naonao686

很有用的一个小软件  
, z( Z' H& F+ Z# f  ^; }7 x- f解压缩后放到CAD的安装目录下
. o+ b6 a) _% J! K% F2 U% M在CAD中 工具-----加载应用程序-------找到这个软件，点击----加载----内容-------添加-----找到这个软件----确定

hacker_yuzq

怎么不介绍一下作用啊，求和？求什么的和？

naonao686

不好意思，我以为大家都知道呢
' s1 K& F( ~9 q, n就是把明细栏里的数字，选中后，总动求和，命令就是nbs
这个软件可以自动过滤非数字的项，很方便的！

lxuming

(defun c:nbs(/ a an number result a1 a11 pt1)
$ @/ |/ r% w* F- x" O. f  (princ"\n请选择要相加的数字:")
(setq a (ssget '((0 . "TEXT"))))
6 a4 q: ]% k7 B' w  (if (= a nil)(xme))
4 j: K$ y3 a, Q! J/ P1 i4 C  (setq na (sslength a))
9 p8 Z6 U+ A5 d" k- C6 f+ t' z  (setq number 0 result 0)
7 f6 b0 K4 i/ [, E- @6 {0 d  (repeat na
    (setq a1 (ssname a number))
    (setq a11 (entget a1))
/ {, q1 E  c' O) V, T: a9 Q! w    (setq a11 (cdr (assoc 1 a11)))
    (setq a11 (atof a11))
) O* d. Q! ?( c! ^" r" ?' A    (setq result (+ result a11))
- P9 m  W( F% G) g    (setq number (1+ number))
$ Y+ C- [7 k. v9 x  )
) B/ @& k1 \' c  (setvar "dimzin" 0)
  (initget 1)(setq pt1 (getpoint "\n位置点: "))
" O' I( F* y5 T; x  K. \  (command "text" "mc" pt1 (* 3.5 (getvar "dimscale")) "0" (rtos result 2 2))
0 v7 ?& n, \, \2 w  S  (princ)
)

naonao686

我看不懂你 的东西， 都是乱码

4 N' s7 a) O6 C: t0 a2 u" ][ 本帖最后由 naonao686 于 2009-3-9 21:07 编辑 ]

zhuquan

先下载来
# S6 G+ Y2 X3 o; \- C7 _看看
呵呵~~

maoyangmy

准确的讲应该是数字求和程序