CAD文本高度如何调整？

andyhua

(defun   c:11        ()
  (setq cmdlines (getint "行数:"))
  (vl-load-com)
  (vla-put-DockedVisibleLines (vla-get-display (vla-get-Preferences (vlax-get-acad-object))) cmdlines)
)

上面的代码，亲测过，在CAD2012中，无效。