[编程交流] 将（rtos x 2 2）应用于lis

(0.33 0.5 0.75 1.0 1.01 1.25 1.5 1.51 2.0 2.25 2.5 3.0 3.01 3.02 3.25 3.5 3.9 4.0)

("0.33" "0.50" "0.75" "1.00" "1.01" "1.25" "1.50" "1.51" "2.00" "2.25" "2.50" "3.00" "3.01" "3.02" "3.25" "3.50" "3.90" "4.00")

 [b][color=BLACK]([/color][/b]setvar [color=#2f4f4f]"DIMZIN"[/color] 0[b][color=BLACK])[/color][/b]
 [b][color=BLACK]([/color][/b]setq l1 '[b][color=FUCHSIA]([/color][/b]0.33 0.2 0.5 1.0 1.01 1.22[b][color=FUCHSIA])[/color][/b][b][color=BLACK])[/color][/b]
 [b][color=BLACK]([/color][/b]setq l2 [b][color=FUCHSIA]([/color][/b]mapcar '[b][color=NAVY]([/color][/b]lambda [b][color=MAROON]([/color][/b]s[b][color=MAROON])[/color][/b] [b][color=MAROON]([/color][/b]rtos s 2 2[b][color=MAROON])[/color][/b][b][color=NAVY])[/color][/b] l1[b][color=FUCHSIA])[/color][/b][b][color=BLACK])[/color][/b]
 [b][color=BLACK]([/color][/b]prin1 l2[b][color=BLACK])[/color][/b]

(defun RM:ListReal->ListStr (l / l2)
 ;; © RenderMan
 ;; Example: (RM:ListReal->ListStr l1)
 ;; Where l1 =
 ;; (setq l1 (list 0.33 0.5 0.75 1.0 1.01 1.25 1.5 1.51 2.0 2.25 ;| etc |)
 (if (and l
          (= 'LIST (type l)))
   (setq l2 (mapcar (function (lambda (x) (rtos x 2 2))) l))))

Enter new value for DIMZIN <12>:
Command: (rtos 0.1 2 2)
".1"

(defun AT:RToSLst (lst unit prec)
 (mapcar
   (function (lambda (x)
               (cond
                 ((eq (type x) 'LIST) (AT:RToSLst x unit prec))
                 ((member (type x) (list 'INT 'REAL)) (rtos x unit prec))
                 (x)
               )
             )
   )
   lst
 )
)

(defun LM:rtoslst ( l u p )
  
  (cond
    ( (member (type l) '(INT REAL)) (rtos l u p) )
    ( (atom l) l )
    ( (cons (LM:rtoslst (car l) u p) (LM:rtoslst (cdr l) u p)) )
  )
)