框选求出所有图元的最小包围框

xuxuejun · 发表于 2021-8-18 22:09:16

马上注册，结交更多好友，享用更多功能，让你轻松玩转社区。

您需要登录才可以下载或查看，没有账号？立即注册

×

如图：框选怎么计算出每一个图元的最小包围框呢？

hh_lj007 · 发表于 2021-8-19 07:59:11

坛内搜索，有大神出品的东东

xuxuejun · 发表于 2021-8-19 12:14:16

搜索很久了，都找不到，能否提供一下链接？？？感谢

xuxuejun · 发表于 2021-8-19 12:15:25

hh_lj007 发表于 2021-8-19 07:59
坛内搜索，有大神出品的东东

搜索很久了，都没有看到结果，能否提供一下链接，万分感谢

hh_lj007 · 发表于 2021-8-19 14:46:13

;; 计算某个ENAME对象的左下和右上点，返回2个点的坐标
(defun getObjectBoundingBox (ename / ll ur)
(vla-GetBoundingBox (vlax-ename->vla-object ename) 'll 'ur)
(list
(vlax-safearray->list ll)
(vlax-safearray->list ur)
)
)

xuxuejun · 发表于 2021-8-19 15:08:27

hh_lj007 发表于 2021-8-19 14:46

这个代码是不是只能计算一个点表，比如我一个选择集里面有4个矩形，能否算出4个矩形的左下和右上的点坐标呢？

hhhlike · 发表于 2021-8-19 16:02:02

(xdrx_entity_box ss)

hh_lj007 · 发表于 2021-8-20 09:00:25

本帖最后由 hh_lj007 于 2021-8-20 09:02 编辑

选择集把每个ename循环一次就好了。
(setq ss (ssget '((0 . "LWPOLYLINE")))) ;条件自己可以加
(setq ii -1 roundlist '())
(repeat (sslength ss)
(setq ii (1+ ii)
en (ssname ss ii)
roundlist (append roundlist (list (getObjectBoundingBox en)))
)
)
roundlist ;即为返回点表，((左下点右上点)(左下点右上点)(左下点右上点))

xuxuejun · 发表于 2021-8-22 10:55:33

hh_lj007 发表于 2021-8-20 09:00
选择集把每个ename循环一次就好了。
(setq ss (ssget '((0 . "LWPOLYLINE")))) ;条件自己可以加
(setq ii ...

非常感谢，问题已经解决了

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

[求助] 框选求出所有图元的最小包围框

马上注册，结交更多好友，享用更多功能，让你轻松玩转社区。