[求助]：rtos函数转换的前后导零

cq_qg

在用rtos函数转换时，比如9.5，应该写为009.500，怎么处理的，是不是有个参数控制？
我知道后续零可以将变量dimzin设置成0，可是前导零怎么办？设置这个变量不管用啊！

雨箭风刀

好像没有前导0,不过可以通过程序自己加上去

hhc_1

判断整数部分有几位,再添加相应个数的零

cq_qg

请教一下改怎么添加：
这是我程序里的写里程的语句，比如里程32006.3（赋值给ch1），CHF是里程标志符号，前面已经赋予了“DK”的值，
(setq c (fix (/ ch1 1000)) cy (- ch1 (* c 1000)))
(setq ccy (strcat CHF (itoa c) "+" (rtos cy 2 3)))
那么最后写出来里程应该是（变量ccy）DK32+006.300
可是现在前面的零没有，只能是DK32+6.300
怎么能实现写成DK32+006.300？

hhc_1

(repeat (- 3 (strlen (rtos (fix cy) 2 0)))
(setq cy (strcat "0" cy))
)

cq_qg

楼上的好像不行啊，这样会引起数据类型错误啊！

在这一段是这么三行，最后要把里程作为文字写出来。
(setq c (fix (/ ch1 1000)) cy (- ch1 (* c 1000)))
(setq ccy (strcat CHF (itoa c) "+" (rtos cy 2 3)))
               
(command "text" (list (- ch1 1) (+ 500 13.5))  2.5  "90" ccy)

hhc_1

再转化一下不就行了,这很简单 (setq cy (atof cy))

cq_qg

还是不行啊！

hhc_1

(setq c (fix (/ ch1 1000)) cy (- ch1 (* c 1000)))
(repeat (- 3 (strlen (rtos (fix cy) 2 0)))
(setq cy (strcat "0" cy))
)
(setq ccy (strcat CHF (itoa c) "+" (rtos (atof cy) 2 3)))

(command "text" (list (- ch1 1) (+ 500 13.5)) 2.5 "90" ccy)

cq_qg

谢谢你的热心解答，真是奇怪，我觉得这个也没有问题，可是还是出现错误。

hhc_1

你哪个CHF有值吗

cq_qg

有值。
出现的错误提示是：; 错误: 参数类型错误: stringp 14.99
ch1的值是45014.9900，这样cy的值应该就是14.99，到后面就出错了。

AyungerStudio

;;;********************************************
;;; No.12-1 里程格式化                        
;;; (KmFormat 123456.789 "K" 2) => K123+456.79
;;;********************************************
(defun KmFormat (floatKm strPreMark Percision / ifloatKm istrPreMark iXiaoshuwei iKm strK strM pos xSign)
        (setq        ifloatKm floatKm
                                istrPreMark strPreMark
                                iXiaoshuwei Percision
        );end_setq
        (setvar "DIMZIN" 1)
        (if (< iXiaoshuwei 0)
                        (setvar "DIMZIN" 8);then 若为负数,则为消除后续零.
                        (setvar "DIMZIN" 1);else 若为非负数,则为格式化保留位数.
        );end_if

        (setq strK (itoa (fix (/ ifloatKm 1000))))
        (if (< iXiaoshuwei 0)
                (setq strM (rtos (- ifloatKm (* (fix (/ ifloatKm 1000)) 1000)) 2));then
                (setq strM (rtos (- ifloatKm (* (fix (/ ifloatKm 1000)) 1000)) 2 iXiaoshuwei));else
        );end_if
        (setq xSign "+")
        (if (= (substr strM 1 1) "-")
                (progn
                        (setq xSign "-")
                        (setq strM (substr strM 2))
                );end_progn
        );end_if
               
        (setq pos (vl-string-search "." strM))
        (if (= pos nil) (setq pos -1))
        (if (= pos 1) (setq strM (strcat "00" strM)))
        (if (= pos 2) (setq strM (strcat "0" strM)))
        (if (< pos 0);说明没有小数点.
                (if (= (strlen strM) 1) (setq strM (strcat "00" strM)))
                (if (= (strlen strM) 2) (setq strM (strcat "0" strM)))
        );end_if
       
        (if (= istrPreMark nil) (setq istrPreMark ""))
        (if (= istrPreMark "");若为空字符，则不返回里程值.
                (setq iKm (strcat xSign strM));then
                (setq iKm (strcat istrPreMark strK xSign strM));else
        );end_if
        (setq iKm iKm)
);end_defun

ll_j

(setq c (fix (/ ch1 1000)) cy (- ch1 (* c 1000)))
(setq ccy (strcat CHF (itoa c) (if (< cy 0) "000" (if (< cy 10) "00" (if (< cy 100) "0" ""))) (rtos asd 2 3)))

无痕

[iframe h=600 w=120%]http://blog.139.com/dreamsky_lxx/article/650044.html[/iframe]