세 점으로 중심점과 반경얻기 xi:Get3pCen

함수설명

세 점으로 세 점의 중심점과 이 세점을 지나는 원의 반경을 얻습니다.

 

구성

(xi:Get3pCen p1 p2 p3)

    p1, p2, p3 : 포인트

    반환: (list 중심점 반경)

 

 

예제)

(if
   (and
      (setq pt1 (getpoint "\n>> 첫번째 점 지정"))
      (setq pt2 (getpoint "\n>> 두번째 점 지정"))
      (setq pt3 (getpoint "\n>> 세번째 점 지정"))
      (setq result (xi:Get3pCen pt1 pt2 pt3))
   )
   (xi:MakeCircle (car result) (cadr result) nil)
)