标注尺寸与标高值相加

szx025

2. (DEFUN C:KK()
   
3. (setq jd (getint "input 精度<0.000>:"))
   
4. (if (= jd nil) (setq jd 0))
   
5. (princ "\nselect object:")
   
6. (setq s (ssget))
   
7. (setq n (sslength s))
   
8. (setq k 0 )(setq mm 0.0)
   
9. (while (< k n)
   
10.       (setq name (ssname s k))
    
11.       (setq a (entget name))
    
12.       (setq t1 (assoc '0 a))
    
13.       (setq t1 (cdr t1))
    
14.       (if (= t1 "TEXT") (PROGN
    
15.           (setq tx (assoc '1 a))
    
16.           (setq tx (cdr tx))
    
17.           (setq tx (atof tx))
    
18.           (setq mm (+ tx mm))
    
19.          ))
    
20.       (if (= t1 "DIMENSION") (PROGN
    
21.           (setq tx (assoc '1 a))
    
22.           (setq tx (cdr tx))
    
23.           (if (and (/= tx "")(/= tx "<>"))(setq tx (atof tx)))
    
24.           (if (or (= tx "")(= tx "<>"))(progn
    
25.               (setq tx (assoc '42 a))
    
26.               (setq tx (cdr tx))
    
27.         ;(setq tx (/ tx 1000))
    
28.               ))
    
29.           (if (= k 0) (setq MM TX) (setq mm (+ tx mm)))
    
30.          ))
    
31.       (setq k (+ k 1))
    
32. )
    
33. (setq mm (rtos mm 2 jd))
    
34. (setq po (getpoint "\n指定计算结果的写入点:"))
    
35. (command "text" po ""  "" mm)
    
36. )

(DEFUN C:KK()<br /> (setq jd (getint "input 精度<0.000>:"))<br /> (if (= jd nil) (setq jd 0))<br /> (princ "\nselect object:")<br /> (setq s (ssget))<br /> (setq n (sslength s))<br /> (setq k 0 )(setq mm 0.0)<br /> (while (< k n)<br />       (setq name (ssname s k))<br />       (setq a (entget name))<br />       (setq t1 (assoc '0 a))<br />       (setq t1 (cdr t1))<br />       (if (= t1 "TEXT") (PROGN<br />           (setq tx (assoc '1 a))<br />           (setq tx (cdr tx))<br />           (setq tx (atof tx))<br />           (setq mm (+ tx mm))<br />          ))<br />       (if (= t1 "DIMENSION") (PROGN<br />           (setq tx (assoc '1 a))<br />           (setq tx (cdr tx))<br />           (if (and (/= tx "")(/= tx "<>"))(setq tx (atof tx)))<br />           (if (or (= tx "")(= tx "<>"))(progn<br />               (setq tx (assoc '42 a))<br />               (setq tx (cdr tx))<br />         ;(setq tx (/ tx 1000))<br />               ))<br />           (if (= k 0) (setq MM TX) (setq mm (+ tx mm)))<br />          ))<br />       (setq k (+ k 1))<br /> )<br /> (setq mm (rtos mm 2 jd))<br /> (setq po (getpoint "\n指定计算结果的写入点:"))<br /> (command "text" po ""  "" mm)<br /> )

这个程序可以选择尺寸标注与标高值相加，但有个小数点取值不正确的问题，比如尺寸值是4000，标高值是5.200，程序执行后的结果是4005，而正确的数值应该是9.200，请完善一下这个程序

kkq0305

(setq tx (atof tx))改为 (setq tx (* 1000 (atof tx)))

szx025

kkq0305 发表于 2021-9-9 13:51
(setq tx (atof tx))改为 (setq tx (* 1000 (atof tx)))

谢谢
还有一个小问题，尺寸标注4000，标高5.200，结果是9200.如果让结果变成9.200

自贡黄明儒

szx025 发表于 2021-9-9 14:17
谢谢
还有一个小问题，尺寸标注4000，标高5.200，结果是9200.如果让结果变成9.200

用动态块吧，没有这么多烦恼，也不用编程

szx025

2. (DEFUN C:KK()
   
3. ;(setq jd (getint "input 精度<0.000>:"))
   
4. (if (= jd nil) (setq jd 3))  ;设置小数点后的数字位数
   
5. (princ "\nselect object:")
   
6. (setvar "DIMZIN" 1)
   
7. (setq s (ssget))
   
8. (setq n (sslength s))
   
9. (setq k 0 )(setq mm 0.0)
   
10. (while (< k n)
    
11.       (setq name (ssname s k))
    
12.       (setq a (entget name))
    
13.       (setq t1 (assoc '0 a))
    
14.       (setq t1 (cdr t1))
    
15.       (if (= t1 "TEXT") (PROGN
    
16.           (setq tx (assoc '1 a))
    
17.           (setq tx (cdr tx))
    
18.            (setq tx (* 1000 (atof tx)))
    
19.           (setq mm (+ tx mm))
    
20.          ))
    
21.       (if (= t1 "DIMENSION") (PROGN
    
22.           (setq tx (assoc '1 a))
    
23.           (setq tx (cdr tx))
    
24.           (if (and (/= tx "")(/= tx "<>"))(setq tx (atof tx)))
    
25.           (if (or (= tx "")(= tx "<>"))(progn
    
26.               (setq tx (assoc '42 a))
    
27.               (setq tx (cdr tx))
    
28.               ;(setq tx (/ tx 1000))  ；读取的标注数值除1000
    
29.               ))
    
30.           (if (= k 0) (setq MM TX) (setq mm (+ tx mm)))
    
31.          ))
    
32.       (setq k (+ k 1))
    
33. )
    
34. (setq mm (/ mm 1000))
    
35. (setq mm (rtos mm 2 jd))
    
36. (setq po (getpoint "\n指定计算结果的写入点:"))
    
37. (command "text" po ""  "" mm)
    
38. )

(DEFUN C:KK()<br /> ;(setq jd (getint "input 精度<0.000>:"))<br /> (if (= jd nil) (setq jd 3))  ;设置小数点后的数字位数<br /> (princ "\nselect object:")<br /> (setvar "DIMZIN" 1)<br /> (setq s (ssget))<br /> (setq n (sslength s))<br /> (setq k 0 )(setq mm 0.0)<br /> (while (< k n)<br />       (setq name (ssname s k))<br />       (setq a (entget name))<br />       (setq t1 (assoc '0 a))<br />       (setq t1 (cdr t1))<br />       (if (= t1 "TEXT") (PROGN<br />           (setq tx (assoc '1 a))<br />           (setq tx (cdr tx))<br />            (setq tx (* 1000 (atof tx)))<br />           (setq mm (+ tx mm))<br />          ))<br />       (if (= t1 "DIMENSION") (PROGN<br />           (setq tx (assoc '1 a))<br />           (setq tx (cdr tx))<br />           (if (and (/= tx "")(/= tx "<>"))(setq tx (atof tx)))<br />           (if (or (= tx "")(= tx "<>"))(progn<br />               (setq tx (assoc '42 a))<br />               (setq tx (cdr tx))<br />               ;(setq tx (/ tx 1000))  ；读取的标注数值除1000<br />               ))<br />           (if (= k 0) (setq MM TX) (setq mm (+ tx mm)))<br />          ))<br />       (setq k (+ k 1))<br /> )<br /> (setq mm (/ mm 1000))<br /> (setq mm (rtos mm 2 jd))<br /> (setq po (getpoint "\n指定计算结果的写入点:"))<br /> (command "text" po ""  "" mm)<br /> )

搞定了，
但运用范围想广一点，如果数字中带字符（SX=-88）怎么提取出其中的数字，再执行程序

cghdy

自贡黄明儒 发表于 2021-9-9 15:05
用动态块吧，没有这么多烦恼，也不用编程

大师能否展示一个