筛选同尺寸矩形包围盒

xtjd · 发表于 2022-10-23 13:15:58

测试回复可见
(defun c:chbs(/ chbs-find lws objs ss st)
(princ "\nCHBS〓筛选同尺寸矩形包围盒 xtjd_20221021")
(vl-load-com)
;获取图元矩形包围盒点getbox_obj[附件中]
;获取表中所有相同元素出现的位置chbs-find[附件中]
;主程序
(*toolst*)
(setvar "lwdisplay" 1)
(if(setq ss(ssget '((0 . "*POLYLINE"))))
  (progn
(setq objs(mapcar 'vlax-ename->vla-object(vl-remove-if 'listp(mapcar 'cadr(ssnamex ss)))))
(setq lws(mapcar(function(lambda(x / a b c l w)
               (setq a(car x) b(cadr x) c(list(car a)(cadr b)))
               (setq l(distance a c) w(distance b c))
               (list(min l w)(max l w))
            )
         )
      (mapcar 'getbox_obj objs)
      )
)
(setq st 1)
(foreach n (chbs-find lws 1e-6)
(mapcar(function(lambda(x / obj)(vla-put-Color(setq obj(nth x objs))st)(vla-put-Lineweight obj 30)))n)
(setq st(1+ st))
)
  )
)
(*toolend*)
)

xtjd · 发表于 2022-10-25 13:11:46

cj52000 发表于 2022-10-24 08:41
大师，很好用，发现对于旋转后的同尺寸矩形好像不适用，请帮忙看看

将获取图元矩形包围盒点的程序换成高飞鸟大师的最小包围盒即可
http://bbs.mjtd.com/thread-81308-1-1.html
【高飞鸟】【越飞越高讲堂12】最小包围盒和最大距离点对

muai2010 · 发表于 2024-7-8 08:48:56

xtjd 发表于 2022-10-25 13:11
将获取图元矩形包围盒点的程序换成高飞鸟大师的最小包围盒即可
http://bbs.mjtd.com/thread-81308-1-1.h ...

老师，能整合下么，看了高飞鸟，组合进去发现不能用了

vitalgg · 发表于 2022-10-24 20:35:01

cj52000 发表于 2022-10-24 08:41
大师，很好用，发现对于旋转后的同尺寸矩形好像不适用，请帮忙看看

https://atlisp.cn/package-info/list-rec-wxh-stable.html
有视频

梦想家-DING · 发表于 2022-10-23 13:47:40

dbb标注外形也有吗

xtjd · 发表于 2022-10-23 13:50:50

梦想家-DING 发表于 2022-10-23 13:47
dbb标注外形也有吗

此贴不含DBB外形标注

yoyoho · 发表于 2022-10-23 14:16:34

回复学习!!!!!!

myhomer · 发表于 2022-10-23 15:49:23

dbb标注外形也很强大

szhorse · 发表于 2022-10-23 15:58:27

DBB外形标注看起来不错

萧●﹏●明 · 发表于 2022-10-23 16:21:32

不明觉厉。。。

ninja37 · 发表于 2022-10-23 16:55:38

梦想家-DING 发表于 2022-10-23 13:47
dbb标注外形也有吗

请问一下 dbb是什么意思呢

轮回 · 发表于 2022-10-23 17:32:28

谢谢分享！

没有昵称呀 · 发表于 2022-10-23 19:02:25

可能机械模具类的行业比较适用

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

[源码] 筛选同尺寸矩形包围盒

本帖子中包含更多资源