用法
评论
建议
取 消
确 定
(defun vectra:template-eval (template params / r) (apply (quote strcat) (mapcar (function (lambda (e) (if (vl-consp e) (if (setq r (vectra:get params (car e))) (cond ((numberp r) (setq dig (cadr e)) (if (null dig) (setq dig 0) (setq dig (atoi dig))) (vectra:number-padding-last r dig)) (t (vl-princ-to-string r))) (strcat "{" (car e) "}")) e))) (vectra:template-parse template))))
函数库使用说明
应用包
技术支持
统计信息
函数库规模: 733 个
函数库类别: 51 种
上传记录
刷新
冀公网安备 13050302000400号