Hot News:

Mit Unterstützung durch:

  Foren auf CAD.de
  NX Programmierung
  Wert einer Expression mit Journal auslesen

Antwort erstellen  Neues Thema erstellen
CAD.de Login | Logout | Profil | Profil bearbeiten | Registrieren | Voreinstellungen | Hilfe | Suchen

Anzeige:

Darstellung des Themas zum Ausdrucken. Bitte dann die Druckfunktion des Browsers verwenden. | Suche nach Beiträgen nächster neuer Beitrag | nächster älterer Beitrag
  
Gut zu wissen: Hilfreiche Tipps und Tricks aus der Praxis prägnant, und auf den Punkt gebracht für NX
  
Solid Edge 2025 First Look Online-Event 14.11.2025, eine Pressemitteilung
Autor Thema:  Wert einer Expression mit Journal auslesen (2270 mal gelesen)
bhmrbt
Mitglied
Ingenieur


Sehen Sie sich das Profil von bhmrbt an!   Senden Sie eine Private Message an bhmrbt  Schreiben Sie einen Gästebucheintrag für bhmrbt

Beiträge: 14
Registriert: 31.03.2008

erstellt am: 09. Apr. 2008 09:42    Editieren oder löschen Sie diesen Beitrag!  <-- editieren / zitieren -->   Antwort mit Zitat in Fett Antwort mit kursivem Zitat    Unities abgeben: 1 Unity (wenig hilfreich, aber dennoch)2 Unities3 Unities4 Unities5 Unities6 Unities7 Unities8 Unities9 Unities10 Unities

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

mseufert
Moderator
Freiberuflicher CAD/CAM Ingenieur


Sehen Sie sich das Profil von mseufert an!   Senden Sie eine Private Message an mseufert  Schreiben Sie einen Gästebucheintrag für mseufert

Beiträge: 2723
Registriert: 18.10.2005

HP Z420
WIN7 64 Win 10
UG NX6-2306
3D Printer Prusa MK2 S

erstellt am: 09. Apr. 2008 12:33    Editieren oder löschen Sie diesen Beitrag!  <-- editieren / zitieren -->   Antwort mit Zitat in Fett Antwort mit kursivem Zitat    Unities abgeben: 1 Unity (wenig hilfreich, aber dennoch)2 Unities3 Unities4 Unities5 Unities6 Unities7 Unities8 Unities9 Unities10 Unities Nur für bhmrbt 10 Unities + Antwort hilfreich

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



Mitarbeiter in der Konstruktion (m/w/d)

Mit fünf Standorten in Europa und Asien sowie über 130 Mitarbeiterinnen und Mitarbeitern ist RÖSSEL-Messtechnik renommierter Spezialist für alle Bereiche der Temperaturmesstechnik mit elektrischen Berührungsthermometern. Als Entwickler, Produzent und Berater für hochwertige Messgeräte beliefern wir weltweit unterschiedlichste Branchen in Industrie und Forschung. Mit dem Know-how unseres hochkarätigen ...

Anzeige ansehenFeste Anstellung
bhmrbt
Mitglied
Ingenieur


Sehen Sie sich das Profil von bhmrbt an!   Senden Sie eine Private Message an bhmrbt  Schreiben Sie einen Gästebucheintrag für bhmrbt

Beiträge: 14
Registriert: 31.03.2008

erstellt am: 09. Apr. 2008 12:46    Editieren oder löschen Sie diesen Beitrag!  <-- editieren / zitieren -->   Antwort mit Zitat in Fett Antwort mit kursivem Zitat    Unities abgeben: 1 Unity (wenig hilfreich, aber dennoch)2 Unities3 Unities4 Unities5 Unities6 Unities7 Unities8 Unities9 Unities10 Unities

Hallo Michael,

Danke, hat super geklappt.

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

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

Anzeige.:

Anzeige: (Infos zum Werbeplatz >>)

Darstellung des Themas zum Ausdrucken. Bitte dann die Druckfunktion des Browsers verwenden. | Suche nach Beiträgen

nächster neuerer Beitrag | nächster älterer Beitrag
Antwort erstellen


Diesen Beitrag mit Lesezeichen versehen ... | Nach anderen Beiträgen suchen | CAD.de-Newsletter

Administrative Optionen: Beitrag schliessen | Archivieren/Bewegen | Beitrag melden!

Fragen und Anregungen: Kritik-Forum | Neues aus der Community: Community-Forum

(c)2025 CAD.de | Impressum | Datenschutz