社区 › AutoLISP/Visual LISP 编程技术 › 请问下版主，帮忙看下，下面这段代码哪里出问题，谢谢

gys2010 发表于 2014-12-15 12:33:23

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

本帖最后由 Gu_xl 于 2015-8-20 13:51 编辑

;;修改文字高度
(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 发表于 2014-12-15 13:14:33

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

查看完整版本: 请问下版主，帮忙看下，下面这段代码哪里出问题，谢谢