[VBA程序]：有没有办法测出acadText 对象中String字符串的宽度?

dyheng · 发表于 2005-4-11 18:25:21

您需要登录才可以下载或查看，没有账号？立即注册

×

我在做一个高程标注的VBA程序,现欲实现根据高程数字总宽度画出数字下面底线,要求线长度和数字宽度相匹配,能否不用其它变通手段,而用通过测量字符宽度进而得到线长度的方法实现?如何实现?望指教!

mikewolf2k · 发表于 2005-4-11 20:00:25

object.GetBoundingBox MinPoint, MaxPoint

dyheng · 发表于 2005-4-12 09:57:51

谢2楼楼主了，衷心感谢你的指教！

z954134 · 发表于 2005-4-12 10:40:11

又学了一招

dyheng · 发表于 2005-4-12 14:30:32

不过好像又出错了，我在块中测量objText对象中的String字符串长度时，MaxPoint返回的X、Y、Z都是0，这是为什么？
我在用object.GetBoundingBox MinPoint, MaxPoint 函数时还没有把块插进图形中，这是原因吗？

mikewolf2k · 发表于 2005-4-12 19:03:35

看你的object是什么，返回的是左下角和右上角坐标。看看是不是你的object不对？

dyheng · 发表于 2005-4-12 20:52:58

object 是AcadText，是在块插入图形之前测量MaxPoint的

雪山飞狐(lzh) · 发表于 2005-4-12 21:09:33

MinPoint呢？

dyheng · 发表于 2005-4-13 09:03:54

我只用MaxPoint ,所以没有测MinPoint,一会儿测一下看看!

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