---

Moin Moin,
ich habe ein kleines Problem.
Bei der Erzeugung von Kurven und Co mittels eigenem Journal weise ich diesen Layer, Farbe, Linientyp und Breite automatisiert zu.
Nun würde ich diese gerne in definierte Gruppen einsortieren.
Z.B. Linien vom Typ 1 in "GRUPPE_1"
Ich bekomme es hin, das mir die "GRUPPE_1" erzeugt wird und alle Linien der "GRUPPE_1" zugeordnet werden, solange der befehlt aktiv ist.
Sobald ich den Befehl jedoch schließe und erneut öffne wird mir eine zweite "GRUPPE_1" erstellt.

Ich benötige also eine Abfrage, ob die "GRUPPE_1" schon vorhanden ist. Leider konnte ich nicht herausfinden, wie ich nach "Gruppennamen" suchen und diese dann auch auswählen kann.

Kann mir dabei jemand Helfen ?

Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP

---

Gruppen.PNG

Gemeint sind diese Gruppen:

Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP

---

rechte Maus Taste > Objekt suchen....

------------------
“Vision without action is a daydream. Action without vision is a nightmare.”

Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP

---

... und das wird im VBA wie angesteuert ?
unter Journal Aufzeichnen wird bei diesem Befehl nichts mitgeschrieben.

Dort erscheint nur:

"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

' ----------------------------------------------
'  Menü: Werkzeuge->Journal->Stopp
' ----------------------------------------------

End Sub
End Module"

Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP

---

du bist im falschen Forum: NX Programmierung , wäre das richtige...

http://ww3.cad.de/cgi-bin/ubb/forumdisplay.cgi?action=topics&forum=NX+Programmierung&number=442

------------------
“Vision without action is a daydream. Action without vision is a nightmare.”

Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP

---

Kurz Aufgezeichnet ..... das Ergebnis:

Code:

---

Option Strict Off
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

' ----------------------------------------------
'  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()

---

------------------
“Vision without action is a daydream. Action without vision is a nightmare.”

Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP

---

Ok, ich gucke mal im anderen Forum 
Wie man eine Gruppe erstellt ist nicht das Problem,
ich glaube ich habe mich da falsch Ausgedrückt.

Ich bin auf der Suche nach einer Abfrage, ob es eine Gruppe mit dem Namen "X" bereits gibt.
Wenn ja, dann soll diese zum aktiven GroupBuilder werden.
Wenn nein, dann soll eine Gruppe mit dem Namen "X" erstellt werden und diese zum aktiven GroupBuilder werden.

Versuche das jetzt mit einer Abfrage des Tag, der Gruppe mit dem Namen "X", zu lösen.

Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP