(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자리가 나오게끔하고
싶은데, 고수님들 수정 부탁드립니다.(–)(__)
무엇인진 모르겠지만..
(princ ang)
이런걸..
(princ (rtos ang 2 8))
이렇게 하셔야죠..
아… 그렇군요.ㅋㅋㅋㅋ 감사합니다. 또하나 깨달음을 얻었네요 ㅎㅎ;