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

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



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

<p>怎么修改</p>
页: [1]
查看完整版本: [求助]关于修改标注文字的问题