（XD::Ellipse:isArc）判断SPLINE,椭圆是否是ARC

marting

使用了XDRX API的几何库函数，用SPLINE,椭圆的面积和转换成弧线的几何模型面积是否在精度内相等判断。

1. (defun XD::Geom:isArc (e tol / pts ge info)
   
2.   (if (and (= (type e) 'ename)
   
3.            (or (= (strcase (car (xdrx-getpropertyvalue e "classname")))
   
4.                   "ELLIPSE"
   
5.                )
   
6.                (= (strcase (car (xdrx-getpropertyvalue e "classname")))
   
7.                   "SPLINE"
   
8.                )
   
9.            )
   
10.            (setq pts (xdrx_getsamplept e))
    
11.            (not (equal (car pts) (last pts) tol))
    
12.            (setq ar1 (xdrx-getpropertyvalue e "area"))
    
13.            (setq pts (xdrx_getsamplept e))
    
14.            (and        (setq ge (xdge::constructor
    
15.                            "kcircarc3d"
    
16.                            (car pts)
    
17.                            (cadr pts)
    
18.                            (last pts)
    
19.                          )
    
20.                 )
    
21.                 (setq ar2 (xdrx-getpropertyvalue ge "area"))
    
22.                 (setq info (list (xd::pnts:isclockwise pts)
    
23.                                  (xdrx-getpropertyvalue
    
24.                                    ge                 "center"
    
25.                                    "radius"         "startangle"
    
26.                                    "endangle"
    
27.                                   )
    
28.                                  (list (car pts) (cadr pts) (last pts))
    
29.                            )
    
30.                 )
    
31.                 (xdge::free ge)
    
32.            )
    
33.            (equal (/ (abs (- ar1 ar2)) ar1) 0.0 tol)
    
34.       )
    
35.     info
    
36.   )
    
37. )

(defun XD::Geom:isArc (e tol / pts ge info)<br />   (if (and (= (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 />            (not (equal (car pts) (last pts) tol))<br />            (setq ar1 (xdrx-getpropertyvalue e "area"))<br />            (setq pts (xdrx_getsamplept e))<br />            (and        (setq ge (xdge::constructor<br />                            "kcircarc3d"<br />                            (car pts)<br />                            (cadr pts)<br />                            (last pts)<br />                          )<br />                 )<br />                 (setq ar2 (xdrx-getpropertyvalue ge "area"))<br />                 (setq info (list (xd::pnts:isclockwise pts)<br />                                  (xdrx-getpropertyvalue<br />                                    ge                 "center"<br />                                    "radius"         "startangle"<br />                                    "endangle"<br />                                   )<br />                                  (list (car pts) (cadr pts) (last pts))<br />                            )<br />                 )<br />                 (xdge::free ge)<br />            )<br />            (equal (/ (abs (- ar1 ar2)) ar1) 0.0 tol)<br />       )<br />     info<br />   )<br /> )

相信自己666

厉害、厉害、厉害、厉害