求助关于 dimtxt 取值变小问题

669423907

取自 楚留香
http://bbs.mjtd.com/forum.php?mod=viewthread&tid=65615
(defun c:q3 (/ dim wzgd bl wzh)
  (setq dim (vlax-ename->vla-object (car (entsel))))
  (setq wzgd (vla-get-textheight dim));得到标注样式的文字高度
  (setq  bl  (vla-get-scalefactor dim));得到标注的调整比例
  (setq wzh (* wzgd bl))                ;得到真正的文字高度
(setvar "dimtxt" wzh)
)

为什么我用程序取得的值，再标注，标注的字高比取值的小？

maiko

真正的文字高度是 Vla-get-TextHeight吧