[求助]：整数加减 新手！请多多指教！

cjrun

(defun c:zj (/ zj_data zj_num zj_num_int zj_new_num)
  (setq
    zj_data    (entget (car (entsel "\n Pick object:")))
    zj_num     (assoc 1 zj_data)
    zj_num_int (atoi (cdr zj_num))
  )
  (if (null zj_sure)
    (setq zj_sure_temp "A")
  )
  (princ "\n&frac14;&otilde;(S)/&frac14;&Oacute;(A) <")
  (princ zj_sure_temp)
  (princ ">")
  (setq zj_sure (getstring))
  (if (or (= zj_sure nil) (= zj_sure ""))
    (setq zj_sure zj_sure_temp)
    (setq zj_sure_temp zj_sure)
  )
  (if (null zj_num_input)
    (setq zj_num_temp 1)
  )
  (princ "\n&Ocirc;&ouml;&Aacute;&iquest; <")
  (princ zj_num_temp)
  (princ ">:")
  (setq zj_num_input (getint))
  (if (= zj_num_input nil)
    (setq zj_num_input zj_num_temp)
    (setq zj_num_temp zj_num_input)
  )
  (cond ( (or (= "s" zj_sure) (= "S" zj_sure))
    (setq zj_new_num (cons 1 (itoa (- zj_num_int zj_num_input)))))
        ( (or (= "a" zj_sure) (= "A" zj_sure))
    (setq zj_new_num (cons 1 (itoa (+ zj_num_int zj_num_input)))))
  )
  (setq zj_data (subst zj_new_num zj_num zj_data))
  (entmod zj_data)
  (princ)
)