社区 › VB › [求助]关于修改标注文字的问题

habin 发表于 2009-5-20 11:00:00

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

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

字没有变成实际大小，需要打散才能显示实际大小，因为编程需要不可能手动打散再合并，有没有什么办法来解决这一问题？
我自己做了一个替换文字的函数，效果不理想，因为无法确定要替换哪个文字。
'修改指定文件的标注文字
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 发表于 2009-6-1 06:45:00

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

zuehuo 发表于 2010-7-5 11:17:00

怎么修改

查看完整版本: [求助]关于修改标注文字的问题