CAD小学徒 发表于 2016-7-30 07:50:40

批量标注面积

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

CAD小学徒 发表于 2016-7-30 20:36:03

那共享一下呗

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


heavyrain520 发表于 2016-7-30 08:19:15

我还以为你有呢，哈哈

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


CAD小学徒 发表于 2016-7-30 09:13:23

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

永不言弃 发表于 2016-7-30 15:41:23

CAD小学徒 发表于 2016-7-30 09:13 static/image/common/back.gif
这是什么插件的
，有cad的lisp

这个就是CADLISP的

zwf100 发表于 2016-8-5 22:51:40

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

y260015768 发表于 2016-9-26 11:31:54

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


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

y260015768 发表于 2016-9-27 13:12:08

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


请问这个插件在哪里下呢？
页: [1] 2
查看完整版本: 批量标注面积