获取注释性文字样式的真实的文字高度

marting

1. (setq adoc (vla-get-activedocument (vlax-get-acad-object))
   
2.       textsty (vla-get-textstyles adoc)
   
3.       annot (vla-item textsty "annotative") ; your annotative text style name
   
4.       h (vla-get-height annot)
   
5.       text_h (/ h (getvar 'cannoscalevalue))
   
6. )
   

(setq adoc (vla-get-activedocument (vlax-get-acad-object))<br />       textsty (vla-get-textstyles adoc)<br />       annot (vla-item textsty "annotative") ; your annotative text style name<br />       h (vla-get-height annot)<br />       text_h (/ h (getvar 'cannoscalevalue))<br /> )<br />