---

Hallo noch einmal........

Jetzt steh ich kurz vor dem Ziel, doch wieder mal mit aller Kraft auf dem Schlauch  ....
Ich möchte alle im Workpart vorhandenen Ausdrücke prüfen und brauche dazu alle Ausdrucksbenennungen.
NXopen bietet dazu:

Workpart.expressions.toarray()as expression

Mit UBound(Testarray) bekomme ich auch die korrekte Anzahl der Elemente (314), füge ich einen Ausdruck hinzu, erhöht sich die Zahl auch um eins.
Mit Testarray.rank kann ich auch abfragen, dass es sich wirklich um ein 1-dimensionales Array handelt.

Offensichtlich sind alle Elemente des Arrays vom Typ NXOpen.Expression

Wie kann ich jetzt aus den Elementen des Arrays die Ausdrucksbenennung auslesen ???????

Es winken leider nur Ü's, würde gerne mit einer guten Flache Wein winken 

Vielen Dank für einen Tip!

mfg
Konrad

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

---

Hallo Konrad,
ich würds so machen:

Dim s As Session = session.GetSession
Dim teil As part=s.Parts.Work
Dim expressi() as expression = teil.Expressions.ToArray
Dim expresso as expression
Dim i as integer
Dim ausdruck as string
for i = 1 to expressi.length-1
expresso=expressi(i)
ausdruck=expresso.equation
next

Dann hast Du in ausdruck die Benennung und die Formel.

Mit

dim teilausdruecke() as string = ausdruck.split("=")

teilst Du Dir dann den String einfach und hast in
teilausdruecke(0) die Benennung und in
teilausdruecke(1) die Formel.

Und mit expresso.value kriegst Du den Wert.

Flasch Wein ist nicht nötig, aber vielleicht weißt Du ja wie man ID-Symbole mit Journal erzeugt und kannst mir dabei helfen 

MfG
Chris

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

---

erst mal vielen Dank für den Tip!

habs aber in der Zwischenzeit noch etwas eleganter gelöst (ein Schnipsel daraus):

    Dim expression2 as NXOpen.expression
     
    AllExpressions = workPart.Expressions.ToArray()

        For i = 0 To UBound(AllExpressions)

            expression2 = AllExpressions(i)
           
            session.ListingWindow.WriteLine(expression2.Name)
        Next

Trotzdem vielen Dank!

mit dem ID-Symbol werde ich mich bei Gelegenheit am Wochenende mal beschäftigen!

mfg
K.

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