[求助]：如何用VB实现晓东工具中的“写剪贴板”功能

lennie

代码已经写好了。但是出现问题了。用天正文字命令生成的文字
，如“时CRC的低位”，是中英文分开的。下面的程序写到剪贴板的是“CRC时的低位”。请高手找找原因。

2. 
   
3.   [FONT=courier new]
   
4.                 AppActivate "autocad 2002"
   
5.         On Error Resume Next
   
6.         Dim Sstext As AcadSelectionSet
   
7.         Dim FilterType(0) As Integer
   
8.         Dim FilterData(0) As Variant
   
9.         Dim TxtObj As AcadText
   
10.         Dim Tstr As String
    
11.         
    
12.         Set Sstext = AcadApp.ActiveDocument.SelectionSets.Add("ST")
    
13.             FilterType(0) = 0
    
14.             FilterData(0) = "Text"
    
15.             Sstext.SelectOnScreen FilterType, FilterData
    
16.         Form1.Show
    
17.         
    
18.         If Sstext.Count = 0 Then
    
19.             Form1.Show
    
20.             MsgBox "你没有选择文字，程序中止！", vbOKOnly, "文字："
    
21.             AcadApp.ActiveDocument.SelectionSets.Item("ST").Delete
    
22.             Exit Sub
    
23.         End If
    
24.         
    
25.         For Each TxtObj In Sstext
    
26.             Tstr = TxtObj.textString & Tstr
    
27.         Next
    
28.         Clipboard.Clear   ' 清除剪贴板。
    
29.         Clipboard.SetText Tstr ' 将文字放置在剪贴板上
    
30.         AcadApp.ActiveDocument.SelectionSets.Item("ST").Delete
    
31.         Form1.Show
    
32. 
    
33.   [/FONT]
    

<br />   [FONT=courier new]<br />                 AppActivate "autocad 2002"<br />         On Error Resume Next<br />         Dim Sstext As AcadSelectionSet<br />         Dim FilterType(0) As Integer<br />         Dim FilterData(0) As Variant<br />         Dim TxtObj As AcadText<br />         Dim Tstr As String<br />         <br />         Set Sstext = AcadApp.ActiveDocument.SelectionSets.Add("ST")<br />             FilterType(0) = 0<br />             FilterData(0) = "Text"<br />             Sstext.SelectOnScreen FilterType, FilterData<br />         Form1.Show<br />         <br />         If Sstext.Count = 0 Then<br />             Form1.Show<br />             MsgBox "你没有选择文字，程序中止！", vbOKOnly, "文字："<br />             AcadApp.ActiveDocument.SelectionSets.Item("ST").Delete<br />             Exit Sub<br />         End If<br />         <br />         For Each TxtObj In Sstext<br />             Tstr = TxtObj.textString & Tstr<br />         Next<br />         Clipboard.Clear   ' 清除剪贴板。<br />         Clipboard.SetText Tstr ' 将文字放置在剪贴板上<br />         AcadApp.ActiveDocument.SelectionSets.Item("ST").Delete<br />         Form1.Show<br /> <br />   [/FONT]<br />