리습받은걸 저장해놔야하는데 포멧으로 다 지웠습니다 ㅜㅜ

전에 받은 사칙연산리습중에

np nm md ms 이었던가??

+ * / – 모두 하나의 파일에 들어있던거 같거든여..
다시 찾으려니 지웠는지..;; 안보이네여…

이것두 하나 다시 올려주심 안되나여??

(setq un (getint “n** 소숫점 자리수를 입력하십시요 [default=1] : “))
(if (= nil un) (setq un 1))
(repeat (sslength orgenty)
(setq info (entget (ssname orgenty index))
oi (assoc 1 info)
va (atof (cdr oi))
)
(setq ca (atof (substr cal 2 (- (strlen cal) 1))))
(if (and (= c “/”) (= ca 0))
(setq ni oi)
(setq ni (cons 1 (rtos ((eval (read c)) va ca) 2 un)))
)
(setq info (subst ni oi info))
(entmod info)
(setq index (1+ index))

여기에서 소수점자리수가 몇자리까지 나오게 해달라고 숫자를 입력하면
그 자리까지 나와야하는데 수수점자리가 0이면 안나와요
어느부분을 고쳐야할까요