社区 › VB › 如何加粗中文多行文字？

黄玉宏 发表于 2009-6-1 23:58:00

如何加粗中文多行文字？

'以下创建文字样式
Select Case Combo1.text
Case "宋体"
Set mytxt = AcadDoc.TextStyles.Add("宋体")
mytxt.SetFont "宋体", False, False, 0, 0
Case "仿宋"
Set mytxt = AcadDoc.TextStyles.Add("仿宋")
mytxt.fontFile = "c:\windows\fonts\simfang.ttf"
Case "楷体"
Set mytxt = AcadDoc.TextStyles.Add("楷体")
mytxt.fontFile = "c:\windows\fonts\simkai.ttf"
Case "黑体"
Set mytxt = AcadDoc.TextStyles.Add("黑体")
mytxt.fontFile = "c:\windows\fonts\simhei.ttf"
Case "英文"
Set mytxt = AcadDoc.TextStyles.Add("英文")   'Times New Roman字体
mytxt.fontFile = "c:\windows\fonts\TIMES.TTF"
End Select
AcadDoc.ActiveTextStyle = mytxt
如上内容：
1、宋体可以用SetFont方法并加粗，但是仿宋就不行？请帮助解决“仿宋”用SetFont方法处理并加粗！
2、多行文字能否不通过文字样式直接修改其为加粗？在CAD2006模型空间直接写多行文字时其文字编辑器中能直接修改如：加粗、倾斜、宽度比例等。
2、单行文字能否加粗？
谢谢各位！
黄玉宏   二~~九年六月一日

ddx_2002 发表于 2009-6-3 14:16:00

'采用如下代码来生成文字并控制文字外观
Sub 宏1()
    '计算机：DX作者：Administrator
    '2009年6月3日 14时06分07秒
    '
'
    Dim MTextObj As AcadMText
    Dim Corner(0 To 2) As Double
    Dim Width As Double
    Dim Text As String
    '定义多行文字的参数
    Corner(0) = 1191.18495933909: Corner(1) = 1312.41921826727: Corner(2) = 0
    Width = 107.34082610751
    Text = "{\fFangSong_GB2312|b1|i0|c134|p49;\L\O仿宋体}"    '\f后便跟的是你要采用的字体名称|b1表示加粗，b0表示不加粗|i1表示斜体，i0表示不斜|；\L\O表示下划线和上划线，去掉则没有
    Set MTextObj = ThisDrawing.ModelSpace.AddMText(Corner, Width, Text)
    MTextObj.Rotation = 0
    MTextObj.Height = 2.5
    MTextObj.AttachmentPoint = acAttachmentPointTopLeft
    MTextObj.InsertionPoint = Corner
    Set MTextObj = Nothing
End Sub
'请测试

黄玉宏 发表于 2009-6-3 17:41:00

不用测试肯定成功，这是用董兴的CAD宏录制器录制的代码(在此先感谢董工！)，关键是里面的：|c134|p49;代表什么意思？好像没什么用！
      我在编制“单行或多行弧形文字”程序时遇到这个问题，需要对多行文字加粗！想使用多行文字属性解决，找不到。单行文字能否加粗？如能怎样加粗？
       非常感谢！我的QQ：653194278
      黄玉宏      二~~九年六月三日

ddx_2002 发表于 2009-6-4 22:32:00

（b|i|c|p分别表示：粗＼斜＼字符集＼字体间距），建议你还是用多行文字吧，能控制的东西多点，单行文字难加粗啊，这里有较详细的介绍，如果你要是编写“单行或多行弧形文字”程序建议你在碰到单行文字时提取其内容再把它换成多行文字重新输出然后再控制格式比较好，个人建议。

查看完整版本: 如何加粗中文多行文字？