함수설명
수평선의 각도를 읽으면, 선의 각도가 0 도일 때, 0에 수렴하는 숫자이거나, 2pi 에 가까운 두가지 형태로 나타나게 되는데, 이 것을 모두 0 도로 맞추어 주는 함수입니다.
또한 각도 계산을 할 때, 2pi 를 넘는 각도의 결과값이 나오면, 이 것을 2pi 이내의 결과로 만들어 줍니다.
구성
(xi:FixAngle a)
a : 각도, radian
반환: 정리된 각도 (실수)
예제)
(rtos (xi:FixAngle 7.85398163) 2 8)
반환 : "1.57079632"
예제)
(if
(and
(setq pt1 (getpoint "\n>> 첫번째 점 지정"))
(setq pt2 (getpoint "\n>> 두번째 점 지정"))
)
(setq ang (xi:FixAngle (angle pt1 pt2)))
)
'Lisp & Tips > Lisp 제작용 XiCAD 함수' 카테고리의 다른 글
객체 생성 (0) | 2023.03.20 |
---|---|
세 점으로 중심점과 반경얻기 xi:Get3pCen (0) | 2023.03.13 |
파일 목록의 정렬 xi:FileSort (0) | 2023.03.08 |
파일 중복 회피를 위한 번호 붙임 xi:FileNameAutoNum (0) | 2023.03.05 |
객체 삭제하기 xi:Erase (0) | 2023.03.05 |