[编程申请]：谁能编个可以把标注数值相加的程序？

userzhluserzhl

如题，谁能编个可以把标注数值相加的程序？

lazybug

是实际测量值相加还是你修改之后的值相加，前者很简单把组码42的值相加就行了，后者要考虑的问题很多，太麻烦。另外，用r14版本的cad会找不到组码42


(defun c:dimer (/ )
    (setvar "cmdecho" 0)
    (command "undo" "begin")
    (setq ss (ssget "X" '((0 . "DIMENSION"))))
    (setq n  -1
          num 0.0
    )
    (repeat (sslength ss)
        (setq en_data (entget (ssname ss (setq n (1+ n)))))                    
        (setq num (+ num (cdr (assoc 42 en_data))))          
    )
    (princ (strcat "\n标注数字总合为:" (rtos num)))
    (command "undo" "end")
    (prin1)
)

userzhluserzhl

楼上，我想要的是把所选中的标注数值相加，而不是把所有的数值都相加！

xyp1964

2楼修改版：

2. [FONT=courier new](defun c:test ()
   
3.   (setvar "cmdecho" 0)
   
4.   (command "undo" "begin")
   
5.   (if (setq ss (ssget '((0 . "DIMENSION"))))
   
6.     (progn (setq n   -1
   
7.                  num 0.0
   
8.            )
   
9.            (repeat (sslength ss)
   
10.              (setq en_data (entget (ssname ss (setq n (1+ n))))
    
11.                    t42           (cdr (assoc 42 en_data))
    
12.                    t1           (cdr (assoc 1 en_data))
    
13.              )
    
14.              (if (= t1 "")
    
15.                (setq num (+ num t42))
    
16.                (setq num (+ num (distof t1)))
    
17.              )
    
18.            )
    
19.            (princ (strcat "\n标注数字总合为:" (rtos num 2 0)))
    
20.     )
    
21.   )
    
22.   (command "undo" "end")
    
23.   (princ)
    
24. )[/FONT]

[FONT=courier new](defun c:test ()<br />   (setvar "cmdecho" 0)<br />   (command "undo" "begin")<br />   (if (setq ss (ssget '((0 . "DIMENSION"))))<br />     (progn (setq n   -1<br />                  num 0.0<br />            )<br />            (repeat (sslength ss)<br />              (setq en_data (entget (ssname ss (setq n (1+ n))))<br />                    t42           (cdr (assoc 42 en_data))<br />                    t1           (cdr (assoc 1 en_data))<br />              )<br />              (if (= t1 "")<br />                (setq num (+ num t42))<br />                (setq num (+ num (distof t1)))<br />              )<br />            )<br />            (princ (strcat "\n标注数字总合为:" (rtos num 2 0)))<br />     )<br />   )<br />   (command "undo" "end")<br />   (princ)<br /> )[/FONT]

userzhluserzhl

非常的感谢xyp1964斑竹，可不可以再帮我看看：
http://www.xdcad.net/forum/showthread.php?s=&threadid=536071

lazybug

xyp1964  版主的程序没有完全解决问题
当标注文字的颜色被修改后
用这一句是处理不了的：(setq num (+ num (distof t1)))

lzy9788303

我这个程序集中有
http://p4.xdcad.net/forum/showthread.php?s=&threadid=536147

userzhluserzhl

楼上，你的地址链接打不开呀。

xyp1964

最初由 lazybug 发布
[B]xyp1964  版主的程序没有完全解决问题
当标注文字的颜色被修改后
用这一句是处理不了的：(setq num (+ num (distof t1))) [/B]

不明白，这跟颜色有啥关系？！

雨箭风刀

有关系的，dim的文字是mtext，可以有格式代码在里面。所以改颜色，局部不同的定义字型都会对程序的正确性产生影响。。。。
路过，随便说两句，呵呵

教父

有关系吗？！实际操作中你只要点选你要点选的数据提出字符串转成实数再累加就可以了啊
lisp只是解决实际问题，考虑多了自找烦恼

xyp1964

对mtext实体处理确实有问题，所以签名栏下的“文本编辑套件”从不涉及MTEXT实体。

ljpnb

每个人绘图习惯不一定一样，象这样程序只要用的人满意就行了，用不着通用性，特殊问题程序里也可以特殊处理

lazybug

个人认为
作程序,只要是做,就尽量做的完善一点

雪山飞狐(lzh)

可以获取MText的字符的，我以前在VBA里编过：）