寸法のセンター合わせ

こんにちは、

図面化しているとき、寸法数字を寸法線の中央に配置するのは少し面倒ですね。Inventor2008では API を使ったプログラムで寸法のセンター合わせが出来るようになりました。

サンプルプログラムを以下に紹介します。VBAのコードです。

' Center the text for all linear and angular general dimensions.
' Have a drawing open that contains at least one linear or angular general dimension.
' Reposition the text manually so it is not centered and run the program to see that
' it is now centered.

'寸法のセンター合わせ
'図面ドキュメントをアクティブしておいて実行する。
'図面内の一般寸法と角度寸法の位置がセンター合わせされる

Public Sub CenterDimensions()
    ' Get the active sheet from the active drawing.
    Dim oDoc As DrawingDocument
    Set oDoc = ThisApplication.ActiveDocument
    Dim oSheet As Inventor.Sheet
    Set oSheet = oDoc.ActiveSheet
   
    ' Iterate over all of the dimensions.
    Dim oDim As DrawingDimension
    For Each oDim In oSheet.DrawingDimensions
        ' Check to see if the dimension is a linear or angular dimension.
        If TypeOf oDim Is LinearGeneralDimension Or TypeOf oDim Is AngularGeneralDimension Then
            ' Center the text.
            oDim.CenterText
        End If
     Next
End Sub