Option Strict Off
Imports System
Imports NXOpen
Module NXJournal
Sub Main (ByVal args() As String)
Dim theSession As Session = Session.GetSession()
Dim workSimPart As CAE.SimPart = CType(theSession.Parts.BaseWork, CAE.SimPart)
Dim displaySimPart As CAE.SimPart = CType(theSession.Parts.BaseDisplay, CAE.SimPart)
Dim usergroupIds1(0) As Integer
usergroupIds1(0) = 1
theSession.Post.PostviewApplyUserGroupVisibility(687, usergroupIds1, CAE.Post.GroupVisibility.ShowOnly)
Dim usergroupIds2(0) As Integer
usergroupIds2(0) = 2
theSession.Post.PostviewApplyUserGroupVisibility(687, usergroupIds2, CAE.Post.GroupVisibility.ShowOnly)
Dim usergroupIds3(0) As Integer
usergroupIds3(0) = 3
theSession.Post.PostviewApplyUserGroupVisibility(687, usergroupIds3, CAE.Post.GroupVisibility.ShowOnly)
Dim usergroupIds4(0) As Integer
usergroupIds4(0) = 4
theSession.Post.PostviewApplyUserGroupVisibility(687, usergroupIds4, CAE.Post.GroupVisibility.ShowOnly)
' ----------------------------------------------
' Menu: Tools->Journal->Stop Recording
' ----------------------------------------------
End Sub
End Module