[编程交流] 丢失的000

(defun foo (num prec / dim)
 (and (setq dim (getvar 'dimzin)) (setvar 'dimzin 0))
 (setq num (cond ((numberp num)
                  (rtos num
                        (getvar 'lunits)
                        (cond ((numberp prec) prec)
                              ((getvar 'luprec))
                        )
                  )
                 )
           )
 )
 (and dim (setvar 'dimzin dim))
 num
)