标题栏自动求和nbs

naonao686

很有用的一个小软件  
解压缩后放到CAD的安装目录下
在CAD中 工具-----加载应用程序-------找到这个软件，点击----加载----内容-------添加-----找到这个软件----确定

hacker_yuzq

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

naonao686

不好意思，我以为大家都知道呢
就是把明细栏里的数字，选中后，总动求和，命令就是nbs
8 c5 l% z0 O5 g5 R) G这个软件可以自动过滤非数字的项，很方便的！

lxuming

(defun c:nbs(/ a an number result a1 a11 pt1)
7 R; Y, D  v* B9 r- B4 ?' M  (princ"\n请选择要相加的数字:")
(setq a (ssget '((0 . "TEXT"))))
  (if (= a nil)(xme))
9 q5 f$ x% g( K  (setq na (sslength a))
* G  Y9 p4 T& Z+ S1 E: c  (setq number 0 result 0)
- G: ~  j' s4 d9 L! {5 O1 B  (repeat na
    (setq a1 (ssname a number))
% m1 Q8 |  V* ]# T! D% o7 t% ^    (setq a11 (entget a1))
    (setq a11 (cdr (assoc 1 a11)))
7 f2 Q: q9 M. r( h9 W+ P    (setq a11 (atof a11))
    (setq result (+ result a11))
/ p& N5 C) G0 Y! F5 ]    (setq number (1+ number))
* i: |% C. i+ m7 L* Y  N, q+ t  )
  (setvar "dimzin" 0)
  (initget 1)(setq pt1 (getpoint "\n位置点: "))
  (command "text" "mc" pt1 (* 3.5 (getvar "dimscale")) "0" (rtos result 2 2))
  (princ)
, v  B0 B# B( u1 f)

naonao686

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

6 r6 B  W! e" h3 o( R, Y[ 本帖最后由 naonao686 于 2009-3-9 21:07 编辑 ]

zhuquan

先下载来
3 t+ P" U; x8 @0 z0 |看看
3 ^3 S1 j. l- C, z呵呵~~

maoyangmy

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