将填充面积显示到填充图案

再见熊猫衣服 · 发表于 2018-9-6 19:57:15

网上的很多插件，我测试过了，都只能计算正常填充图案的面积。异形填充图案的面积就无法计算了。
但是新版CAD，在图元的特性里面，已经可以显示面积了。
但是要查看这个图案的面积依旧比较麻烦，需要点选这个图案，然后打开特性，才能看到。
所以，我想也没用高手做一个插件，可以达到的效果：
1，将填充图案的面积，（面积不用插件来计算，可以直接提取特性里面的面积），
显示到该填充图案的中心点上。
2，面积保留两位小数，数字高度300，面积单位按平方米来计算，也就是面积除以1000000
——

——
这个lsp完全可以达到要求，但是唯一缺憾就是不能计算异性的面积，比如环形，内部确实的图形。供参考。

骑着蜗牛旅行666 · 发表于 2022-6-30 09:52:02

(defun c:TAT(/ ss tarea obj k l ename )
(setvar "cmdecho" 0)
(if (setq ss (ssget))
   (progn
   (vl-load-com)
   (setq l (sslength ss) k 0 tarea 0 )
   (repeat l
      (setq ename (ssname ss k))
      (setq obj (vlax-ename->vla-object ename))
      (if (vlax-property-available-p obj "area")
         (setq tarea (+ (vlax-get-property obj 'area) tarea))
      )
      (setq k (1+ k))
   )
   (setq tarea (/ tarea 1000000))
   (princ (strcat "\n共选择 " (itoa l) " 个对象 | 总面积: " (rtos tarea 2 2) "平方米 "))
   (command "text" (getpoint "\n选取文字插入点") ""  "" (rtos tarea 2 2))
   )
   (princ "\n未选择对象")
)
(setvar "cmdecho" 1)
(prin1)
)

再见熊猫衣服 · 发表于 2018-9-7 11:34:03

有没有高手能帮忙编写一个插件啊。
1，将填充图案的面积，（面积不用插件来计算，可以直接提取特性里面的面积），
显示到该填充图案的中心点上。
2，面积保留两位小数，数字高度300，面积单位按平方米来计算，也就是面积除以1000000
——

zs2002zs · 发表于 2018-9-7 16:12:35

直接从特性里提取面积就可以了，还要怎么做

bai2000 · 发表于 2018-9-9 10:22:37

我也想知道

liunian0524 · 发表于 2018-9-9 16:47:35

找个计算封闭图形面积插件填充先找到填充边界

young-yi · 发表于 2018-9-10 07:23:51

我也想知道

my_autocad · 发表于 2022-6-28 16:02:18

支持楼主的想法，如果改进了的话，我愿意付费，这个对于算量来说，很有帮助

bai2000 · 发表于 2022-6-30 10:15:49

怎么能批量标注呢？

技术工作室 · 发表于 2022-9-30 21:01:57

支持一下

账号		自动登录	找回密码
密码			注册

[讨论] 将填充面积显示到填充图案

本帖子中包含更多资源