关于字体样式的高度

yxp

定义字体样式aa ，高度为15，如何用lisp改变这个高度？(tblsearch "style" "aa") 可以查到40号组码就是15 ，系统变量TEXTSIZE，是当前字体样式的高度。

需要解决的问题时：当这个字体样式设置了字高后，使用(command "text" ...)时会有不同回应。应该如何简单的解决？

ZZXXQQ

;设字高变量H，文字变量TXT，文字转角0，则
(IF (> (CDR (ASSOC 40 (TBLSEARCH "STYLE" (GETVAR "TEXTSTYLE")))) 0.0)
  (COMMAND "TEXT" PT 0 TXT)
  (COMMAND "TEXT" PT H 0 TXT)
)