【特殊字符】[非文字字符的表示]譬如直径符号

Flyingdancing

∅63x4.7
像这种，直径符号在VBA里面怎么表示？直接复制是显示问号
单行文字里面可以正常显示，直接复制到CAD自带的查找框也无效
这只是一个例子。其他的一些符号也有这种情况
球帮助

wylong

单行文字设置textString参数值为"\U+2205直径值"
例子：

2. Sub Example_AddText()
   
3.     ' 该示例在模型空间中创建一个文字对象。
   
4. 
   
5.    Dim textObj As AcadText
   
6.     Dim textString As String
   
7.     Dim insertionPoint(0 To 2) As Double
   
8.     Dim height As Double
   
9.    
   
10.     ' 定义文字对象
    
11.     textString = "\U+220510"
    
12.     insertionPoint(0) = 2: insertionPoint(1) = 2: insertionPoint(2) = 0
    
13.     height = 0.5
    
14.    
    
15.     ' 在模型空间中创建文字对象
    
16.     Set textObj = ThisDrawing.ModelSpace.AddText(textString, insertionPoint, height)
    
17.     ZoomAll
    
18.    
    
19. End Sub

Sub Example_AddText()<br />     ' 该示例在模型空间中创建一个文字对象。<br /> <br />    Dim textObj As AcadText<br />     Dim textString As String<br />     Dim insertionPoint(0 To 2) As Double<br />     Dim height As Double<br />     <br />     ' 定义文字对象<br />     textString = "\U+220510"<br />     insertionPoint(0) = 2: insertionPoint(1) = 2: insertionPoint(2) = 0<br />     height = 0.5<br />     <br />     ' 在模型空间中创建文字对象<br />     Set textObj = ThisDrawing.ModelSpace.AddText(textString, insertionPoint, height)<br />     ZoomAll<br />     <br /> End Sub

多行文字设置text参数值为"%%c直径值"
例子：

2. Sub Example_AddMtext()
   
3.     ' 该示例在模型空间中创建多行文字对象。
   
4.    
   
5.    Dim MTextObj As AcadMText
   
6.     Dim corner(0 To 2) As Double
   
7.     Dim width As Double
   
8.     Dim text As String
   
9.     corner(0) = 0#: corner(1) = 10#: corner(2) = 0#
   
10.     width = 10
    
11.     text = "%%c10"
    
12. 
    
13.     ' 创建多行文字对象
    
14.     Set MTextObj = ThisDrawing.ModelSpace.AddMText(corner, width, text)
    
15.     ZoomAll
    
16.    
    
17. End Sub

Sub Example_AddMtext()<br />     ' 该示例在模型空间中创建多行文字对象。<br />     <br />    Dim MTextObj As AcadMText<br />     Dim corner(0 To 2) As Double<br />     Dim width As Double<br />     Dim text As String<br />     corner(0) = 0#: corner(1) = 10#: corner(2) = 0#<br />     width = 10<br />     text = "%%c10"<br /> <br />     ' 创建多行文字对象<br />     Set MTextObj = ThisDrawing.ModelSpace.AddMText(corner, width, text)<br />     ZoomAll<br />     <br /> End Sub