cchessbd 发表于 2024-7-23 11:03:32

CAD图内标注面积、周长的较完善版本。适合钣金、机械加工用。

本帖最后由 cchessbd 于 2024-7-23 17:10 编辑

标注面积周长的比较完善版本。基本代码来自论坛。有比较大的修改。行业图默认图单位一般为mm，已直接转为米、平方米。
实现了单图元、多图元、单零件(多零件)的标注，单零件只支持一个框内的图元不要错选，快捷命令为MJ3、MJ2、MJ1、MJ。
注意不规范图一定要去重叠，否则不准！其中去重叠、直线转多线功能，论坛都有代码，我就不啰嗦了。
可以用RSU生产面域差集来校验周长，净面积。

更进一步的可以用论坛的分堆代码来实现多零件的标注。因论坛的快速分堆源码存在部分bug，多零件的就不发了。
测试和修改，费了几天多的时间，还有几个晚上，收2个币吧。

ssyfeng 发表于 2024-7-23 11:09:37

这不是免费的嘛，

cchessbd 发表于 2024-7-23 11:19:53

ssyfeng 发表于 2024-7-23 11:13
好像缺少RO_PT_AB函数

是的是的，就是一个坐标偏移函数，没注意到这个。
因为老记不住自带的函数，平时又用得比较多，所以自己定义了一个。

(defun RO_PT_ab (PT a b)
(mapcar '(lambda (X Y) (+ X Y)) PT (LIST a b 0) )
)

cchessbd 发表于 2024-7-23 11:50:00

Noangler 发表于 2024-7-23 11:34
大佬，有演示图示吗，想看看执行效果是怎么样的。看对我是不是有用，再决定下不下载。主要只有3个币了

多努力刷帖，回帖吧。我之前也是一穷二白。。。

ssyfeng 发表于 2024-7-23 11:13:22

好像缺少RO_PT_AB函数

Noangler 发表于 2024-7-23 11:34:55

大佬，有演示图示吗，想看看执行效果是怎么样的。看对我是不是有用，再决定下不下载。主要只有3个币了;P

tranque 发表于 2024-7-23 12:18:13

Noangler 发表于 2024-7-23 11:34
大佬，有演示图示吗，想看看执行效果是怎么样的。看对我是不是有用，再决定下不下载。主要只有3个币了

多灌水，比如我这条

hzyhzjjzh 发表于 2024-7-23 12:32:03

谢谢楼主分享

gble119 发表于 2024-7-23 13:03:59

没币实力不允许，，，，

lzspain 发表于 2024-7-23 13:28:30

能有个演示图看看最好
页: [1] 2
查看完整版本: CAD图内标注面积、周长的较完善版本。适合钣金、机械加工用。