ジャーナルファイルを見てみる

生成されたジャーナルファイルをメモ帳で開くとこんな感じになっています。
c:\nxgate\journal1.vb

Option Strict Off
Imports System
Imports NXOpen

Module NXJournal
Sub Main

Dim theSession As Session = Session.GetSession()
Dim workPart As Part = theSession.Parts.Work

Dim displayPart As Part = theSession.Parts.Display

' ----------------------------------------------
' メニュー: ツール->Expression...
' ----------------------------------------------
Dim markId1 As Session.UndoMarkId
markId1 = theSession.SetUndoMark(Session.MarkVisibility.Visible, "Expression")

Dim expModified1 As Boolean
Dim errorMessages1() As String
workPart.Expressions.ImportFromFile("C:\nxgate\sample1.exp", ExpressionCollection.ImportMode.Replace, expModified1, errorMessages1)

Dim markId2 As Session.UndoMarkId
markId2 = theSession.SetUndoMark(Session.MarkVisibility.Invisible, "Update Expression Data")

Dim nErrs1 As Integer
nErrs1 = theSession.UpdateManager.DoUpdate(markId2)

theSession.DeleteUndoMark(markId2, "Update Expression Data")

' ----------------------------------------------
' メニュー: ツール->ジャーナル->停止
' ----------------------------------------------

End Sub
End Module

太字のところがインポートする式のファイル名です。
VBを使って
寸法表読込(VB)→式ファイル作成(VB)→式ファイルをインポート（このjournal）
というループを作ればできそうです。

もうひとつの名前を変えて保存も同じ手順でジャーナルとして記録しておきます。

次へ続きます