---

Hallo Zusammen,
Folgendes Problem:
UG Teil enthält ein Parameter AD.  Der AD Wert  soll auf „Knopfdruck“  sagen wir mal um 50 erhöht werden.
Da das Programm universell für mehrere Dateien funktionieren soll, muss der  AD wert aus dem aktuellem Teil erst ausgelesen werden.
Wie kann ich mit Journal, bzw. vb.NET den Wert der Expression auslesen?
Ich habe schon ein Entwurf zusammengestellt. Ich vermute mir fehlt halt nur eine Befehlszeile.

Code:

---

Option Strict Off
Imports System
Imports NXOpen

Module NXJournal
Sub Main

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

Dim displayPart As Part = theSession.Parts.Display

Dim markId1 As Session.UndoMarkId
markId1 = theSession.SetUndoMark(Session.MarkVisibility.Visible, "Expression")

Dim expression1 As Expression = CType(workPart.Expressions.FindObject("AD"), Expression)

Dim markId2 As Session.UndoMarkId
Dim nErrs1 As Integer
Dim AD_neu as Single

      AD = ??????    ' der wert für AD soll ausgelesen werden
      AD_neu=AD+20 

      workPart.Expressions.Edit(expression1, AD_neu)
nErrs1 = theSession.UpdateManager.DoUpdate(markId2)

theSession.DeleteUndoMark(markId2, "Update Expression Data")

End Sub
End Module

---

Kann mir jemand da helfen.
Danke im Voraus

------------------
MfG
Robert

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

---

Hallo Robert,

wie das Editieren geht auch das Auslesen über workpart.expressions. Die Zeile könnte lauten:

dim wert as double = workpart.expressions.findobject("Name").value

Gruß, Michael

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

---

Hallo Michael,

Danke, hat super geklappt.

------------------
MfG
Robert

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