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

Dim myTxtobj As AcadTextStyle
    Set mytxt = ThisDrawing.TextStyles.Add("mytxt") '添加mytxt样式
    mytxt.f '设置字体文件为仿宋体
    mytxt.Height = 0 '字高
    mytxt.width = 0.7 '宽高比
    mytxt.ObliqueAngle = ThisDrawing.Utility.AngleToReal(0, 0) '倾斜角度（需转为弧度）
    ThisDrawing.ActiveTextStyle = mytxt '将当前文字样式设置为mytxt
   Set txtobj = ThisDrawing.ModelSpace.AddMText(p, 1400, "{做到老，学到老}\P" & "此心自光明正大，过人远矣")
    txtobj.LineSpacingFactor = 2 '指定行间距
    txtobj.AttachmentPoint = 3 '右对齐（1为左对齐，2为居中）



从VBA初级教程上摘录的，希望有所帮助。
页: [1]
查看完整版本: [VBA]多行文字的行距如何定义