（XD::Geom:isCircle）判断SPLINE或者点表是否构成圆（CIRCLE）

Lispboy

1. (defun xd::Geom:iscircle (pts fuzz / #center #radius area1 c1 cen1 cen2 g r1
   
2.                               ret
   
3.                          )
   
4.   (if (and
   
5.         (= (type pts) 'ENAME)
   
6.         (= (cdr (assoc 0 (entget pts))) "SPLINE")
   
7.       )
   
8.     (progn
   
9.       (setq pts (xdrx_getsamplept pts 5)
   
10.               pts (list (nth 1 pts) (nth 2 pts) (nth 3 pts))
    
11.         )
    
12.     )
    
13.     (progn
    
14.       (setq pts (xd::list:removedup pts))
    
15.       (if (< (length pts) 5)
    
16.         (setq pts nil)
    
17.       )
    
18.     )
    
19.   )
    
20.   (and
    
21.     (setq c1 (xdrx_points_mincircle pts))
    
22.     (setq r1 (cadr c1))
    
23.     (setq cen1 (car c1))
    
24.     (setq area1 (* pi r1 r1))
    
25.     (setq g (xdge::constructor "kcircarc3d"))
    
26.     (xdge::setpropertyvalue g "set" (nth 0 pts) (nth (fix (/
    
27.                                                              (length pts)
    
28.                                                              2.0
    
29.                                                           )
    
30.                                                      ) pts
    
31.                                                 ) (last pts)
    
32.     )
    
33.     (xdge::getpropertyvalue g "center" "radius" "area")
    
34.     (equal cen1 #center fuzz)
    
35.     (equal r1 #radius fuzz)
    
36.     (setq ret (list cen2 #radius))
    
37.   )
    
38.   (xdge::free g)
    
39.   ret
    
40. )

(defun xd::Geom:iscircle (pts fuzz / #center #radius area1 c1 cen1 cen2 g r1<br />                               ret<br />                          )<br />   (if (and<br />         (= (type pts) 'ENAME)<br />         (= (cdr (assoc 0 (entget pts))) "SPLINE")<br />       )<br />     (progn<br />       (setq pts (xdrx_getsamplept pts 5)<br />               pts (list (nth 1 pts) (nth 2 pts) (nth 3 pts))<br />         )<br />     )<br />     (progn<br />       (setq pts (xd::list:removedup pts))<br />       (if (< (length pts) 5)<br />         (setq pts nil)<br />       )<br />     )<br />   )<br />   (and<br />     (setq c1 (xdrx_points_mincircle pts))<br />     (setq r1 (cadr c1))<br />     (setq cen1 (car c1))<br />     (setq area1 (* pi r1 r1))<br />     (setq g (xdge::constructor "kcircarc3d"))<br />     (xdge::setpropertyvalue g "set" (nth 0 pts) (nth (fix (/<br />                                                              (length pts)<br />                                                              2.0<br />                                                           )<br />                                                      ) pts<br />                                                 ) (last pts)<br />     )<br />     (xdge::getpropertyvalue g "center" "radius" "area")<br />     (equal cen1 #center fuzz)<br />     (equal r1 #radius fuzz)<br />     (setq ret (list cen2 #radius))<br />   )<br />   (xdge::free g)<br />   ret<br /> )

sh_h

谢谢楼主分享！！！