求cad数字求和小插件 不要nbs的那种 急

H10

不如：23钉+23钉=46  。单行文字  最好有  钉23、吊12+钉23、吊12、挂2=钉26、吊24、挂2 ，，  

sdwy196912

看看我写的小程序

【KAIXIN】

;计算cad图中数字的和（求和）并写在图纸中，常用于统计材料表中的总和
(DEFUN C:KK()
(setq jd (getint "input 精度<0>:"))
(if (= jd nil) (setq jd 0))
(princ "\nselect object:")
(setq s (ssget))
(setq n (sslength s))
(setq k 0 )(setq mm 0.0)
(while (< k n)
      (setq name (ssname s k))
      (setq a (entget name))
      (setq t1 (assoc '0 a))
      (setq t1 (cdr t1))
      (if (= t1 "TEXT") (PROGN
          (setq tx (assoc '1 a))
          (setq tx (cdr tx))
          (setq tx (atof tx))
          (setq mm (+ tx mm))
         ))
      (if (= t1 "DIMENSION") (PROGN
          (setq tx (assoc '1 a))
          (setq tx (cdr tx))
          (if (and (/= tx "")(/= tx "<>"))(setq tx (atof tx)))
          (if (or (= tx "")(= tx "<>"))(progn
              (setq tx (assoc '42 a))
              (setq tx (cdr tx))
              ))
          (if (= k 0) (setq MM TX) (setq mm (+ tx mm)))
         ))
      (setq k (+ k 1))
)
(setq mm (rtos mm 2 jd))
(setq po (getpoint "\n指定计算结果的写入点:"))
(command "text" po ""  "" mm)
)

【KAIXIN】

lixwkkk 发表于 2018-7-6 10:51
那默认精度呢。。。。想改成2，麻烦您了！非常感谢！

H10

【KAIXIN】 发表于 2012-4-19 12:39
**** 本内容被作者隐藏 ****

麻烦你说下 文件名字 改成什么， 输入的命令

【KAIXIN】

H10

【KAIXIN】 发表于 2012-4-19 12:51

如果把计算结果直接显示在命令栏里面该怎么设置

H10

H10 发表于 2012-4-19 13:05
如果把计算结果直接显示在命令栏里面该怎么设置

我的意思是说 直接像nbs 那样不用输入cad 里面就可以看到的， 因为输入还有删除

【KAIXIN】

H10 发表于 2012-4-19 13:15
我的意思是说 直接像nbs 那样不用输入cad 里面就可以看到的， 因为输入还有删除

不明白你的意思，什么是nbs，什么叫不用输入就看到

H10

【KAIXIN】 发表于 2012-4-19 14:11
不明白你的意思，什么是nbs，什么叫不用输入就看到

用这个命令 要插入到cad里面 才能看到求和的数字， 我的意思是 输入命令后 ，选择确定 直接在命令栏可以看到

H10

H10 发表于 2012-4-20 15:35
用这个命令 要插入到cad里面 才能看到求和的数字， 我的意思是 输入命令后 ，选择确定 直接在命令栏可以看 ...

不是的，比如输入kk命令后 选择数字确定， 直接可以看到 不需要执行把计算结果插入点 就可以看到

sdwy196912

就是不把结果写在屏幕上. 只在命令行显示就可以了.是吧