뭐가 잘못 되었는지 도와 주십시요..^^
(DEFUN C:DN()
(setq os(getvar “osmode”))
(setvar “osmode” 512)
(setq a(getpoint “n First Point : “))
(setvar “osmode” 128)
(setq b(getpoint a “Second Point : “))
(setq c(distance a b))
(setq d(rtd (angle a b)))
(setq sd(/ c scl))
(princ “n * Distance : “)
(princ c)
(princ ” * Scale Distance : “)
(princ sd)
(princ ” * Angle : “)
(princ d)
(setvar “osmode” os))