---

Hallo zusammen, ich stehe vor dem Problem, ein Feature über den Programmcode ausfindig zu machen.
Vorab folgende Info zum Aufbau. Es gibt ein _AS, welches _child1 und _child2 steuert (platziert/bewegt).
Nach Ende einer Bewegung wird ein Linked_Body von _child1 in _child2 erzeugt.
Von diesem Linked_Body werden dann alle Parameter entfernt. Danach erfolgt eine erneute Bewegung und das Spiel wiederholt sich/soll sich wiederholen. Es gibt also immer nur einen Linked_Body, dessen Nummer/Tag aber hochzählt (immer einen festgelegten Abstand).
Der Programmcode funktioniert auch soweit ganz gut. Nun möchte ich das als Schleife programmieren. Bekomme dann aber nach dem ersten Durchlauf den Linked_Body nicht mehr "gefasst", da sich sein Tag geändert hat. Hier etwas code:

' ----------------------------------------------
'  Menü: Bearbeiten->Formelement->Remove Parameters...
' ----------------------------------------------
theSession.CleanUpFacetedFacesAndEdges()

theSession.CleanUpFacetedFacesAndEdges()

Dim markId4 As Session.UndoMarkId
markId4 = theSession.SetUndoMark(Session.MarkVisibility.Visible, "Start")

Dim removeParametersBuilder1 As Features.RemoveParametersBuilder
removeParametersBuilder1 = workPart.Features.CreateRemoveParametersBuilder()

theSession.SetUndoMarkName(markId4, "Remove Parameters Dialogfenster")

Dim body2 As Body = CType(workPart.Bodies.FindObject("LINKED_BODY(189)"), Body)

Dim added2 As Boolean
added2 = removeParametersBuilder1.Objects.Add(body2)

Dim markId5 As Session.UndoMarkId
markId5 = theSession.SetUndoMark(Session.MarkVisibility.Invisible, "Remove Parameters")

Dim nXObject2 As NXObject
nXObject2 = removeParametersBuilder1.Commit()

theSession.DeleteUndoMark(markId5, Nothing)

theSession.SetUndoMarkName(markId4, "Remove Parameters")

removeParametersBuilder1.Destroy()

theSession.CleanUpFacetedFacesAndEdges()

---------------------------------------------------------

Entweder ich kann den Tag mit einer Variablen belegen, was bisher nicht geklappt hat.

Habe es z.B. so versucht:
Dim body2 As Body = CType(workPart.Bodies.FindObject("LINKED_BODY(Bodyno)"), Body)
oder
Dim body2 As Body = CType(workPart.Bodies.FindObject("LINKED_BODY(Bodyno.ToString)"), Body)

Damit kommt der Compiler aber nicht zurecht.
Es wäre natürlich die (für mich) schönste Variante, das so zu lösen. Einfach den Tag hochzählen lassen und dort als Variable stehen haben.

Eine andere Möglichkeit wäre den Linked_Body unabhängig vom ObjectTag zu finden.
Es wird immer nur einen Linked_Body geben. Danach wird er ja "zerstört" zu einem "dummen" Körper.
Aber hier weiß ich leider wirklich nicht weiter. Dazu habe ich zu weinig Erfahrung mit den Möglichkleiten im NX.Open.
Vorab schon einmal vielen Dank an die, die sich hierüber Gedanken machen. Ciao

------------------
Konstruktion 2D / 3D Zerspanungswerkzeuge

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