三角形外心（外接圆圆心）

newer

2. 
   
3. ;;三角形外心（外接圆圆心）
   
4. (defun XD::Geom:TriangleCircumCenter (p1 p2 p3 / p)
   
5.   (setq p (xdge::getpropertyvalue (xdge::constructor "kCircArc3d" p1 p2 p3) "center" "radius"))
   
6.   (xdge::free)
   
7.   p
   
8. )
   
9. 
   

<br /> ;;三角形外心（外接圆圆心）<br /> (defun XD::Geom:TriangleCircumCenter (p1 p2 p3 / p)<br />   (setq p (xdge::getpropertyvalue (xdge::constructor "kCircArc3d" p1 p2 p3) "center" "radius"))<br />   (xdge::free)<br />   p<br /> )<br /> <br />

/db_自贡黄明儒_

我还以你要把半径一同写出来呢？{:soso_e113:}

newer

/db_自贡黄明儒_ 发表于 2014-10-16 16:50
我还以你要把半径一同写出来呢？

听你的，修改代码了，返回 (圆心  半径)

st788796

只有圆心

1. (defun ff (p1 p2 p3)
   
2.   (c:cal
   
3.     "ill((p1+p2)/2,nor(p1,p2)+(p1+p2)/2,(p1+p3)/2,nor(p1,p3)+(p1+p3)/2)"
   
4.   )
   
5. )

(defun ff (p1 p2 p3)<br />   (c:cal<br />     "ill((p1+p2)/2,nor(p1,p2)+(p1+p2)/2,(p1+p3)/2,nor(p1,p3)+(p1+p3)/2)"<br />   )<br /> )

高山流水

二维快速算法

2. 
   
3. (defun TriCCCenter  (p0 p1 p2 / a r)
   
4.   ;; by GSLS(SS) 2014.10.17
   
5.   ;; for 2D
   
6.   (if (and (not (zerop (setq a (- (angle p1 p2) (angle p1 p0)))))
   
7.     (setq r (/ (distance p0 p2) (sin a) 2.0)))
   
8.     (polar p2 (+ -1.570796326794896 (angle p2 p0) a) r)))
   
9. 
   
10. ;; for test
    
11. (defun c:test  (/ p0 p1 p2 ph)
    
12.   (setq p0 (getpoint "\nSelect First Point of the triangle :")
    
13. p1 (getpoint p0 "\nSelect Second Point of the triangle :")
    
14. p2 (getpoint p1 "\nSelect Third Point of the triangle :"))
    
15.   (if (and p0
    
16.     p1
    
17.     p2
    
18.     (setq ph (TriCCCenter p0 p1 p2)))
    
19.     (entmake (list (cons 0 "Point")
    
20.      (cons 10 ph)
    
21.      (cons 62 1))))
    
22.   (princ))
    

<br /> (defun TriCCCenter  (p0 p1 p2 / a r)<br />   ;; by GSLS(SS) 2014.10.17<br />   ;; for 2D<br />   (if (and (not (zerop (setq a (- (angle p1 p2) (angle p1 p0)))))<br />     (setq r (/ (distance p0 p2) (sin a) 2.0)))<br />     (polar p2 (+ -1.570796326794896 (angle p2 p0) a) r)))<br /> <br /> ;; for test<br /> (defun c:test  (/ p0 p1 p2 ph)<br />   (setq p0 (getpoint "\nSelect First Point of the triangle :")<br /> p1 (getpoint p0 "\nSelect Second Point of the triangle :")<br /> p2 (getpoint p1 "\nSelect Third Point of the triangle :"))<br />   (if (and p0<br />     p1<br />     p2<br />     (setq ph (TriCCCenter p0 p1 p2)))<br />     (entmake (list (cons 0 "Point")<br />      (cons 10 ph)<br />      (cons 62 1))))<br />   (princ))<br />

高山流水

二维三点求外接圆

2. 
   
3. (defun ss-3PCirCle  (p0 p1 p2 / ang c r)
   
4.   (if (and (not (zerop (setq ang (- (angle p1 p2) (angle p1 p0)))))
   
5.     (setq r (/ (distance p0 p2) (sin ang) 2.0))
   
6.     (setq c (polar p2 (+ -1.570796326794896 (angle p2 p0) ang) r)))
   
7.     (list c (abs r))))

<br /> (defun ss-3PCirCle  (p0 p1 p2 / ang c r)<br />   (if (and (not (zerop (setq ang (- (angle p1 p2) (angle p1 p0)))))<br />     (setq r (/ (distance p0 p2) (sin ang) 2.0))<br />     (setq c (polar p2 (+ -1.570796326794896 (angle p2 p0) ang) r)))<br />     (list c (abs r))))

wzjck01

学习，学习

xvjiex

看不到附件下载，辛苦网站恢复大神了！