（XD::Geom:isCircle）判断一个SPLINE,椭圆是否是圆

marting

1. (defun XD::Geom:isCircle (e tol / pts cir)
   
2.   (if
   
3.     (and
   
4.       (= (type e) 'ename)
   
5.       (or (= (strcase (car (xdrx-getpropertyvalue e "classname")))
   
6.              "ELLIPSE"
   
7.           )
   
8.           (= (strcase (car (xdrx-getpropertyvalue e "classname")))
   
9.              "SPLINE"
   
10.           )
    
11.       )
    
12.       (setq pts (xdrx_getsamplept e))
    
13.       (equal (car pts)(last pts) tol)
    
14.       (setq cir (xdrx-points-mincircle pts))
    
15.       (equal
    
16.         (xdrx-getpropertyvalue e "area")
    
17.         (* PI (* (last cir)(last cir)))
    
18.         tol
    
19.       )
    
20.     )
    
21.      cir
    
22.   )
    
23. )
    
24. 
    

(defun XD::Geom:isCircle (e tol / pts cir)<br />   (if<br />     (and<br />       (= (type e) 'ename)<br />       (or (= (strcase (car (xdrx-getpropertyvalue e "classname")))<br />              "ELLIPSE"<br />           )<br />           (= (strcase (car (xdrx-getpropertyvalue e "classname")))<br />              "SPLINE"<br />           )<br />       )<br />       (setq pts (xdrx_getsamplept e))<br />       (equal (car pts)(last pts) tol)<br />       (setq cir (xdrx-points-mincircle pts))<br />       (equal<br />         (xdrx-getpropertyvalue e "area")<br />         (* PI (* (last cir)(last cir)))<br />         tol<br />       )<br />     )<br />      cir<br />   )<br /> )<br /> <br />

既然青春留不住

楼主辛苦啦！~~~~~~~~~~~~~~