在CAD软件中有时需要对标记的字高进行修改，但是CAD软件中自带的方法不够快捷方便，些时，可以使用Lisp函数方法快速方便地修改。CAD配合南方Cass软件改文字高度，详细程序见附件。
(defun c:gh() (setvar "blipmode" 0) (setvar "cmdecho" 0) (command "zoom" "e") (setq pt1 (getvar "extmin") pt2 (getvar "extmax") ) (setq ss1 (ssget "C" pt1 pt2)) (setq ss1 (ssget "P" '((8 . "*TEXT,*MARK1")))) (setq ss1 (ssget "P" '((0 . "TEXT")))) (setq count 0) (setq emax (sslength ss1)) (while (< count emax) (setq en (ssname ss1 count) ed (entget en) ss (assoc 40 ed) s (cdr (assoc 40 ed)) ) (setq ed (subst (cons 40 0.8) ss ed)) (entmod ed) (setq count (+ count 1)) ) (princ "\n注记处理完毕！") (princ) )
本文来自于广州地理信息网:http://www.gzgis.com
