CAD LISP批量修改字高？

1、(DEFUN C:CHHTEXT () (princ "\nselect object:") (setq s (ssget)) (setq hig (getreal "\n输入新字高<2>:")) (if (= hig nil) (setq hig 3.0)) (setq h40 (cons 40 hig)) (setq n (sslength s)) (setq k 0 ) (while (< k n)       (setq name (ssname s k))      (setq a (entget name))      (setq b (assoc '0 a))      (setq b (cdr b))      (if (= b "TEXT")(progn        (setq h (assoc '40 a))        (setq a (subst h40 h a))        (entmod a)        ))      (setq k (+ k 1)) ))

2、文本后缀名 .LSP结尾 之后拖拽到cad中

3、敲命令CHHTEXT 选择要修改的文字，输入字高就可以了