文字识别不出来该怎么解决?

triper

我在给CAD图加标注时,字体总是识别不出来(CAD图中显示为?),请问这是怎么回事,该怎么解决?


Dim Draw_Length_T As AcadText


Set Draw_Length_T = ThisDrawing.ModelSpace.AddText("基准线", FZ_Point, 5)

evaporated

字体问题吧。


换个字体应该就好了。

mccad

2. '设置字型
3. Function SetTtfTextStyle(TextStyleName As String, TTFName As String) As AcadTextStyle
4.        On Error Resume Next
5.        Set SetTtfTextStyle = ThisDrawing.TextStyles.Add(TextStyleName)
6.        SetTtfTextStyle.SetFont TTFName, False, False, 0, 0
7. End Function
8. ' 写文字
9. Function AddTextWithStyle(TextString As String, InsertionPoint As Variant, Height As Double, Alignment As Integer, TextStyleName As String)
10.        Dim Text As AcadText
11.        Text = ThisDrawing.ModelSpace.AddText(TextString, InsertionPoint, Height)
12.        Text.Alignment = Alignment
13.        Text.TextAlignmentPoint = InsertionPoint
14.        Text.StyleName = TextStyleName
15. End Function

'设置字型 Function SetTtfTextStyle(TextStyleName As String, TTFName As String) As AcadTextStyle        On Error Resume Next        Set SetTtfTextStyle = ThisDrawing.TextStyles.Add(TextStyleName)        SetTtfTextStyle.SetFont TTFName, False, False, 0, 0 End Function ' 写文字 Function AddTextWithStyle(TextString As String, InsertionPoint As Variant, Height As Double, Alignment As Integer, TextStyleName As String)        Dim Text As AcadText        Text = ThisDrawing.ModelSpace.AddText(TextString, InsertionPoint, Height)        Text.Alignment = Alignment        Text.TextAlignmentPoint = InsertionPoint        Text.StyleName = TextStyleName End Function

fanny_6

好的，搞定了

yj821005

function SetTtfTextStyle(TextStyleName As String, TTFName As String) As AcadTextStyle
    On Error Resume Next
    Set SetTtfTextStyle = ThisDrawing.TextStyles.Add(TextStyleName)
    SetTtfTextStyle.SetFont TTFName, False, False, 0, 0
End Function
请问明总：这里面的TTFName如果是“仿宋_GB2312”之类的Windows系列的字体的话，用TTFName="仿宋_GB2312"就可以了，但是要设置成CAD特有的字体，如“simplex9.shx”用TTFName="simplex9.shx"怎么好像就运行不了啊！急死了，望各位帮忙解决，谢谢！

yj821005

各位大侠请帮帮忙吧！谢谢！

yefeiwolaile

在设置acadtextstyle 时用这个呀！

object.BigFontFile