批量标注面积

CAD小学徒

在cad中有大量的不规则封闭图形，想批量标注面积且导出面积到excel中（可以同时导出面积和编号），求指点一下

CAD小学徒

那共享一下呗

永不言弃

heavyrain520

我还以为你有呢，哈哈

永不言弃

CAD小学徒

这是什么插件的
，有cad的lisp

永不言弃

CAD小学徒 发表于 2016-7-30 09:13
这是什么插件的
，有cad的lisp

这个就是CADLISP的

zwf100

试试这个

2. (defun c:test (/ AREA_H AREA_WS ERRHAN NEWENTLAST OBJ OBJ_AREA OBJ_I OBJ_NAME OBJ_VLA OLDCMDECHO OLDDELOBJ OLDENTLAST PT)
   
3. (vl-load-com)
   
4.   (setq obj (ssget "x" '((0 . "*POLYLINE"))))
   
5.   (if obj
   
6.     (progn
   
7.       (setq obj_i -1)
   
8.       (setq oldcmdecho (getvar "cmdecho"))
   
9.       (setq oldDELOBJ (getvar "DELOBJ"))
   
10.       (setvar "cmdecho" 0);_禁止回显
    
11.       (setvar "DELOBJ" 0);_控制创建面域保留原对象
    
12.       (setq errhan '());_不能创建面域的图元句柄表
    
13.       (setq area_ws 3);_面积的小数位数
    
14.       (setq area_h 3);_面积文字的高度
    
15.       (repeat (sslength obj)
    
16. (setq obj_name (ssname obj (setq obj_i (1+ obj_i))));_图元名
    
17. (setq obj_vla (vlax-ename->vla-object obj_name));_Vla对象
    
18. (if (vlax-curve-isClosed obj_vla);_如果曲线闭合
    
19.    (progn
    
20.      (setq oldentlast (entlast))
    
21.      (command "_region" obj_name "");_创建面域
    
22.      (setq newentlast (entlast))
    
23.      (if (equal oldentlast newentlast);_如果创建面域不成功
    
24.        (progn
    
25.   (setq errhan (cons (cdr (assoc 5 (entget obj_name))) errhan))
    
26.   )
    
27.        (progn
    
28.   (setq obj_area (vla-get-Area obj_vla));_面积
    
29.   (setq pt (vlax-safearray->list (vlax-variant-value (vla-get-centroid (vlax-ename->vla-object newentlast)))))
    
30.   (command "-text" "j" "mc" pt area_h 0 (rtos obj_area 2 area_ws))
    
31.   (entdel newentlast)
    
32.   )
    
33.        )
    
34.      )
    
35.    )
    
36. )
    
37.       (if errhan
    
38. (progn
    
39. (princ "\n没有标注面积的图元句柄列表:\n")
    
40. (princ errhan)
    
41. )
    
42. )
    
43.       (setvar "DELOBJ" oldDELOBJ)
    
44.       (setvar "cmdecho" oldcmdecho)
    
45.     )
    
46.   )
    
47.   (princ)
    
48. )

(defun c:test (/ AREA_H AREA_WS ERRHAN NEWENTLAST OBJ OBJ_AREA OBJ_I OBJ_NAME OBJ_VLA OLDCMDECHO OLDDELOBJ OLDENTLAST PT)<br /> (vl-load-com)<br />   (setq obj (ssget "x" '((0 . "*POLYLINE"))))<br />   (if obj<br />     (progn<br />       (setq obj_i -1)<br />       (setq oldcmdecho (getvar "cmdecho"))<br />       (setq oldDELOBJ (getvar "DELOBJ"))<br />       (setvar "cmdecho" 0);_禁止回显<br />       (setvar "DELOBJ" 0);_控制创建面域保留原对象<br />       (setq errhan '());_不能创建面域的图元句柄表<br />       (setq area_ws 3);_面积的小数位数<br />       (setq area_h 3);_面积文字的高度<br />       (repeat (sslength obj)<br /> (setq obj_name (ssname obj (setq obj_i (1+ obj_i))));_图元名<br /> (setq obj_vla (vlax-ename->vla-object obj_name));_Vla对象<br /> (if (vlax-curve-isClosed obj_vla);_如果曲线闭合<br />    (progn<br />      (setq oldentlast (entlast))<br />      (command "_region" obj_name "");_创建面域<br />      (setq newentlast (entlast))<br />      (if (equal oldentlast newentlast);_如果创建面域不成功<br />        (progn<br />   (setq errhan (cons (cdr (assoc 5 (entget obj_name))) errhan))<br />   )<br />        (progn<br />   (setq obj_area (vla-get-Area obj_vla));_面积<br />   (setq pt (vlax-safearray->list (vlax-variant-value (vla-get-centroid (vlax-ename->vla-object newentlast)))))<br />   (command "-text" "j" "mc" pt area_h 0 (rtos obj_area 2 area_ws))<br />   (entdel newentlast)<br />   )<br />        )<br />      )<br />    )<br /> )<br />       (if errhan<br /> (progn<br /> (princ "\n没有标注面积的图元句柄列表:\n")<br /> (princ errhan)<br /> )<br /> )<br />       (setvar "DELOBJ" oldDELOBJ)<br />       (setvar "cmdecho" oldcmdecho)<br />     )<br />   )<br />   (princ)<br /> )

y260015768

永不言弃 发表于 2016-7-30 08:47

可以共享一下这个插件吗？

y260015768

永不言弃 发表于 2016-7-30 08:40

请问这个插件在哪里下呢？