Code:
Option Strict Off
Imports System
Imports NXOpenModule 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
' ----------------------------------------------
' Menü: Format->Gruppe->Neue Gruppe...
' ----------------------------------------------
Dim markId1 As NXOpen.Session.UndoMarkId
markId1 = theSession.SetUndoMark(NXOpen.Session.MarkVisibility.Visible, "Start")
Dim nullNXOpen_Group As NXOpen.Group = Nothing
Dim groupBuilder1 As NXOpen.GroupBuilder
groupBuilder1 = workPart.CreateGatewayGroupBuilder(nullNXOpen_Group)
groupBuilder1.ActivegroupOption = True
groupBuilder1.ActionType = 0
groupBuilder1.GroupDisplayProperties = False
groupBuilder1.GroupName = "Gruppe_0"
theSession.SetUndoMarkName(markId1, "Neue Gruppe-Dialogfenster")
Dim objects1(1) As NXOpen.TaggedObject
Dim associativeLine1 As NXOpen.Features.AssociativeLine = CType(workPart.Features.FindObject("LINE(18)"), NXOpen.Features.AssociativeLine)
Dim line1 As NXOpen.Line = CType(associativeLine1.FindObject("CURVE 1"), NXOpen.Line)
objects1(0) = line1
Dim associativeLine2 As NXOpen.Features.AssociativeLine = CType(workPart.Features.FindObject("LINE(19)"), NXOpen.Features.AssociativeLine)
Dim line2 As NXOpen.Line = CType(associativeLine2.FindObject("CURVE 1"), NXOpen.Line)
objects1(1) = line2
Dim added1 As Boolean
added1 = groupBuilder1.ObjectsInGroup.Add(objects1)
Dim markId2 As NXOpen.Session.UndoMarkId
markId2 = theSession.SetUndoMark(NXOpen.Session.MarkVisibility.Invisible, "Neue Gruppe")
theSession.DeleteUndoMark(markId2, Nothing)
Dim markId3 As NXOpen.Session.UndoMarkId
markId3 = theSession.SetUndoMark(NXOpen.Session.MarkVisibility.Invisible, "Neue Gruppe")
Dim nXObject1 As NXOpen.NXObject
nXObject1 = groupBuilder1.Commit()
theSession.DeleteUndoMark(markId3, Nothing)
theSession.SetUndoMarkName(markId1, "Neue Gruppe")
groupBuilder1.Destroy()