基于最小矩形的椭圆模拟

st788796

基于点集最小面积矩形的椭圆模拟，

2. 
   
3. (defun ff (pts / box ptl p1 p3 p9 p7)
   
4.   (setq box (apply 'xdrx_points_minareabox pts))
   
5.   (mapcar 'set '(p1 p3 p9 p7) box)
   
6.   (list (xdrx_line_midp p1 p9) (xdrx_line_midp p3 p9) (xdrx_line_midp p7 p9))
   
7. )
   
8. (defun c:test (/ ss pts)
   
9.   (if (setq ss (ssget '((0 . "point"))))
   
10.     (progn
    
11.       (setq pts (ff (mapcar '(lambda (x) (xdrx_getpropertyvalue x "position")) (xdrx_pickset->ents ss))))
    
12.       (vl-cmdf ".ellipse" "c" "_none" (car pts) "_none" (cadr pts) "_none" (last pts))
    
13.     )
    
14.   )
    
15.   (princ)
    
16. )
    

<br /> (defun ff (pts / box ptl p1 p3 p9 p7)<br />   (setq box (apply 'xdrx_points_minareabox pts))<br />   (mapcar 'set '(p1 p3 p9 p7) box)<br />   (list (xdrx_line_midp p1 p9) (xdrx_line_midp p3 p9) (xdrx_line_midp p7 p9))<br /> )<br /> (defun c:test (/ ss pts)<br />   (if (setq ss (ssget '((0 . "point"))))<br />     (progn<br />       (setq pts (ff (mapcar '(lambda (x) (xdrx_getpropertyvalue x "position")) (xdrx_pickset->ents ss))))<br />       (vl-cmdf ".ellipse" "c" "_none" (car pts) "_none" (cadr pts) "_none" (last pts))<br />     )<br />   )<br />   (princ)<br /> )<br />

Lispboy

测试了下，总体不错，细节还是有些点落在了外面。 测试点是在实际的椭圆上样本点。