리습에서 계산된 수치를 문자열로 바꾸로 싶은데…
아래에 제가 만든 리습에 계산된 숫자가 문자열로 바뀌면 될것같은데… 아닌가요?
입력값에 1.03을 입력하면 26.1938이 계산되야하는데
자꾸 26.162로 출력이 됩니다 왜그런가요?
많은 도움 부탁드립니다.
(defun c:xxx()
(while
(setq real0 (getstring “n실수를 입력하시요…:”))
(setq mil (atoi real0))
(setq real1 (distof real0))
(setq real2 (- real1 mil))
(setq real real2) ;<===이 부분이 좀 바뀌면 될것같은데...
(cond
((= real “03”) (setq realx1 0.03125) (realxx))
((= real “06”) (setq realx1 0.0625) (realxx))
((/= real nil) (realyy))
);cond end
)
)
(defun realyy()
(setq plu (* real 25.4))
(setq plu1 (* mil 25.4))
(setq ans (+ plu plu1))
(princ ans)
)
(defun realxx()
(setq plu (* realx1 25.4))
(setq plu1 (* mil 25.4))
(setq ans (+ plu plu1))
(princ ans)
)