calc-eval-format.el

(defmacro calc-eval-format (expr-str &rest vars)
  (let ((expr (cl-gensym))
        (result (cl-gensym)))
    `(let ((case-fold-search nil))
       (setq ,expr ,expr-str)
       (cl-loop for sym in '(,@vars) by #'cl-cdddr
                for eq-sym in (cdr '(,@vars)) by #'cl-cdddr
                for val in (cddr '(,@vars)) by #'cl-cdddr
                do
                (unless (and (symbolp sym)
                             (numberp val)
                             (eq '= eq-sym))
                  (error "Wrong format of variables"))
                (setq ,expr (replace-regexp-in-string
                             (concat "\\<" (symbol-name sym) "\\>")
                             (number-to-string val)
                             ,expr t)))
       (setq ,result (calc-eval ,expr))
       (if (stringp ,result)
           (kill-new ,result)
         (if (listp ,result)
             (kill-new (cadr ,result))
           ,result)))))