设置图纸中标注的比例

来源：互联网发布：java零基础视频教程编辑：程序博客网时间：2024/05/07 22:26

原文链接： http://adndevblog.typepad.com/manufacturing/2012/05/updating-drawing-dimensions-after-changing-scale.html

如果图纸中视图比例发生变化，其中的标注的比例会随之变换，但其数值不会仍旧是原值。如果您的流程里需要刷新数值，可以用API进行处理。例如以下VBA代码先修改了某个视图比例，随后根据比例值修改标注对应的模型数值。

Sub updateDim()    Dim oDoc As DrawingDocument    Set oDoc = ThisApplication.ActiveDocument        Dim oDrawingView As DrawingView    Set oDrawingView = oDoc.ActiveSheet.DrawingViews.Item(1)        Dim oScale As Double    oScale = 2    oDrawingView.[Scale] = oScale        Dim i As Long    For i = 1 To oDoc.ActiveSheet.DrawingDimensions.Count        Dim oDimension As DrawingDimension        Set oDimension = oDoc.ActiveSheet.DrawingDimensions.Item(i)        oDimension.OverrideModelValue = _            oDoc.ActiveSheet.DrawingDimensions.Item(i).ModelValue * oScale    Next i    oDoc.Update    End Sub

0 0