请问下这段代码哪出错了

aliu22

程序的功能是先选取一串字符串,这字符串中间用"-"隔开,然后比较隔开的各数字的大小.但不能运行请问哪有问题
(defun c:test (/ en txt backtxt)
  (setq en (entsel "选择text或mtext文本"))
  (setq txt (cdr (assoc 1 (entget (car en)))))
  (setq backtxt (T-str (txt)))
  (princ (backtxt))
)
(defun T-str (tt / k tr_k nn)
  (setq        nn   (strlen tt)
        k    0
        tr_k ""
  )
  (while (<= k nn)
    (setq tr_kn (substr tt (setq k (+ k 1)) 1))
    (if        (or (= tr_kn "-") (= tr_kn "－"))
      (setq tr_k (strcat tr_k " "))
      (setq tr_k (strcat tr_k tr_kn))
    )
  )
  (eval (cons 'max (read (strcat "(" tr_k ")"))))
)

taner

(SETVAR "CMDECHO" 0) 和(SETVAR "CMDECHO" 1),分別去運行一段程序,比較命令行裏的東東,你就知道差異了.