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