' NX 12.0.2.9
' Journal created by donalke on Fri Dec 18 10:50:04 2020 Pacific Standard Time
'
Imports System
Imports NXOpen

Module NXJournal
Sub Main (ByVal args() As String) 

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

Dim displayPart As NXOpen.Part = theSession.Parts.Display

' ----------------------------------------------
'   Menu: Preferences->Object...
' ----------------------------------------------
Dim newlinewidths1(2) As NXOpen.Preferences.PartObject.WidthType
newlinewidths1(0) = NXOpen.Preferences.PartObject.WidthType.WidthOne
newlinewidths1(1) = NXOpen.Preferences.PartObject.WidthType.WidthTwo
newlinewidths1(2) = NXOpen.Preferences.PartObject.WidthType.WidthThree
workPart.Preferences.ObjectPreferences.SetLegacyLineWidthMap(newlinewidths1)

'-- workPart.Preferences.ObjectPreferences.SetColor(NXOpen.Preferences.PartObject.ObjectType.General, 2)

'-- workPart.Preferences.ObjectPreferences.SetLineFont(NXOpen.Preferences.PartObject.ObjectType.General, NXOpen.Preferences.PartObject.LineFontType.Solid)

'-- workPart.Preferences.ObjectPreferences.SetWidth(NXOpen.Preferences.PartObject.ObjectType.General, NXOpen.Preferences.PartObject.WidthType.WidthSix)

'-- Dim theUI As NXOpen.UI = NXOpen.UI.GetUI()

'-- Dim sessionTranslucency1 As NXOpen.Preferences.ObjectPreferences.Translucency = Nothing
'-- theUI.ObjectPreferences.ResetSessionTranslucency(True, sessionTranslucency1)

'-- Dim sessionTranslucency2 As NXOpen.Preferences.ObjectPreferences.Translucency = Nothing
'-- theUI.ObjectPreferences.ResetSessionTranslucency(False, sessionTranslucency2)

' ----------------------------------------------
'   Menu: Tools->Journal->Stop Recording
' ----------------------------------------------

End Sub
End Module
