标题栏自动求和nbs

naonao686 · 发表于 2009-3-9 13:47:23

马上注册，结识高手，享用更多资源，轻松玩转三维网社区。

您需要登录才可以下载或查看，没有帐号？注册

x

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

hacker_yuzq · 发表于 2009-3-9 14:43:21

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

naonao686 · 发表于 2009-3-9 20:41:40

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

lxuming · 发表于 2009-3-9 21:04:35

(defun c:nbs(/ a an number result a1 a11 pt1)
  (princ"\n请选择要相加的数字:")
(setq a (ssget '((0 . "TEXT"))))
  (if (= a nil)(xme))
  (setq na (sslength a))
  (setq number 0 result 0)
  (repeat na
(setq a1 (ssname a number))
(setq a11 (entget a1))
(setq a11 (cdr (assoc 1 a11)))
(setq a11 (atof a11))
(setq result (+ result a11))
(setq number (1+ number))
  )
  (setvar "dimzin" 0)
  (initget 1)(setq pt1 (getpoint "\n位置点: "))
  (command "text" "mc" pt1 (* 3.5 (getvar "dimscale")) "0" (rtos result 2 2))
  (princ)
)

naonao686 · 发表于 2009-3-9 21:06:52

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

[ 本帖最后由 naonao686 于 2009-3-9 21:07 编辑 ]

zhuquan · 发表于 2009-3-10 08:04:51

先下载来
看看
呵呵~~

maoyangmy · 发表于 2009-3-10 08:25:45

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

		自动登录	找回密码
密码			注册

通知

[分享] 标题栏自动求和nbs

马上注册，结识高手，享用更多资源，轻松玩转三维网社区。

浏览过的版块