' NX 6.0.3.6  -  HD-R4THA.280711.vb
' Journal created by Heidi Krakat, Jan 07, 2011 11:25 W. Europe Standard Time
' loads expressions for R4THA
' turns HD_TYP to "3" => Sketch HD_RXT becomes active; Sketch RD_RX is supressed
'                        Sketch STV_RXT becomes active; Sketch STV_RX and STV_RHXA are supressed
' revised Feb 08, 2011 - changed expressionfile directory and file name for STV
' revised 06-May-11 - 10 Expressionfiles exp 010411 was 110208 Expressionfiles exp
' revised 01-August-11 - loading of Expressions for AHP added
'                        saved as HD-R4THA.010811.vb
' revised 29-September-11 - changed file name for HD(.0003.exp was .exp)
'			    changed file name for STV (.290911 was .0002)
' revised 06-October-11 - changed file name for HD(.061011 was .0003)
' revised 21-October-11 - changed file name for HD(HD-R4THA.211011.exp was HD-R4THA-OT.061011)
'                         import of STZN-HD-DN125-PN40.201011.exp added
'                         saved as HD-R4THA.211011.vb
' revised 27-October-11 - changed file name for HD(HD-R4THA.271011.exp was HD-R4THA.211011.exp)
'                         Journalfile renamed to HD-R4THA.271011.vb
' revised 02-November-11 - changed file name for STZN(STZN-HD-DN125-PN40.281011.exp was STZN-HD-DN125-PN40.201011.exp)
'                          Journalfile renamed to HD-R4THA.021111.vb
' revised 13-December-11 - import of T4.220611.exp added
' revised 15-Februiar-12 - import of ENTW-IG-R4THA.exp added
' revised 12-March-12 - import of GHF-T4.120312.exp added
' revised 03-April-12 - changed file name for STV(STV-R4THA-OT.030412.exp was STV-R4THA-OT.190911.exp)
' revised 13-April-12 - import of NKN-HD-R4T.130412.exp added
' revised 25-April-12 - import of NKN-HD-HRZTL-R4T.160412.exp added
' revised 02-July-12 - import of AUFL-IG-R4T.020712.exp added
' revised 13-December-12 - HD-R4THA.131212.exp was HD-R4THA.271011.exp
' revised 17-December-12 - T4.131212.exp was T4.220611.exp
' revised 18-July-2014 - import of LABDI-R4T-alt.170714.exp added
'			 HD-R4T.170714.exp was HD-R4THA.131212.exp
'			 TFF-R4THA.170714.exp was TFF-R4THA-OT.exp
'			 saved as HD-VB-R4THA-LABDIA.180714.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

' ----------------------------------------------
'  Menü: Tools->Expression...loads expression files for R4THA
' ----------------------------------------------
Dim markId1 As Session.UndoMarkId
markId1 = theSession.SetUndoMark(Session.MarkVisibility.Visible, "Expression")

Dim expModified1 As Boolean
Dim errorMessages1() As String
workPart.Expressions.ImportFromFile("J:\CAD\P\NX\user\G18659\G18659\Prototyp 02\10 Expressionfiles exp 010411\HD-R4T.170714.exp", ExpressionCollection.ImportMode.Replace, expModified1, errorMessages1)

Dim expModified2 As Boolean
Dim errorMessages2() As String
workPart.Expressions.ImportFromFile("J:\CAD\P\NX\user\G18659\G18659\Prototyp 02\10 Expressionfiles exp 010411\AHP-HD-R4THA.exp", ExpressionCollection.ImportMode.Replace, expModified1, errorMessages1)

Dim expModified3 As Boolean
Dim errorMessages3() As String
workPart.Expressions.ImportFromFile("J:\CAD\P\NX\user\G18659\G18659\Prototyp 02\10 Expressionfiles exp 010411\TFF-R4THA.170714.exp", ExpressionCollection.ImportMode.Replace, expModified1, errorMessages1)

Dim expModified4 As Boolean
Dim errorMessages4() As String
workPart.Expressions.ImportFromFile("J:\CAD\P\NX\user\G18659\G18659\Prototyp 02\10 Expressionfiles exp 010411\STV-R4THA-OT.030412.exp", ExpressionCollection.ImportMode.Replace, expModified1, errorMessages1)

Dim expModified5 As Boolean
Dim errorMessages5() As String
workPart.Expressions.ImportFromFile("J:\CAD\P\NX\user\G18659\G18659\Prototyp 02\10 Expressionfiles exp 010411\STZN-HD-DN125-PN40.281011.exp", ExpressionCollection.ImportMode.Replace, expModified1, errorMessages1)

Dim expModified6 As Boolean
Dim errorMessages6() As String
workPart.Expressions.ImportFromFile("J:\CAD\P\NX\user\G18659\G18659\Prototyp 02\10 Expressionfiles exp 010411\T4.131212.exp", ExpressionCollection.ImportMode.Replace, expModified1, errorMessages1)

Dim expModified7 As Boolean
Dim errorMessages7() As String
workPart.Expressions.ImportFromFile("J:\CAD\P\NX\user\G18659\G18659\Prototyp 02\10 Expressionfiles exp 010411\ENTW-IG-R4THA.exp", ExpressionCollection.ImportMode.Replace, expModified1, errorMessages1)

Dim expModified8 As Boolean
Dim errorMessages8() As String
workPart.Expressions.ImportFromFile("J:\CAD\P\NX\user\G18659\G18659\Prototyp 02\10 Expressionfiles exp 010411\GHF-T4.120312.exp", ExpressionCollection.ImportMode.Replace, expModified1, errorMessages1)

Dim expModified9 As Boolean
Dim errorMessages9() As String
workPart.Expressions.ImportFromFile("J:\CAD\P\NX\user\G18659\G18659\Prototyp 02\10 Expressionfiles exp 010411\NKN-HD-R4T.130412.exp", ExpressionCollection.ImportMode.Replace, expModified1, errorMessages1)

Dim expModified10 As Boolean
Dim errorMessages10() As String
workPart.Expressions.ImportFromFile("J:\CAD\P\NX\user\G18659\G18659\Prototyp 02\10 Expressionfiles exp 010411\NKN-HD-HRZTL-R4T.160412.exp", ExpressionCollection.ImportMode.Replace, expModified1, errorMessages1)

Dim expModified11 As Boolean
Dim errorMessages11() As String
workPart.Expressions.ImportFromFile("J:\CAD\P\NX\user\G18659\G18659\Prototyp 02\10 Expressionfiles exp 010411\AUFL-IG-R4T.020712.exp", ExpressionCollection.ImportMode.Replace, expModified1, errorMessages1)

Dim expModified12 As Boolean
Dim errorMessages12() As String
workPart.Expressions.ImportFromFile("J:\CAD\P\NX\user\G18659\G18659\Prototyp 02\10 Expressionfiles exp 010411\LABDI-R4T-alt.170714.exp", ExpressionCollection.ImportMode.Replace, expModified1, errorMessages1)



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

' ----------------------------------------------
'  Menü: Tools->Expression...turns HD_TYP to "3" => Sketches for RXT become active; Sketches forRX are supressed
'                                                   
' ----------------------------------------------
Dim markId3 As Session.UndoMarkId
markId3 = theSession.SetUndoMark(Session.MarkVisibility.Visible, "Expression")

Dim expression1 As Expression = CType(workPart.Expressions.FindObject("HD_TYP"), Expression)

Dim nullUnit As Unit = Nothing

'
' Setzt HD_TYP auf "3"
'
workPart.Expressions.EditWithUnits(expression1, nullUnit, "3")

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


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


' ----------------------------------------------
'  Menü: Werkzeuge->Journal->Stop Recording
' ----------------------------------------------

End Sub
End Module