[求助]关于修改标注文字的问题

'修改指定文件的标注文字
Private Sub OverrideDimeText(ByVal ParDwgFile As String, ByVal ParNewValue As String)
Dim strResult As String    
Dim tmpAcadDoc As AcadDocument        
Dim Obj As AcadEntity    
Dim oDim As AcadDimension        
Set tmpAcadDoc = OpenCADDoc(ParDwgFile) '打开文件        
If tmpAcadDoc Is Nothing Then        
MsgBox gCollection("1363"), vbExclamation        
Exit Sub    
End If         
For Each Obj In tmpAcadDoc.ModelSpace         
If Obj.ObjectName = "AcDbRotatedDimension" Then                          
Set oDim = Obj                            
oDim.TextOverride = ParNewValue            
Exit For                      
End If          
Next Obj     
tmpAcadDoc.Application.Update     
tmpAcadDoc.Save     
tmpAcadDoc.Close     
Set tmpAcadDoc = Nothing     
End Sub