幽蓝 发表于 2008-2-25 22:48:00

[求助]VBA中怎么设置某个多行文字的宽度比例

<p>如下段程序</p><p>'添加文字<br/>Dim Mtextobj As AcadMText<br/>Dim width As Double<br/>Dim textString As String<br/>Dim saveasname As String<br/>Dim pinsert(0 To 2) As Double<br/>pinsert(0) = 234<br/>pinsert(1) = 27<br/>pinsert(2) = 0<br/>width = 10<br/>textString = XH&nbsp;&nbsp;&nbsp; '写产品型号<br/>Set Mtextobj = acadDocs.Item(0).ModelSpace.AddMText(pinsert, width, textString)&nbsp;&nbsp;&nbsp; '在模型空间中填写文字对象<br/>Mtextobj.Height = 2</p><p>Mtextobj.<font color="#f73809">???&nbsp;</font> '这句应该设该文字的宽度比例(如0.7)以便填写表格,可是我不会了,特向大家求教.</p><p>谢谢</p><p>&nbsp;</p>

王咣生 发表于 2008-2-26 09:12:00

<p>先建立一个TextStyle对象,设置Width属性(即宽度比例),</p><p>然后将Mtextobj.StyleName = 新建的TextStyle名称.</p>

幽蓝 发表于 2008-2-28 21:51:00

非常感谢，我去试试，今后我也要多参加交流。
页: [1]
查看完整版本: [求助]VBA中怎么设置某个多行文字的宽度比例