标题栏自动求和nbs

naonao686

很有用的一个小软件  
$ D& Z/ U8 ^9 Y9 H: X+ z解压缩后放到CAD的安装目录下
" R2 g: b5 ?4 t在CAD中 工具-----加载应用程序-------找到这个软件，点击----加载----内容-------添加-----找到这个软件----确定

hacker_yuzq

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

naonao686

不好意思，我以为大家都知道呢
& h( k/ x& p; v就是把明细栏里的数字，选中后，总动求和，命令就是nbs
/ f9 X6 t1 ~' Y& Q" X这个软件可以自动过滤非数字的项，很方便的！

lxuming

(defun c:nbs(/ a an number result a1 a11 pt1)
7 d( f3 c0 w& l9 d  (princ"\n请选择要相加的数字:")
(setq a (ssget '((0 . "TEXT"))))
* O' P1 a2 D  }% V  (if (= a nil)(xme))
  (setq na (sslength a))
9 @3 C  v  `" \. w$ y& l, p9 `  (setq number 0 result 0)
  (repeat na
$ a+ b& E+ n9 F) y* b* L    (setq a1 (ssname a number))
, ]# Z  q. V' i, A  w    (setq a11 (entget a1))
    (setq a11 (cdr (assoc 1 a11)))
; g* o, z& ^6 M' Q3 D5 z    (setq a11 (atof a11))
    (setq result (+ result a11))
    (setq number (1+ number))
  I8 R! f  n# j4 p6 H  )
. h3 f! Y* p# F9 K: U  (setvar "dimzin" 0)
  (initget 1)(setq pt1 (getpoint "\n位置点: "))
( J% c/ X+ S6 k5 u9 c* O  (command "text" "mc" pt1 (* 3.5 (getvar "dimscale")) "0" (rtos result 2 2))
$ v' i7 s5 x+ F' U  (princ)
0 z& O* V- h# P, V)

naonao686

我看不懂你 的东西， 都是乱码
9 A- K5 N" g5 S# @9 N
5 h1 n9 _& k: A3 ~8 h* B[ 本帖最后由 naonao686 于 2009-3-9 21:07 编辑 ]

zhuquan

先下载来
看看
$ k. r9 E+ E  G' u* l呵呵~~

maoyangmy

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