[LISP程序]："用指定字符首位补位格式化数字"参数能不能

mr.lixu

从论坛找到这个源码：不知怎么改就能支持给变量补位格式化了？
主要是想把一幅图的高程注记全部变成统一格式后再排序，然后取最大和最小值，请各位大侠帮个忙吧

功  能  用指定字符首位补位格式化数字
参  数  intVal：要补位的数。;
        Pad：   代表添加字符形成的数值的位数
        sp      补位字符;
        str     小数位数
示  例  (xd-stringZeroPad 123 4 "0" 0)
注  意  以上示例将返回“0123”。
_$ (XD-STRING_ZEROPAD 123 8 " " 2)
"  123.00"
_$ (XD-STRING_ZEROPAD 123 8 "A" 2)
"AA123.00"
|;
(defun xd-string_zeropad (intval pad sp str / zeros)
  (setvar "dimzin" 0)
  (strcat
    (apply 'strcat
           (repeat (- pad (strlen (rtos intval 2 str)))
             (setq zeros (cons sp zeros)) ; make list
           )
    )
    (rtos intval 2 str)
  )
)