[求助]：如何提取实体属性？

gxynd

如何提取实体属性？在进行autolisp编写过程中遇到一个麻烦就是如何提取实体属性，比如图字体的高度，字体的宽度，数字的多少，直线的长度，坐标好象较为容易。
在把EXCEL中的表格粘贴到CAD中时，会发现表格比例会随视口而变化，故而我想编一个程序，首先获得字体的高度，然后进行计算比值（如图中显示字的高度为h=1.23333345，现在我想要使我的表格的字为2.5号，那么我就计算缩放比值：2.5/h），然后选择要进行缩放的实体进行缩放就可以啦，所以希望兄台能够指点一二，帮我解决这个问题，望回，急！

lsjjm

利用DXF码提取，例如文本字高 th：
(setq ent (car (entsel)))
(setq th (cdr (assoc 40 (entget ent))))
或使用VLISP函数(vlax-get-property object 属性名)  或(vla-get-属性名 object)
(vl0load-com)
(setq obj (vlax-ename->vla-object ent))
(setq th (val-get-texthight obj))
。。。

popsun

老大，有没有vlisp方面的教程可以参考啊？英文的参考看不动耶。