怎样获取标注文字的高度

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

怎样获取标注文字的高度

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

(defun hh (/ 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)) ;得到真正的文字高度
)

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

真是多谢,先试下看

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

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

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

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

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

好定西，顶下

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

好多大大啊

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

好厉害，多谢

账号		自动登录	找回密码
密码			注册

怎样获取标注文字的高度

点评