求标注功能

664571221

求输入命令tt，框选标注，使标注相加，用米为单位，比如1.205+1.888+2.500

5d95286278

找出标注数值，赋值给变量，再计算就可以了，论坛上有

dabingrain

1. ;;将多个标注值简单求和
   
2. (DEFUN c:DB:DIMSum ()
   
3.   (setvar "cmdecho" 0)
   
4.   (prompt "请选择一个或多个标注")
   
5.   (setq s1 (ssget '((0 . "dimension"))))
   
6.   (setq i 0)
   
7.   (setq ss1 0.0)
   
8.   (setq ss2 0.0)
   
9.   (repeat (sslength s1)
   
10.     (setq len_data (entget (ssname s1 i)))
    
11.     (setq ss11 (cdr (assoc 42 len_data)))
    
12.     (setq ss1 (+ ss1 SS11))
    
13.     (setq ss22  (cdr (assoc 1 len_data)))
    
14.     (if        (= ss22 "")
    
15.       (setq SS22 (rtos SS11))
    
16.     )
    
17.                 (setq ss22 (cal  SS22))
    
18.     (setq ss2 (+ ss2   SS22))
    
19.     (setq i (1+ i))
    
20.   )
    
21.         ;;得到小数位
    
22.         (setq       
    
23.                 dimst        (cdr (assoc 3 len_data))
    
24.                 st        (tblsearch "dimstyle" dimst)
    
25.                 XSWS(cdr (assoc 144  st))
    
26.                 XSWS(fix XSWS)
    
27.         )
    
28.   (prompt "\n标注测量值合计为：")
    
29.   (princ (rtos ss1 2 XSWS))
    
30.   (prompt "\n标注文本合计为：")
    
31.   (princ (rtos ss2 2 XSWS))
    
32.   (princ)
    
33. )

;;将多个标注值简单求和<br /> (DEFUN c:DB:DIMSum ()<br />   (setvar "cmdecho" 0)<br />   (prompt "请选择一个或多个标注")<br />   (setq s1 (ssget '((0 . "dimension"))))<br />   (setq i 0)<br />   (setq ss1 0.0)<br />   (setq ss2 0.0)<br />   (repeat (sslength s1)<br />     (setq len_data (entget (ssname s1 i)))<br />     (setq ss11 (cdr (assoc 42 len_data)))<br />     (setq ss1 (+ ss1 SS11))<br />     (setq ss22  (cdr (assoc 1 len_data)))<br />     (if        (= ss22 "")<br />       (setq SS22 (rtos SS11))<br />     )<br />                 (setq ss22 (cal  SS22))<br />     (setq ss2 (+ ss2   SS22))<br />     (setq i (1+ i))<br />   )<br />         ;;得到小数位<br />         (setq        <br />                 dimst        (cdr (assoc 3 len_data))<br />                 st        (tblsearch "dimstyle" dimst)<br />                 XSWS(cdr (assoc 144  st))<br />                 XSWS(fix XSWS)<br />         )<br />   (prompt "\n标注测量值合计为：")<br />   (princ (rtos ss1 2 XSWS))<br />   (prompt "\n标注文本合计为：")<br />   (princ (rtos ss2 2 XSWS))<br />   (princ)<br /> )

zhangkui9070

学习一下

maiko

感谢楼主分享,收下了