[编程交流] 丢失的000

DIMZIN System Variable 
Type: Integer
Saved in: Drawing
Initial value: 0
Controls the suppression of zeros in the primary unit value. DIMZIN stores this 
value when you enter it on the command line or set it under Primary Units in 
the Annotation dialog box. DIMZIN values 0-3 affect feet-and-inch dimensions only.
0  Suppresses zero feet and precisely zero inches
1  Includes zero feet and precisely zero inches
2  Includes zero feet and suppresses zero inches
3  Includes zero inches and suppresses zero feet
4  Suppresses leading zeros in decimal dimensions (for example, 0.5000 becomes .5000)
8  Suppresses trailing zeros in decimal dimensions (for example, 12.5000 becomes 12.5)
12  Suppresses both leading and trailing zeros (for ex-ample, 0.5000 becomes 0.5)
DIMZIN also affects real-to-string conversions performed by the AutoLISP rtos and angtos functions.
 

(defun LM:rtos ( real prec / _padright ) (vl-load-com)
 ;; © Lee Mac 2010
 (defun _padright ( str char len )
   (if (< (strlen str) len) (_padright (strcat str char) char len) str)
 )
 
 (strcat (itoa (fix real))
   (_padright
     (vl-string-left-trim "0" (rtos (abs (rem real 1)) 2 prec)) "0" (1+ prec)
   )
 )
)

(LM:rtos 3.400 0)
"30"

(defun LM:rtos ( real prec / _padright ) (vl-load-com)
 ;; © Lee Mac 2010
 (defun _padright ( str char len )
   (if (< (strlen str) len) (_padright (strcat str char) char len) str)
 )
 (
   (lambda ( dec )
     (strcat (itoa (fix real)) (if (eq "" dec) "" ".") dec)
   )
   (_padright (vl-string-left-trim ".0" (rtos (abs (rem real 1)) 2 prec)) "0" prec)
 )
)

(defun LM:rtos ( real prec ) (vl-load-com)
 (
   (lambda ( l )
     (repeat (- prec (cond ( (vl-position 46 l) ) ( 0 )))
       (setq l (cons 48 l))
     )      
     (vl-list->string (if (= 46 (car (setq l (reverse l)))) (cons 48 l) l))
   )
   (reverse (vl-string->list (rtos real 2 prec)))
 )
)