qqw 发表于 2008-1-26 20:22:00

怎样获取标注文字的高度

<p></p><p></p><p>怎样获取标注文字的高度</p>

楚留香 发表于 2008-1-27 08:58:00

(defun hh (/ dim wzgd bl wzh)<br/>&nbsp; (setq dim (vlax-ename-&gt;vla-object (car (entsel))))<br/>&nbsp;( setq wzgd (vla-get-textheight dim));得到标注样式的文字高度<br/>&nbsp; (setq&nbsp; bl&nbsp; (vla-get-scalefactor dim));得到标注的调整比例<br/>&nbsp; (setq wzh (* wzgd bl))&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; ;得到真正的文字高度<br/>)

qqw 发表于 2008-1-27 09:11:00

真是多谢,先试下看

zzwpress 发表于 2015-2-20 19:57:52

程式有问题呀
错误: no function definition: VLAX-ENAME->VLA-OBJECT

firstinti 发表于 2015-2-22 15:17:29

程序前添加(vl-load-com)

mapple666 发表于 2018-8-10 07:56:03

好定西，顶下

852456 发表于 2018-8-10 23:17:51

好多大大啊

atone 发表于 2024-2-14 18:05:25

好厉害，多谢
页: [1]
查看完整版本: 怎样获取标注文字的高度