VBA如何将多行文字转为大小相同的单行文字

浪迹天涯追月 · 发表于 2015-1-12 15:43:00

多行文本击碎后  ，我需要它完美的和原图形重合，包括图层颜色都不变
问题1 ：  炸碎方法，  vba 如何调用explode 击碎多行文字？击碎后文字的定位点可能会变，调整定位点后，文字的位置会变
问题2 ：  删除重生方法，重新生成文字但它的宽度因子无法从原多行文字那里得到信息，有什么办法可以得到么  ？调整定位点后它的位置也是会变的，如何才能一模一样的？请高手出招啊。。。。。。。

n5y0mhk3e2t.jpg

本帖以下内容被隐藏保护；需要你回复后，才能看到！

游客，如果您要查看本帖隐藏内容请回复

zzyong00 · 发表于 2015-1-12 21:34:00

宽度因子不是width属性吗？
多测试一下以下两个属性，会有结果的
InsertionPoint
AttachmentPoint (mtext)/Alignment （text)

浪迹天涯追月 · 发表于 2015-1-14 08:36:00

谢谢支招，发帖前都已经测试好几天了....width是多行文本的宽度属性，并非构成多行文本的文字的宽度因子。有空接着测试吧先忙别的

zzyong00 · 发表于 2015-1-14 10:24:00

Public Sub ss()
Dim objMT As AcadMText, pnt(2) As Double
Set objMT = ThisDrawing.ModelSpace.AddMText(pnt, 1, "asdf")
Dim objTS As AcadTextStyle
Set objTS = ThisDrawing.TextStyles(objMT.StyleName)
Debug.Print "宽度因子:"; objTS.Width
End Sub