캐드 분류
리습 소수점이 변경이 안되어 수정 부탁드립니다.ㅠㅠ
컨텐츠 정보
- 800 조회
- 2 댓글
- 0 추천
- 0 비추천
- 목록
본문
(defun rtd (a)(/ (* a 180.0) pi))
(defun c:fg(/ p1 p2 ang)
(setq p1 (getpoint "np1:")) ;좌표 (x,y)
(setq p2 (getpoint p1 "np2:")) ;좌표 (x,y)
(rtos (setq ang (rtd(angle p1 p2))) 2 8) ;ang는 degree return
(setq andg ;andg는 각도에 따른 degree return
(cond
((<= 0 ang 30) (princ ang)) ; Right(윗부분 30도)
((<= 60 ang 120)(princ (abs(- 90 ang)))) ; Top
((<= 150 ang 210)(princ (abs(- 180 ang)))) ; Left
((<= 240 ang 300)(princ (abs(- 270 ang)))) ; Bottom
((<= 330 ang 360)(princ (abs(- 360 ang)))) ; Right(아랫부분 30도)
(T (alert "n 측정각도를 벗어났습니다! n 다시 체크하시기 바랍니다."))
)
)
(princ)
)
———————————————————————-
rtos 이용해서 소수점을 8자리로 변경했는데, 커맨드창에는 4자리까지밖에 안 나옵니다.ㅠㅠ
andg 변수에 rtos를 씌어도 마찬가지로 안됩니다.ㅠㅠ 그냥 커맨드 창에 8자리가 나오게끔하고
싶은데, 고수님들 수정 부탁드립니다.(–)(__)
관련자료
댓글 2
/ 1 페이지
