楼主有群吗，拉进群，272035535
能考虑样条曲线吗，测试的有样条曲线的话，40秒了
学到啦，有机会试试
楼主，我最近也在看大海的那个分堆函数，梳理一下思路，到了主要耗时点那里，卡住了，根本看不懂，那里感觉很复杂，
(setq on-off t group nil)
(while on-off
(setq recc(car lst))
(setq boxlst nil)
(while(setq frec(car lst))
(setq lst(cdr lst))
(if(setq intrec(recxj recc(setq frec(car lst))))
(setq recc intrec);---比较第一个box和第二个box是否有相交矩形
(if(setq tmplst(vl-some '(lambda(a / b)(if(setq b(recxj recc a))(list b a)))boxlst))
(progn
(if (not (eq (car tmplst) (last tmplst)))
(setq boxlst (subst (car tmplst) (last tmplst) boxlst))
)
(setq recc frec)
)
(setq boxlst (cons recc boxlst)
recc frec
)
)
)
)
(if(eq(length boxlst)(length group))
(setq on-off nil)
(setq group boxlst lst boxlst)
)
)
这里能不能换一种写法？完全看不懂逻辑
感谢大佬分享
aws 发表于 2024-4-16 17:52
楼主，我最近也在看大海的那个分堆函数，梳理一下思路，到了主要耗时点那里，卡住了，根本看不懂，那里感觉 ...
看不懂就直接用，想那么多有的没的干啥
kucha007 发表于 2024-4-17 08:48
看不懂就直接用，想那么多有的没的干啥
17万图元，480组，仅耗时10秒，是真的吗，我实际测试，花费了460秒呀。。。
aws 发表于 2024-4-17 11:40
17万图元，480组，仅耗时10秒，是真的吗，我实际测试，花费了460秒呀。。。
不清楚唉，反正我是够用的，平时分堆的对象也不多
kucha007 发表于 2023-3-25 16:31
举个例子：
想要扎堆缩放对象可以这样操作:
ps：为了避免前面缩放的对象和后面的对象打架，这里是先收集 ...
很给力，改出了批量建块和批量标注最大外形长宽尺寸
感谢楼主的分享，学习一下