用法
评论
建议
取 消
确 定
(defun vectra:number-padding-last (number len / p r) (setq r (rtos number 2 len)) (if (/= len 0) (progn (setq p (vl-string-search "." r)) (if (null p) (setq p (strlen r) r (strcat r "."))) (repeat (- len (strlen r) (- p) -1) (setq r (strcat r "0"))))) r)
函数库使用说明
应用包
技术支持
统计信息
函数库规模: 747 个
函数库类别: 52 种
上传记录
刷新
冀公网安备 13050302000400号