标题栏自动求和nbs

naonao686

很有用的一个小软件  
/ ?. E( v; R0 a, v% G解压缩后放到CAD的安装目录下
5 J3 h) Y( \( A在CAD中 工具-----加载应用程序-------找到这个软件，点击----加载----内容-------添加-----找到这个软件----确定

hacker_yuzq

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

naonao686

不好意思，我以为大家都知道呢
( K! B/ T$ A; ^5 z2 C& G- S就是把明细栏里的数字，选中后，总动求和，命令就是nbs
) e1 |6 ], E0 p1 J' f" x这个软件可以自动过滤非数字的项，很方便的！

lxuming

(defun c:nbs(/ a an number result a1 a11 pt1)
4 X- L) R% w1 K% M7 w  (princ"\n请选择要相加的数字:")
(setq a (ssget '((0 . "TEXT"))))
3 O" H8 Z/ j: N9 Y; j- M  (if (= a nil)(xme))
  (setq na (sslength a))
- a5 B4 m9 _" N  I. t, H; N3 T  (setq number 0 result 0)
' X) m# b7 {3 X0 Q  (repeat na
& y' R- g9 ?8 J. M. F    (setq a1 (ssname a number))
& P. X1 j$ W3 K    (setq a11 (entget a1))
% Y+ ?2 k" O# G7 K( d5 y- ~    (setq a11 (cdr (assoc 1 a11)))
4 C+ a$ ^/ l2 l) N* ?' Y% `    (setq a11 (atof a11))
" c/ P6 ^% p2 K4 X    (setq result (+ result a11))
  G2 L9 U8 x" m    (setq number (1+ number))
  J% H8 s' ~# f* r) x; w" m  )
& e: C& Z: |9 {  (setvar "dimzin" 0)
9 I3 z  q9 M0 n  (initget 1)(setq pt1 (getpoint "\n位置点: "))
5 Q) ^& t- s$ r$ E  N( k  (command "text" "mc" pt1 (* 3.5 (getvar "dimscale")) "0" (rtos result 2 2))
& @& o0 [- N( N  (princ)
)

naonao686

我看不懂你 的东西， 都是乱码
' ^/ I& p# H& _4 H! z! E+ @
+ F: z! A8 H  s[ 本帖最后由 naonao686 于 2009-3-9 21:07 编辑 ]

zhuquan

先下载来
" f2 c# @. k% w看看
呵呵~~

maoyangmy

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