筛选同尺寸矩形包围盒

xtjd

测试 回复可见
(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

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

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

vitalgg

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

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

xtjd

aws 发表于 2022-10-25 11:47
老铁，请问那个矩形标注可以分享吗

请参考【如何快速实现多个多段线进行标注】
http://bbs.mjtd.com/thread-186443-1-1.html

梦想家-DING

dbb标注外形也有吗

xtjd

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

此贴不含DBB外形标注

yoyoho

回复学习!!!!!!

myhomer

dbb标注外形也很强大

szhorse

DBB外形标注看起来不错

萧●﹏●明

不明觉厉。。。

ninja37

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

请问一下  dbb是什么意思呢

轮回

谢谢分享！

没有昵称呀

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