社区 › 源码共享 › 【CH】检查并计算填充图案面积

kucha007 发表于 2022-9-5 00:53:17

【CH】检查并计算填充图案面积

本帖最后由 kucha007 于 2022-10-24 10:30 编辑

我想要计算填充图案的面积，但有的时候别人给的文件填充图案有问题。比如自交没有面积。一不注意就会忽略掉这部分填充的面积。我在网上找到了这个isp，感谢作者的无私分享（原帖链接）。
然后我根据自己的工作习惯调整一下，也加了一些注释。象征性收一个明经币，希望大家不要介意。
如果有大佬可以接着完善就更好了。比如可以根据图层选择填充，然后弹窗列一个表格，输入折减率之类的。

※目前的用法：
01-如果填充图案都有面积，统计填充图案的总面积，然后打印在命令行。
02-如果填充图案没有面积，就把没有面积的填充图案颜色变红，同时弹出窗口警告。

※建议大家在用之前把填充颜色先全部打灰，这样变红的部分就会很明显。

※为了正确显示无面积的填充，计算填充面积时会线创建独立的图案填充。

mokson 发表于 2022-9-5 08:51:09

本帖最后由 mokson 于 2022-9-5 08:58 编辑

这是核心语句呀：
(vlax-get-property (vlax-ename->vla-object (car(entsel "选择填充图案:"))) "Area")
或者
(vla-get-area (vlax-ename->vla-object (car(entsel "选择填充图案:"))))

kucha007 发表于 2022-9-5 09:48:05

mokson 发表于 2022-9-5 08:51
这是核心语句呀：
(vlax-get-property (vlax-ename->vla-object (car(entsel "选择填充图案:"))) "Area")
...

感谢大佬回帖，我还得接着学习

kucha007 发表于 2022-9-5 09:46:54

664571221 发表于 2022-9-5 08:20
厉害啊 你是高手

我也是一知半解，互相学习:handshake

664571221 发表于 2022-9-5 08:20:50

厉害啊 你是高手

技术工作室 发表于 2022-9-30 08:00:50

厉害啊 你是高手

阳阳阳 发表于 2022-11-9 09:57:56

我也想学习。学好了多工作帮助台大了！！

w379106181 发表于 2022-11-11 10:14:29

厉害啊 你是高手

yefei812678 发表于 2024-2-25 08:34:18

厉害厉害厉害厉害厉害厉害

yefei812678 发表于 2024-3-22 07:57:39

感谢分享感谢分享感谢分享

查看完整版本: 【CH】检查并计算填充图案面积