标题栏自动求和nbs

naonao686

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

hacker_yuzq

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

naonao686

不好意思，我以为大家都知道呢
" Z8 U% j) M# U. d0 m( c% Z就是把明细栏里的数字，选中后，总动求和，命令就是nbs
这个软件可以自动过滤非数字的项，很方便的！

lxuming

(defun c:nbs(/ a an number result a1 a11 pt1)
+ r3 w6 f2 n4 v: F* H  (princ"\n请选择要相加的数字:")
(setq a (ssget '((0 . "TEXT"))))
6 j, E# |4 [" |5 e/ ^/ K, U) S5 l  (if (= a nil)(xme))
  (setq na (sslength a))
  (setq number 0 result 0)
  (repeat na
( e7 g  D3 |( R2 u+ F; }    (setq a1 (ssname a number))
5 G* ]+ h$ ?1 D% R6 X    (setq a11 (entget a1))
0 K+ o4 P* K9 o! c7 A! U& d% {; x    (setq a11 (cdr (assoc 1 a11)))
    (setq a11 (atof a11))
9 f3 z$ c9 S" u' r$ F    (setq result (+ result a11))
: F3 i# I% A. l7 x3 A. H7 S    (setq number (1+ number))
  )
+ I, k6 q. u0 ~$ l% S. g2 D6 g. Q8 r  (setvar "dimzin" 0)
6 o( f% Q& N  }$ h( N( [4 Z  (initget 1)(setq pt1 (getpoint "\n位置点: "))
  (command "text" "mc" pt1 (* 3.5 (getvar "dimscale")) "0" (rtos result 2 2))
  (princ)
)

naonao686

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

, t6 ]9 j6 z) R" Y: {[ 本帖最后由 naonao686 于 2009-3-9 21:07 编辑 ]

zhuquan

先下载来
' i# v; x3 B, @; z/ {& c. E8 D4 M看看
呵呵~~

maoyangmy

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