함수설명
세 점으로 세 점의 중심점과 이 세점을 지나는 원의 반경을 얻습니다.
구성
(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)
)
'Lisp & Tips > Lisp 제작용 XiCAD 함수' 카테고리의 다른 글
객체 생성 (0) | 2023.03.20 |
---|---|
각도 정리 xi:FixAngle (0) | 2023.03.09 |
파일 목록의 정렬 xi:FileSort (0) | 2023.03.08 |
파일 중복 회피를 위한 번호 붙임 xi:FileNameAutoNum (0) | 2023.03.05 |
객체 삭제하기 xi:Erase (0) | 2023.03.05 |