填写的中文字成“？”号，怎么解决？

qwh923820

编写的VBA程序，在CAD宏里面运行很正常，现在想用vb6做个界面，就用VB6改了一下，代码基本没怎么变，但是输出的中文字全变成了“？？”，英文或数字不受影响，是什么导致的？？自己逐步运行找原因，逐步运行时候本地窗口里面的文字也是对的，但是输出就是“？”。
acadDoc.ModelSpace.AddText 这样输出了问题
x.TextPrefix = "偏" 这样输出没问题
acadDoc 定义的是object，拾取的对象是cad文件
Set acadDoc = acadApp.Documents(n - 1)

x 定义的是object
Set x = acadDoc.ModelSpace.AddDimAligned


求问大神，哪里出来问题？该怎么改？

zzyong00

cad用单线字体好一点，字多也速度快
'创建新的字体样式
Public Sub NewTextStyle2()   '创建新的字体样式，gbenor.SHX gbcbig.SHX 字体
    On Error GoTo err1
    Dim lkxtextstyle As AcadTextStyle
    Set lkxtextstyle = ThisDrawing.TextStyles.Add("ZZY_2")
    With lkxtextstyle
        .fontFile = "gbenor.SHX"
        .BigFontFile = "gbcbig.SHX"
        .Width = 0.85
    End With
    Exit Sub
err1:
    Err.Clear
    Resume Next
End Sub

zzyong00

是不是“文字样式”没设置中文

qwh923820

zzyong00 发表于 2018-8-1 12:01
是不是“文字样式”没设置中文

是的，该怎么设置啊？？

mikewolf2k

qwh923820 发表于 2018-8-1 13:57
是的，该怎么设置啊？？

设置支持中文的字体啊

qwh923820

zzyong00 发表于 2018-8-1 12:01
是不是“文字样式”没设置中文

都不行，

2. lujin = acadDoc.ActiveTextStyle.fontFile
   
3. lujin = SplitLast(lujin, "")
   
4. acadDoc.ActiveTextStyle = lujin & "gbcbig.shx"
   
5. 
   
6. 
   
7. 'Set ys = acadDoc.ActiveDimStyle
   
8. 'Set newText = acadDoc.TextStyles
   
9. 'Stop
   
10. 'newText.Item(1).Name = "宋体"
    
11. 
    
12. 
    
13. Public Function SplitLast(ByVal S, ByVal cr)
    
14. '去掉符号后面的字符串
    
15. Dim i&, j&
    
16. i = Len(S)
    
17. For j = i To 1 Step -1
    
18.     If cr = Mid(S, j, 1) Then
    
19.         SplitLast = Mid(S, 1, j)
    
20.         Exit Function
    
21.     End If
    
22. Next j
    
23. End Function
    

lujin = acadDoc.ActiveTextStyle.fontFile<br /> lujin = SplitLast(lujin, "")<br /> acadDoc.ActiveTextStyle = lujin & "gbcbig.shx"<br /> <br /> <br /> 'Set ys = acadDoc.ActiveDimStyle<br /> 'Set newText = acadDoc.TextStyles<br /> 'Stop<br /> 'newText.Item(1).Name = "宋体"<br /> <br /> <br /> Public Function SplitLast(ByVal S, ByVal cr)<br /> '去掉符号后面的字符串<br /> Dim i&, j&<br /> i = Len(S)<br /> For j = i To 1 Step -1<br />     If cr = Mid(S, j, 1) Then<br />         SplitLast = Mid(S, 1, j)<br />         Exit Function<br />     End If<br /> Next j<br /> End Function<br />

qwh923820

mikewolf2k 发表于 2018-8-1 14:32
设置支持中文的字体啊

求代码！！，我试了几种方法都不行。
手动设置我是知道的。如果CAD没打开的情况下运行程序是没有问题，但是假如有CAD文件打开着，我不关闭原来的CAD，重新新建CAD文件开始画图，文字样式就是这样的，而且我不知道该怎么改？？

mikewolf2k

修改这个textstyle。
模板文件里面的当前textstyle就是这样。要是不想代码改，就去改模板的当前textstyle，换成支持中文的。

qwh923820

mikewolf2k 发表于 2018-8-1 16:17
修改这个textstyle。
模板文件里面的当前textstyle就是这样。要是不想代码改，就去改模板的当前textstyle ...

已解决，发部分源码在这里，希望给不会的一点参考

2. Public Sub LoadAcadAPP()
   
3. Dim n&, newText As Object
   
4. Dim ys As Object
   
5. Dim typeFace$,lujin$,SavetypeFace$
   
6. Dim Bold As Boolean
   
7. Dim Italic As Boolean
   
8. Dim charSet As Long
   
9. Dim PitchandFamily As Long
   
10. 
    
11. On Error Resume Next
    
12. Set acadApp = GetObject(, "AutoCAD.Application")
    
13. If Err Then
    
14.     Err.Clear
    
15.     Set acadApp = CreateObject("AutoCAD.Application")
    
16.     If Err Then End
    
17. Else
    
18.     Set acadDoc = acadApp.Documents.Add
    
19. End If
    
20. acadApp.Visible = True
    
21. acadApp.WindowState = acMax
    
22. n = acadApp.Documents.Count
    
23. Set acadDoc = acadApp.Documents(n - 1)
    
24. 
    
25. '以下为第一种方法
    
26. lujin = acadDoc.ActiveTextStyle.fontFile
    
27. lujin = SplitLast(lujin, "")
    
28. lujin = Replace(lujin, "", "/")
    
29. If acadDoc.ActiveTextStyle.BigFontFile = "" Then
    
30.     acadDoc.ActiveTextStyle.BigFontFile = lujin & "gbcbig.shx"
    
31. End If
    
32. 
    
33. '以下为第二种方法
    
34. acadDoc.ActiveTextStyle.GetFont typeFace, Bold, Italic, charSet, PitchandFamily
    
35. If typeFace <> "宋体" Then typeFace = "宋体"
    
36. acadDoc.ActiveTextStyle.SetFont typeFace, Bold, Italic, charSet, PitchandFamily
    
37. acadDoc.Regen acActiveViewport
    
38. 
    
39. End Sub
    
40. Public Function SplitLast(ByVal S, ByVal cr)
    
41. '去掉符号后面的字符串
    
42. Dim i&, j&
    
43. i = Len(S)
    
44. For j = i To 1 Step -1
    
45.     If cr = Mid(S, j, 1) Then
    
46.         SplitLast = Mid(S, 1, j)
    
47.         Exit Function
    
48.     End If
    
49. Next j
    
50. End Function

Public Sub LoadAcadAPP()<br /> Dim n&, newText As Object<br /> Dim ys As Object<br /> Dim typeFace$,lujin$,SavetypeFace$<br /> Dim Bold As Boolean<br /> Dim Italic As Boolean<br /> Dim charSet As Long<br /> Dim PitchandFamily As Long<br /> <br /> On Error Resume Next<br /> Set acadApp = GetObject(, "AutoCAD.Application")<br /> If Err Then<br />     Err.Clear<br />     Set acadApp = CreateObject("AutoCAD.Application")<br />     If Err Then End<br /> Else<br />     Set acadDoc = acadApp.Documents.Add<br /> End If<br /> acadApp.Visible = True<br /> acadApp.WindowState = acMax<br /> n = acadApp.Documents.Count<br /> Set acadDoc = acadApp.Documents(n - 1)<br /> <br /> '以下为第一种方法<br /> lujin = acadDoc.ActiveTextStyle.fontFile<br /> lujin = SplitLast(lujin, "")<br /> lujin = Replace(lujin, "", "/")<br /> If acadDoc.ActiveTextStyle.BigFontFile = "" Then<br />     acadDoc.ActiveTextStyle.BigFontFile = lujin & "gbcbig.shx"<br /> End If<br /> <br /> '以下为第二种方法<br /> acadDoc.ActiveTextStyle.GetFont typeFace, Bold, Italic, charSet, PitchandFamily<br /> If typeFace <> "宋体" Then typeFace = "宋体"<br /> acadDoc.ActiveTextStyle.SetFont typeFace, Bold, Italic, charSet, PitchandFamily<br /> acadDoc.Regen acActiveViewport<br /> <br /> End Sub<br /> Public Function SplitLast(ByVal S, ByVal cr)<br /> '去掉符号后面的字符串<br /> Dim i&, j&<br /> i = Len(S)<br /> For j = i To 1 Step -1<br />     If cr = Mid(S, j, 1) Then<br />         SplitLast = Mid(S, 1, j)<br />         Exit Function<br />     End If<br /> Next j<br /> End Function

mikewolf2k

qwh923820 发表于 2018-8-1 16:50
已解决，发部分源码在这里，希望给不会的一点参考

这个其实是一种方法，都是改text style。
另外不建议改activetextstyle，这样连改了哪个都不知道。建议修改自己要的textstyle， 把文字的style改成那个textstyle，不要去改当前激活的，以免影响其他。