dchlmz 发表于 2006-5-8 17:59:00

[VBA]多行文字的行距如何定义

使用VBA，多行文字的行距如何定义？

xinghesnak 发表于 2006-5-9 09:08:00

LineSpacingFactor 属性

dchlmz 发表于 2006-5-9 09:27:00

谢谢，已经解决。刚开始设了1，结果没变，以为错了。

yxh1202 发表于 2010-6-7 10:44:00

<p><font face="Verdana">Dim myTxtobj As AcadTextStyle<br/>&nbsp;&nbsp;&nbsp; Set mytxt = ThisDrawing.TextStyles.Add("mytxt") '添加mytxt样式<br/>&nbsp;&nbsp;&nbsp; mytxt.f '设置字体文件为仿宋体<br/>&nbsp;&nbsp;&nbsp; mytxt.Height = 0 '字高<br/>&nbsp;&nbsp;&nbsp; mytxt.width = 0.7 '宽高比<br/>&nbsp;&nbsp;&nbsp; mytxt.ObliqueAngle = ThisDrawing.Utility.AngleToReal(0, 0) '倾斜角度（需转为弧度）<br/>&nbsp;&nbsp;&nbsp; ThisDrawing.ActiveTextStyle = mytxt '将当前文字样式设置为mytxt<br/>&nbsp;&nbsp;&nbsp;Set txtobj = ThisDrawing.ModelSpace.AddMText(p, 1400, "{做到老，学到老}\P" &amp; "此心自光明正大，过人远矣")<br/>&nbsp;&nbsp;&nbsp; <font style="BACKGROUND-COLOR: #ff9900">txtobj.LineSpacingFactor = 2 '指定行间距<br/></font>&nbsp;&nbsp;&nbsp; txtobj.AttachmentPoint = 3 '右对齐（1为左对齐，2为居中）</font></p>
<p>&nbsp;</p>
<p>&nbsp;</p>
<p>&nbsp;</p>
<p>从VBA初级教程上摘录的，希望有所帮助。</p>
页: [1]
查看完整版本: [VBA]多行文字的行距如何定义