求画图形外接圆的lisp

jerison

请教大神画图形外接圆的lisp，特别是不规则图形，如下图之前考虑提取所有点，然后得出形心，然后对比所有点距，最后画圆，但是貌似行不通

newer

1. (defun c:tt ()
   
2.   (and (setq ss (ssget '((0 . "*line,circle,arc,ellipse"))))
   
3.        (setq pts (xdrx_entity_getproperty ss "getsamplepoints"))
   
4.        (setq cir (xdrx_points_mincircle pts))
   
5.        (xdrx_circle_make cir)
   
6.        (xdrx_setpropertyvalue (entlast) "color" 1)
   
7.   )
   
8.   (princ)
   
9. )
   

(defun c:tt ()<br />   (and (setq ss (ssget '((0 . "*line,circle,arc,ellipse"))))<br />        (setq pts (xdrx_entity_getproperty ss "getsamplepoints"))<br />        (setq cir (xdrx_points_mincircle pts))<br />        (xdrx_circle_make cir)<br />        (xdrx_setpropertyvalue (entlast) "color" 1)<br />   )<br />   (princ)<br /> )<br />

jerison

newer 发表于 2017-5-27 10:51

支持支持支持支持支持支持支持支持支持支持

jerison

newer 发表于 2017-5-27 10:51

大神可否提供一下思路，第一步是获取所有点坐标，第二步mincircle是如何去做的？

newer

jerison 发表于 2017-5-29 11:29

求所有点的凸包，然后求凸包的最小外接圆。 在论坛搜索凸包看看算法

jerison

newer 发表于 2017-5-29 11:51

感谢大神，那么弧线上的点坐标又是如何获取

newer

jerison 发表于 2017-5-29 17:20

XDRX API 求曲线样板点  (xdrx_getsamplept ent tol)   tol --- 弦高距离

(xdrx_getpropertyvalue ent "getsamplepoints" tol)
上面tol如果不给，默认 拾取框高度的1/64.