41 lines
1.5 KiB
VB.net
41 lines
1.5 KiB
VB.net
Public Class Test
|
|
' NX 9.0.3.4
|
|
'Journal zum
|
|
|
|
Option Strict Off
|
|
Imports System
|
|
Imports NXOpen
|
|
|
|
Module NXJournal
|
|
Sub Main(ByVal args() As String)
|
|
|
|
Dim theSession As Session = Session.GetSession()
|
|
Dim workPart As Part = theSession.Parts.Work
|
|
|
|
Dim displayPart As Part = theSession.Parts.Display
|
|
|
|
'theSession.Preferences.Modeling.UpdatePending = False
|
|
|
|
'Dim markId1 As Session.UndoMarkId
|
|
'markId1 = theSession.SetUndoMark(Session.MarkVisibility.Visible, "Expression")
|
|
|
|
Dim expModified1 As Boolean
|
|
Dim errorMessages1() As String
|
|
|
|
|
|
'workPart.Expressions.ImportFromFile("M:\UG\NX12_NXTC\global\06_ENGEL_NX_CUSTOMIZING\Blech\blech - Vorschlag_Eugen.exp", ExpressionCollection.ImportMode.Replace, expModified1, errorMessages1)
|
|
|
|
Dim sheetMetalExpressionsValue As String
|
|
sheetMetalExpressionsValue = theSession.GetEnvironmentVariableValue("NX_SERVER_DIR") + "\global\06_ENGEL_NX_CUSTOMIZING\Blech\blech_Vorschlag_Eugen.exp"
|
|
System.Windows.Forms.MessageBox.Show("Expressions Value: " + sheetMetalExpressionsValue)
|
|
workPart.Expressions.ImportFromFile(sheetMetalExpressionsValue, ExpressionCollection.ImportMode.Replace, expModified1, errorMessages1)
|
|
|
|
theSession.Preferences.Modeling.UpdatePending = False
|
|
|
|
'Dim nErrs1 As Integer
|
|
'nErrs1 = theSession.UpdateManager.DoUpdate(markId1)
|
|
|
|
End Sub
|
|
End Module
|
|
End Class
|