CAD标注统计插件

359321852

2. (defun c:bzcdqh()
   
3.     (setq cmd (getvar "cmdecho"))
   
4.     (setvar "cmdecho" 0)
   
5.     (if (progn
   
6.             (princ "\n请选取标注:")
   
7.             (setq ssa (ssget '((0 . "DIMENSION") )))
   
8.         )
   
9.         (progn
   
10.             (setq cdz 0)
    
11.             (setq i 0)
    
12.             (setq n (sslength ssa))
    
13.             (repeat n
    
14.                (setq dxf (entget (ssname ssa i)))
    
15.                (setq cdz (+ cdz (cdr (assoc 42 dxf))))
    
16.                (setq i (1+ i))
    
17.             )
    
18.             (alert (strcat "共选取了" (itoa n) "个标注，总长度=" (rtos cdz 2 3)))
    
19.             (princ (strcat "\n共选取了" (itoa n) "个标注，总长度=" (rtos cdz 2 3)))
    
20.         )
    
21.     )
    
22.     (setvar "cmdecho" cmd)
    
23.     (princ)
    
24. )

(defun c:bzcdqh()<br />     (setq cmd (getvar "cmdecho"))<br />     (setvar "cmdecho" 0)<br />     (if (progn<br />             (princ "\n请选取标注:")<br />             (setq ssa (ssget '((0 . "DIMENSION") )))<br />         )<br />         (progn<br />             (setq cdz 0)<br />             (setq i 0)<br />             (setq n (sslength ssa))<br />             (repeat n<br />                (setq dxf (entget (ssname ssa i)))<br />                (setq cdz (+ cdz (cdr (assoc 42 dxf))))<br />                (setq i (1+ i))<br />             )<br />             (alert (strcat "共选取了" (itoa n) "个标注，总长度=" (rtos cdz 2 3)))<br />             (princ (strcat "\n共选取了" (itoa n) "个标注，总长度=" (rtos cdz 2 3)))<br />         )<br />     )<br />     (setvar "cmdecho" cmd)<br />     (princ)<br /> )

359321852

不过这个插件有个缺陷，只能获取标注的“测量单位”数据，不能获取“文字替代”的数据
不知高手帮忙修改一下，当获取“文字替代”的数据为空时，再获取“测量单位”数据，然后再求和，那就棒了。

xpeagle

试试，多谢分享了， 望继续改进，赞一个

烟花丝雨

2. (defun c:bzcdqh()
   
3.     (setq cmd (getvar "cmdecho"))
   
4.     (setvar "cmdecho" 0)
   
5.     (if (progn
   
6.             (princ "\n请选取标注:")
   
7.             (setq ssa (ssget '((0 . "DIMENSION") )))
   
8.         )
   
9.         (progn
   
10.             (setq cdz 0)
    
11.             (setq i 0)
    
12.             (setq n (sslength ssa))
    
13.             (repeat n
    
14.                (setq dxf (entget (ssname ssa i)))
    
15.                (if (= (cdr (assoc 1 dxf)) "")
    
16.                             (setq cdz (+ cdz (cdr (assoc 42 dxf))))
    
17.                            
    
18.                             (setq cdz (+ cdz (atof (cdr (assoc 1 dxf)))))
    
19.                            
    
20.                           )
    
21.                (setq i (1+ i))
    
22.             )
    
23.             (alert (strcat "共选取了" (itoa n) "个标注，总长度=" (rtos cdz 2 3)))
    
24.             (princ (strcat "\n共选取了" (itoa n) "个标注，总长度=" (rtos cdz 2 3)))
    
25.         )
    
26.     )
    
27.     (setvar "cmdecho" cmd)
    
28.     (princ)
    
29. )

(defun c:bzcdqh()<br />     (setq cmd (getvar "cmdecho"))<br />     (setvar "cmdecho" 0)<br />     (if (progn<br />             (princ "\n请选取标注:")<br />             (setq ssa (ssget '((0 . "DIMENSION") )))<br />         )<br />         (progn<br />             (setq cdz 0)<br />             (setq i 0)<br />             (setq n (sslength ssa))<br />             (repeat n<br />                (setq dxf (entget (ssname ssa i)))<br />                (if (= (cdr (assoc 1 dxf)) "")<br />                             (setq cdz (+ cdz (cdr (assoc 42 dxf))))<br />                             <br />                             (setq cdz (+ cdz (atof (cdr (assoc 1 dxf)))))<br />                             <br />                           )<br />                (setq i (1+ i))<br />             )<br />             (alert (strcat "共选取了" (itoa n) "个标注，总长度=" (rtos cdz 2 3)))<br />             (princ (strcat "\n共选取了" (itoa n) "个标注，总长度=" (rtos cdz 2 3)))<br />         )<br />     )<br />     (setvar "cmdecho" cmd)<br />     (princ)<br /> )

THZL

感谢分享

清水白粥

语法错误 ，用不了  版主

yefei812678

好东西  值得拥有

菜鸟初来乍到

感谢楼主分享

359321852

烟花丝雨 发表于 2024-1-25 11:20

谢谢您的帮助，