見出し画像

Inventor / iLogic : 自動中心線ルール

 Inventor の自動中心線機能は、アクティブな図面ビューに中心線を自動的に挿入する機能だ。便利だが、全ての図面ビューに対していちいちコンテキストメニューを開くのは少々面倒だ。オプション設定もどれにしたら良いかいつも忘れている。そこで、全ての図面ビューに自動中心線を行うルールを作ってみた。

コードはこんな感じ


' Do Automated Centerline to all View on the current sheet
'Ver1.1 By Yoji.Tanaka At 21/01/20

Sub Main

	Dim oDoc As Inventor.DrawingDocument = Nothing
   Try
       oDoc = ThisDoc.Document
   Catch ex As Exception
       MessageBox.Show("図面キュメントでのみ実行できます。", "自動中心線")
       Exit Sub
   End Try

   Dim oDrawingView As Inventor.DrawingView = Nothing
   Dim rslt As Inventor.ObjectsEnumerator = Nothing
   Dim oAutomatedCenterlineSettings As Inventor.AutomatedCenterlineSettings = oDoc.DrawingSettings.AutomatedCenterlineSettings
   With oAutomatedCenterlineSettings
		.ApplyToBends = False					'シートメタル曲げフィーチャ
       .ApplyToCircularPatterns = True		' 回転配列
		.ApplyToCylinders = True				' 円筒面
		.ApplyToFillets = False					' フィレット
       .ApplyToHoles = True						' 穴
       .ApplyToPunches = True					' パンチ穴
       .ApplyToRectangularPatterns = True	' 矩形配列
		.ApplyToRevolutions  = True			' 回転体
		.ApplyToSketches = True					' スケッチ
		.ApplyToWorkFeatures = False			' 作業オブジェクト
		.ProjectionNormalAxis = True
       .ProjectionParallelAxis = True
   End With

   For Each oDrawingView In oDoc.ActiveSheet.DrawingViews
       rslt = oDrawingView.SetAutomatedCenterlineSettings(oAutomatedCenterlineSettings)
   Next

End Sub

-YO


役に立った!という記事にはぜひサポートお願いします。サポート頂けると大変に励みになります。