发一个研究autocad字体有哪些字符的小代码

zzyong00

发一个研究AutoCAD字体有哪些字符的小代码，可能有不对的地方，请大家指正。
用法：1.设置你要测试的字体，在“字体样式”对话框设置，
2.
把以下代码放在vbaIDE里，运行。

1. Option Explicit
   
2. 
   
3. '测试字体中的特殊符号
   
4. Public Sub cs()
   
5. Dim tc1 As AcadAcCmColor, tc2 As AcadAcCmColor
   
6. 
   
7. Set tc1 = ThisDrawing.Application.GetInterfaceObject("Autocad.AcCmColor" & "." & Left(ThisDrawing.Application.Version, 2))
   
8. Set tc2 = ThisDrawing.Application.GetInterfaceObject("Autocad.AcCmColor" & "." & Left(ThisDrawing.Application.Version, 2))
   
9. 
   
10. tc1.ColorIndex = acCyan
    
11. tc2.ColorIndex = acRed
    
12. Dim objTxt As AcadText, V As String, Inspt(2) As Double
    
13. Dim i As Long, j As Long
    
14. Const 列数 = 5
    
15. Const 行距 = 20
    
16. 
    
17. ''以下为初步测试
    
18. For j = 1 To 999
    
19.     i = i + 1
    
20.     V = "%%%%" & CStr(j)
    
21.     Inspt(0) = (i - ((i - 1) \ 列数) * 列数) * 行距
    
22.     Inspt(1) = ((i - 1) \ 列数) * 行距
    
23.     Inspt(2) = 0
    
24.     Set objTxt = ThisDrawing.ModelSpace.AddText(V, Inspt, 3)
    
25.     objTxt.TrueColor = tc2
    
26. 
    
27.     V = "%%" & CStr(j)
    
28.     Inspt(0) = (i - ((i - 1) \ 列数) * 列数) * 行距
    
29.     Inspt(1) = ((i - 1) \ 列数) * 行距 - 行距 / 2
    
30.     Inspt(2) = 0
    
31.     Set objTxt = ThisDrawing.ModelSpace.AddText(V, Inspt, 3)
    
32.     objTxt.TrueColor = tc1
    
33. Next j
    
34. 
    
35. 
    
36. 
    
37. For j = Asc("A") To Asc("z")
    
38.     i = i + 1
    
39.     V = "%%%%" & Chr(j)
    
40.     Inspt(0) = (i - ((i - 1) \ 列数) * 列数) * 行距
    
41.     Inspt(1) = ((i - 1) \ 列数) * 行距
    
42.     Inspt(2) = 0
    
43.     Set objTxt = ThisDrawing.ModelSpace.AddText(V, Inspt, 3)
    
44.     objTxt.TrueColor = tc2
    
45.     V = "%%" & Chr(j)
    
46.     Inspt(0) = (i - ((i - 1) \ 列数) * 列数) * 行距
    
47.     Inspt(1) = ((i - 1) \ 列数) * 行距 - 行距 / 2
    
48.     Inspt(2) = 0
    
49.     Set objTxt = ThisDrawing.ModelSpace.AddText(V, Inspt, 3)
    
50.     objTxt.TrueColor = tc1
    
51. Next j
    
52. 
    
53. ThisDrawing.Application.ZoomExtents
    
54. 
    
55. End Sub
    

Option Explicit<br /> <br /> '测试字体中的特殊符号<br /> Public Sub cs()<br /> Dim tc1 As AcadAcCmColor, tc2 As AcadAcCmColor<br /> <br /> Set tc1 = ThisDrawing.Application.GetInterfaceObject("Autocad.AcCmColor" & "." & Left(ThisDrawing.Application.Version, 2))<br /> Set tc2 = ThisDrawing.Application.GetInterfaceObject("Autocad.AcCmColor" & "." & Left(ThisDrawing.Application.Version, 2))<br /> <br /> tc1.ColorIndex = acCyan<br /> tc2.ColorIndex = acRed<br /> Dim objTxt As AcadText, V As String, Inspt(2) As Double<br /> Dim i As Long, j As Long<br /> Const 列数 = 5<br /> Const 行距 = 20<br /> <br /> ''以下为初步测试<br /> For j = 1 To 999<br />     i = i + 1<br />     V = "%%%%" & CStr(j)<br />     Inspt(0) = (i - ((i - 1) \ 列数) * 列数) * 行距<br />     Inspt(1) = ((i - 1) \ 列数) * 行距<br />     Inspt(2) = 0<br />     Set objTxt = ThisDrawing.ModelSpace.AddText(V, Inspt, 3)<br />     objTxt.TrueColor = tc2<br /> <br />     V = "%%" & CStr(j)<br />     Inspt(0) = (i - ((i - 1) \ 列数) * 列数) * 行距<br />     Inspt(1) = ((i - 1) \ 列数) * 行距 - 行距 / 2<br />     Inspt(2) = 0<br />     Set objTxt = ThisDrawing.ModelSpace.AddText(V, Inspt, 3)<br />     objTxt.TrueColor = tc1<br /> Next j<br /> <br /> <br /> <br /> For j = Asc("A") To Asc("z")<br />     i = i + 1<br />     V = "%%%%" & Chr(j)<br />     Inspt(0) = (i - ((i - 1) \ 列数) * 列数) * 行距<br />     Inspt(1) = ((i - 1) \ 列数) * 行距<br />     Inspt(2) = 0<br />     Set objTxt = ThisDrawing.ModelSpace.AddText(V, Inspt, 3)<br />     objTxt.TrueColor = tc2<br />     V = "%%" & Chr(j)<br />     Inspt(0) = (i - ((i - 1) \ 列数) * 列数) * 行距<br />     Inspt(1) = ((i - 1) \ 列数) * 行距 - 行距 / 2<br />     Inspt(2) = 0<br />     Set objTxt = ThisDrawing.ModelSpace.AddText(V, Inspt, 3)<br />     objTxt.TrueColor = tc1<br /> Next j<br /> <br /> ThisDrawing.Application.ZoomExtents<br /> <br /> End Sub<br />

3.测试结果如图所示：


4.例如，当你想输入η时，在文字框里输入%%951就可以了。

Kye

顶一下阿勇老师，再请教一个有营养的问题，vb6在CAD中如何实现伸缩式窗体，类似QQ鼠标移动到隐藏边出来窗体，鼠标从窗体上移开，窗体隐藏到侧边

spp_wall

先要设置字体 能直接添加到现有字体么！

mikewolf2k

似乎是仅列出1-999号字符，并不是列出字体里支持的所有字符？截图只是后边的部分字符吧。编着玩玩还行，实用性并不大~

并州驴友

不错不错，学习一下，初入！

renhaitao_nice

1.这个好像识别不出来就是显示？号。
2.在mtext中不起作用，text中还行
3.刚开始是怎么知道这些符号都是%%开始的呢？

zzyong00

renhaitao_nice 发表于 2019-5-15 12:08
1.这个好像识别不出来就是显示？号。
2.在mtext中不起作用，text中还行
3.刚开始是怎么知道这些符号都是% ...

1.不是显示不出来，而是哪个编码没有对应的符号；
2.在mtext里，只要字体设置正确，也没问题；
3.这。。。