---

Lange_Zugriff.jpg

Hallo Zusammen,

Ich habe einige Längenmessungen zwischen diversen Objekten durchgeführt und diese Messung beibehalten. Die Längen möchte ich nun gerne in eine Textdatei (oder Excel) speichern.

Leider schaffe ich es nicht, über eine Schleife auf die einzelne Messung zu referenzieren.
Meine Ziel war es, das Objekt Messung zu selektieren und das Skript durchläuft alle "Messen Zwischen.i" Objekte und speichert mir die Länge in eine txt datei.

Leider verstehe ich die Referenzierung dieser einzelnen Objekte nicht.

Hoffe ihr könnt mir helfen.

Kautzma

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

---

Bitte System-Info ausfüllen.

Dann verstehe ich die Frage nicht, nicht was Du bereits getan hast um eine Lösung zu finden, was Du vor hast und wie Dein Code aussehen könnte.

Ein guter Artikel, der mir hilft Dir zu helfen, wäre: http://www.tty1.net/smart-questions_de.html

Mit den Bisherigen Informationen kann ich Dir leider nur sagen, dass die Measure-Objekte Bestandteil der SPA-Workbench sind. Die Maße selbst sind dann Parameter.

Wahrscheinlich verstehe ich aber auch einfach nur die Aufgabenstellung nicht, daher hilft es manchmal es einfach noch einmal mit anderen Worten zu beschreiben.

------------------
Mit freundlichen Grüßen,
Henry Schneider
alias Lila

Es gibt einen ewigen Wettkampf zwischen der Natur und den Ingenieuren:
Die Ingenieure versuchen, immer idioten-sicherere Systeme zu bauen,
die Natur versucht, immer bessere Idioten zu bauen

Xing

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

---

Hallo HoBLila

danke für deinen Tipp mit SPA-Workbench. Diesen werde ich mittels googlen versuchen zu verstehen.

System-Info: Catia V5 R19 SP09

Was liegt als CATIA-Modell vor (auch siehe Bild aus ersten Beitrag):

Test.catproduct
|--Welle1.catpart
|--Anwendung
    |--Messung
          |--Messen zwischen.3
              |--Länge
          |--Messen zwischen.4
              |--Länge

Aufgabe:
Ich suche eine Lösung, die die gemessenen "Länge"n in eine txt-Datei schreibt, damit ich mit diesen Längenangaben weiter arbeiten kann.

Bisherige Lösung:
Bisher habe ich folgende Lösungsmöglichkeit nach einer Makroaufzeichnung erreicht.

####### Script start############
Language="VBSCRIPT"
Sub CATMain()
Set productDocument1 = CATIA.ActiveDocument
Set product1 = productDocument1.Product
Set parameters1 = product1.Parameters
Set length1 = parameters1.Item("test\Messen zwischen.3\Länge")
MsgBox length1.Value  ' Ausgabe der Laenge als Test in einer Messagebox'
End Sub
####### Script ende############

Frage:
In der Bisherigen Lösung wird der Parameter über seinen Namen und Pfad "test\Messen zwischen.3\Länge" direkt angesprochen. Ich muss somit im Skript die eindeutigen Namen angeben.

Gibt es eine Referenzierungsart des Objektes "Messung" das ich aufrufen kann, um mir alle Objekte "Messen zwischen.i" in ein Feld/Liste zu geben (somit muss ich die einzelnen Benennungen nicht kennen). Dann dieses Feld durchlaufen und somit auf die Werte "Länge" zugreifen kann?

Symbolischer Beispielcode:

LISTE Messungsinstanzen = Messung.getAllMessungsinstanzen()
FOR ALL eintraege IN Messungsinstanzen DO
      Ausgabe eintraege.länge.value
ENDDO

Mein Problem:
Ich kenne mich mit CATvbs nicht aus, die vorhandene CATIA-Objektstrukturen sind mir nicht geläufig.
Ich benötige Hilfe um die einzelnen Werte referenziert und somit zur Ausgabe zu bekommen.

Danke für deine und eure Hilfe

kautzma

   

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

---

Hallo

Wie Henry schon geschrieben hat solltest du die Systeminfo ausfüllen. Und zwar in deinem Profil, nicht in diesem Beitrag.
Unter "Profil bearbeiten".

------------------
Gruß Uwe

Auch Catia ist nur ein Mensch!    

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

---

Ahhh super, damit kann ich was anfangen! :-)
Jetzt ist die Frage auch sehr gut gestellt!

Zunächst einmal empfehle ich Dir die Makros erst einmal im VBA-Editor zu schreiben, da er komfortabler ist und ein Watch-Window hat, wo Du Dir die Objekte zur Laufzeit anschauen kannst (Eigenschaften und so).

Dann würde ich es so lösen:
Zeichne eine Suche (Selection) auf, die nach allen Measure-Features sucht (hoffe das geht).
Diesen Suchstring würde ich dann im Makros verwenden.

Danach müssten alle Measure-Elemente selektiert sein und Du ihre Objekte über Selection.Item2(iItemIterator).Value bekommen.

Dann holst Du Dir das ParameterSet vom part partWork.Parameters.

Dieses müsstest Du über eine Methode wie SubList() verkleinern können, also parameterSetWork.SubList().

Hier übergibst Du Dein Measure-Item, also parameterSetWork.SubList(Selection.Item2(iItemIterator).Value).

Ist jetzt kein korrekter Code, aber das sollte in die richtige Richtung gehen. Kann aber nicht garantieren, dass es funktioniert. Wenn nicht, dann haben wir z.B. noch die Möglichkeit uns den String des Parameters (ist ja eine eingache Baumstruktur) selbst dynamisch zusammen zu bauen.

------------------
Mit freundlichen Grüßen,
Henry Schneider
alias Lila

Es gibt einen ewigen Wettkampf zwischen der Natur und den Ingenieuren:
Die Ingenieure versuchen, immer idioten-sicherere Systeme zu bauen,
die Natur versucht, immer bessere Idioten zu bauen

Xing

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

---

Danke für die Informationen.

ich werde es erst Nachmittag weiter programmieren können. Dein Ansatz mit der Aufzeichnung der Suche funktioniert.

Das Ergebnis werde ich dann mitteilen

kautzma

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

---

Ich würde nur in den Parametern nach Länge suchen und diese auswerten, wenn der String "Messen zwischen" vorhanden ist. Klappt natürlich nur, wenn die Messungen nicht umbenannt worden sind.

Code:

---

Sub CATMain()

Dim MySel As Selection
Dim MyLen As Length
Dim MySplit
Dim s As String

    Set MySel = CATIA.ActiveDocument.Selection

    MySel.Search "Knowledgeware.Parameter.Name=Länge,alle"

    For i = 1 To MySel.Count2
        If InStr(1, MySel.Item2(i).Value.Name, "Messen zwischen", vbTextCompare) <> 0 Then
       
            Set MyLen = MySel.Item2(i).Value
            MySplit = Split(MyLen.Name, "\", -1, vbTextCompare)
            s = MySplit(1) & ";" & MyLen.Value
            'Sub...Schreibe s in irgendeine Datei
        End If
    Next i

End Sub

---

Gruß
  Mark

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