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

habin

我需要把14"和21“显示器模型文件合并到一块，并自动调整14"的长度和宽度和21"的一样大，我利用插入块的方法设置比例并插入后，原来文件里的线性标注上的数

字没有变成实际大小，需要打散才能显示实际大小，因为编程需要不可能手动打散再合并，有没有什么办法来解决这一问题？

我自己做了一个替换文字的函数，效果不理想，因为无法确定要替换哪个文字。

2. '修改指定文件的标注文字
3. Private Sub OverrideDimeText(ByVal ParDwgFile As String, ByVal ParNewValue As String)
4. Dim strResult As String   
5. Dim tmpAcadDoc As AcadDocument       
6. Dim Obj As AcadEntity   
7. Dim oDim As AcadDimension       
8. Set tmpAcadDoc = OpenCADDoc(ParDwgFile) '打开文件       
9. If tmpAcadDoc Is Nothing Then       
10. MsgBox gCollection("1363"), vbExclamation       
11. Exit Sub   
12. End If        
13. For Each Obj In tmpAcadDoc.ModelSpace        
14. If Obj.ObjectName = "AcDbRotatedDimension" Then                         
15. Set oDim = Obj                           
16. oDim.TextOverride = ParNewValue           
17. Exit For                     
18. End If         
19. Next Obj    
20. tmpAcadDoc.Application.Update    
21. tmpAcadDoc.Save    
22. tmpAcadDoc.Close    
23. Set tmpAcadDoc = Nothing    
24. End Sub

'修改指定文件的标注文字 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

mccad

可以修改标注对象的LinearScaleFactor属性

zuehuo

怎么修改