设置图纸中标注的比例

最新推荐文章于 2023-10-18 20:39:00 发布

翻译最新推荐文章于 2023-10-18 20:39:00 发布 · 1.8k 阅读

工程图专栏收录该内容

24 篇文章

订阅专栏

原文链接： 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