Inventor iLogic : 選択した寸法をセンター合わせするルール

3Dモデルを形状変更するとその2D図面も形状と寸法が追従してくれる。しかし、寸法数字の位置は崩れてしまう。寸法数字をひとつひとつ選択し位置を指定しなおす作業は疲れるので、寸法を選択したらセンター合わせを自動的に行うルールを作成した。

iLogic のコードはこちら

'選択した寸法をセンター合わせ

Sub Main

   '図面ドキュメントオブジェクトを取得

   Dim oDrawDoc As DrawingDocument = Nothing
   Dim invApp As Inventor.Application = ThisApplication
   Try
'            oDrawDoc = ThisDrawing.Document
       oDrawDoc = invApp.ActiveDocument
   Catch Ex As Exception
       MsgBox("現在のドキュメントが図面ドキュメントではありません", , "Sample")
		Exit Sub
   End Try

	Dim oDim As Object=Nothing
   Do
       Try
           oDim = invApp.CommandManager.Pick(SelectionFilterEnum.kDrawingDimensionFilter, "Select Dimmension (ESC to quit)")
           If oDim Is Nothing Then Exit Do
       	If TypeOf oDim Is LinearGeneralDimension Or TypeOf oDim Is AngularGeneralDimension Then
           	oDim.CenterText
       	End If
       Catch ex As Exception
           Exit Do
       End Try
   Loop
	
End Sub