怎么给添加的多行文字的字体加黑？

dazhangyu

我在添加多行文字时，想给文字加黑显示（也就是文字编辑中的B功能：粗体显示），可是用了textfontstyle方法也不好使，试了其它方法比如linewidth也不行，我现在已经是
哪位高手能帮兄弟一把？不胜感激！

gzy

是不是“黑体”啊？

mccad

他是说粗体，而不是黑体。

2. Sub TextB()
   
3.     Dim ent As AcadEntity
   
4.     Dim pnt As Variant
   
5.     On Error Resume Next
   
6.     Do
   
7.         ThisDrawing.Utility.GetEntity ent, pnt, "选择多行文字："
   
8.         Dim txt As AcadMText
   
9.         Set txt = ent
   
10.         If Err Then
    
11.             Err.Clear
    
12.         Else
    
13.             Exit Do
    
14.         End If
    
15.     Loop
    
16.     Dim str As String
    
17.     str = txt.TextString
    
18.     '加粗，其中SimSun为宋体，b1为加粗
    
19.     str = "{\fSimSun|b1;" & str & "}"
    
20.     txt.TextString = str
    
21.     ThisDrawing.Regen acActiveViewport
    
22. End Sub
    

Sub TextB()<br />     Dim ent As AcadEntity<br />     Dim pnt As Variant<br />     On Error Resume Next<br />     Do<br />         ThisDrawing.Utility.GetEntity ent, pnt, "选择多行文字："<br />         Dim txt As AcadMText<br />         Set txt = ent<br />         If Err Then<br />             Err.Clear<br />         Else<br />             Exit Do<br />         End If<br />     Loop<br />     Dim str As String<br />     str = txt.TextString<br />     '加粗，其中SimSun为宋体，b1为加粗<br />     str = "{\fSimSun|b1;" & str & "}"<br />     txt.TextString = str<br />     ThisDrawing.Regen acActiveViewport<br /> End Sub<br />

efan2000

也可以使用TextStyle对象的SetFont方法给文字加粗，它将对所有设置该文字样式的文字生效。
语法：RetVal = object.SetFont(Typeface, Bold, Italic, CharSet, PitchAndFamily)
例子：Sub Example_SetFont()
    ' This example finds the font information for the active text style.
    ' It then changes the font to bold.
   
    Dim typeFace As String
    Dim Bold As Boolean
    Dim Italic As Boolean
    Dim charSet As Long
    Dim PitchandFamily As Long
   
    ThisDrawing.ActiveTextStyle.GetFont typeFace, Bold, Italic, charSet, PitchandFamily
   
    MsgBox "The current text style has the following font properties:" & vbCrLf _
            & "Typeface: " & typeFace & vbCrLf _
            & "Bold: " & Bold & vbCrLf _
            & "Italic: " & Italic & vbCrLf _
            & "Character set: " & charSet & vbCrLf _
            & "itch and Family: " & PitchandFamily
            
    ' Change the bold property
    Bold = Not Bold
   
    ThisDrawing.ActiveTextStyle.SetFont typeFace, Bold, Italic, charSet, PitchandFamily
    MsgBox "The current text style has the following font properties:" & vbCrLf _
            & "Typeface: " & typeFace & vbCrLf _
            & "Bold: " & Bold & vbCrLf _
            & "Italic: " & Italic & vbCrLf _
            & "Character set: " & charSet & vbCrLf _
            & "itch and Family: " & PitchandFamily
            
    ' Reset the font
    Bold = Not Bold
    ThisDrawing.ActiveTextStyle.SetFont typeFace, Bold, Italic, charSet, PitchandFamily

End Sub

dazhangyu

谢谢楼上二位的帮助，可是这两种方法我都试过了，可还是没有得到我想要的效果，这是不是跟我用的大字体有关呢？

dazhangyu

其实我觉得工程师的建议更适合我的想法，因为我本身也用了格式化参数\w0.7，但是在有两个参数设置时是这样的：\w值\h值x后面加str，跟你的用法有所不同，更不幸的是\b1在我这儿没有任何作用，看不到效果，我用的是ACAD2000，这是原因吗？
版主的高招我也试了，也无济于事，为什么？

mccad

请注意加粗只对于TTF字体有效，对SHX字体是无效的。因为SHX字体没有加粗功能。
所以使用
str = "{\fSimSun|b1;" & str & "}"
方法中字体和加粗代码必须在一起使用，而不能拆分。

dazhangyu

哦，原来如此，看来我这个想法没法实现了？
谢谢噢：) ........：(