[求助]如何求指定图层的物体的最宽范围的交点

gxpndz

在多个图层存在有物体时，如何求指定图层的物体的最宽范围的交点？下图1为一个临时图形，如何求出图2所示的四个交点，请教各位大哥

TANER

是求最小包盒吧？

navsun

典型的包容盒问题，这个早已经实现了，参见VL函数，好像ACET函数也有。

TANER

2. (defun t2-getss-llur (ss / ssl i ptl)
3.   (setq ssl (sslength ss)
4. i -1
5.   )
6.   (repeat ssl
7.     (setq ptl (append
8.   (th-gete-llur (ssname ss (setq i (1+ i))))
9.   ptl
10.        )
11.     )
12.   )
13.   (th-ll-ur ptl)
14. )
15. (defun th-gete-llur (ename / ll ur)
16.   (vla-getboundingbox (vlax-ename->vla-object ename) 'll 'ur)
17.   (list (vlax-safearray->list ll) (vlax-safearray->list ur))
18. )
19. (defun th-ll-ur (ptl)
20.   (list (apply
21.    'mapcar
22.    (cons 'min ptl)
23. )
24. (apply
25.    'mapcar
26.    (cons 'max ptl)
27. )
28.   )
29. )

(defun t2-getss-llur (ss / ssl i ptl)   (setq ssl (sslength ss) i -1   )   (repeat ssl     (setq ptl (append   (th-gete-llur (ssname ss (setq i (1+ i))))   ptl        )     )   )   (th-ll-ur ptl) ) (defun th-gete-llur (ename / ll ur)   (vla-getboundingbox (vlax-ename->vla-object ename) 'll 'ur)   (list (vlax-safearray->list ll) (vlax-safearray->list ur)) ) (defun th-ll-ur (ptl)   (list (apply    'mapcar    (cons 'min ptl) ) (apply    'mapcar    (cons 'max ptl) )   ) )

AMTONNY

呵呵,偶在本站下载的,给你吧,C:TEA

gxpndz

感谢楼上两位大哥的提点，我学这个不久，看了AMTONNY大哥贴出的感觉挻复杂的，其实我最大的目的是求出图层2上的物体的最宽点，我想做个自动标注线性标注到指定层的物体的命令，就是这个最宽点的坐标不会求，