请问下版主，帮忙看下，下面这段代码哪里出问题，谢谢

gys2010

;;修改文字高度
(defun c:KT (/ SS TXSIZE N INDEX ENT TYPE OLDSIZE NEWSIZE ENT1) ; chang text height
  (prinC "修改文字高度")
  (setq SS (SSGET)
        TXSIZE (GETDIST "\n 输入文字的新高度:")
        N (SSLENGTH SS)
        INDEX 0
  )
  (REPEAT N
     (setq ENT (ENTGET (SSNAME SS INDEX))
           INDEX (+ 1 INDEX)
           TYPE (ASSOC 0 ENT)
     )
        (IF (= "TEXT" (CDR TYPE))
            (PROGN
               (setq OLDSIZE (ASSOC 40 ENT)
                     NEWSIZE (CONS (CAR OLDSIZE) TXSIZE)
                     ENT1 (SUBST NEWSIZE OLDSIZE ENT)
               )
               (ENTMOD ENT1)
            )
        )
   )
   (PRINC)
)

Andyhon

(CONS (CAR OLDSIZE) TXSIZE)
改==>
(CONS 40 TXSIZE)