---

Macros.zip Punktereihen.PNG

Servus,

ich verwende folgendes Marco zum Exportieren von Punktekoordinaten nach Excel. (siehe Anhang, Link dazu: http://www.coe.org/p/fo/et/thread=16586).
Der Vorteil für mich ist, dass man beim Auslesen geometrische Sets und ein neu definiertes Achsensystem verwenden kann. Das zu lösende Problem ist aber, dass man nicht automatisiert bzw. mit einem Wisch mehrere geometrische Sets auslesen kann. In meinem Fall existieren ca. 200 geometrische Sets a 10.000 Punkte (siehe Anhang), welche ich auf einmal in eine Excel-File exportieren möchte.

Ich wäre euch sehr dankbar, wenn mir jemand weiterhelfen könnte.

Danke  

Grüße
Hanswurst

------------------
Ein Auto ist erst dann schnell genug, wenn man morgens davor steht und Angst hat, es aufzuschließen!  

[Diese Nachricht wurde von HansJoachimFrimei am 01. Sep. 2016 editiert.]

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

---

Servus
Leider kann ich die Datei nicht öffnen (ggf fehlt eine Referenz).
Wie werden im Makro die Punkte gesucht/ausgewählt/selektiert?
Lösungsideen:
- statt in einem GeoSet die Punkte zu suchen, überall suchen
- die GeoSet gemeinsam unter einem "Root-GeoSet" anordnen und dann darin zu suchen.

Gruß
Bernd

PS: Für was benötigst du so viele Punkte pro Kurvenzug?

------------------
Warum einfach, wenn es auch kompliziert geht.

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

---

Hi Hans,

die Auswahl erfolgt in dem Export-Makro entweder
- indem vor Auruf des Makros Punkte ausgewählt weden
- oder durch interaktive Selektion eines GeoSets(und der darin enthaltenen Punkte).

Die Punkte werden dann in eine Collection übertragen und die Selektion gelöscht('Clear').

Zitat:

---

Das zu lösende Problem ist aber, dass man nicht automatisiert bzw. mit einem Wisch mehrere geometrische Sets auslesen kann.

---

Wer sagt das?
Wenn Du vor dem Aufruf alle Sets markierst(selektierst) oder alle Punkte schreibt das Makro
die Koordinaten in eine txt-Datei(ich kann die Excel-Variante nicht austesten mangels Excel).

Nachfolgend der Code für die Selektion:

Code:

---

    ' Check preselection.
    Set ptSelection = catDocument.selection
    ptSelection.Search "CATGmoSearch.Point,sel"
    ' If nothing is preselected or no points are in preselected set/selection, wait for user to chose a set
    If ptSelection.Count = 0 Then
        MsgBox "Select the Geometrical Set containing the points to export."
'        ReDim inputObjectType(0)
        inputObjectType(0) = "HybridBody"
        result = ptSelection.SelectElement2(inputObjectType, "Select the Geometrical Set containing the points to export.", False)
        If result <> "Normal" Then GoTo cleanUp
        ptSelection.Search "CATGmoSearch.Point,sel"
    End If

    If ptSelection.Count > 0 Then
        ' Check if file exists, and delete if it does.
        If writeFileSystem.FileExists(strFilename) Then
            writeFileSystem.DeleteFile (strFilename)
        End If

        Set writeFile = writeFileSystem.CreateFile(strFilename, True)
        Set writeStream = writeFile.OpenAsTextStream("ForWriting")
        Err = 0
       
        'add them to the collection
        For i = 1 To ptSelection.Count
            ptCollection.add ptSelection.Item(i).Value
        Next
        ptSelection.Clear

---

Tschau,
Joe

------------------
Inoffizielle Catia Hilfeseite

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

---

@bgrittmann

Tools > Macro > Macros
Makrobibliotheken...
Vorhandene Bibliotheken hinzufügen... > Ordner auswählen in dem das "Macros.catvba" liegt
Schließen
im Fenster Macros > Auswählen... > im Fenster "eine Makrodatei auswählen" den DAteityp auf *.catvba stellen und öffnen
anschließend das Marco "ExportPoints" mit "Bearbeiten" im VBA-Editor öffnen

------------------
Ein Auto ist erst dann schnell genug, wenn man morgens davor steht und Angst hat, es aufzuschließen! 

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

---

Servus Hans
Das ist mir schon klar.
Bei mir kommt die Meldung "Modul fehlt" wenn ich den Code anschauen/analysieren will.

Gruß
Bernd

------------------
Warum einfach, wenn es auch kompliziert geht.

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

---

Hi Bernd,

Zitat:

---

"Modul fehlt"

---

kam bei mir nicht. Aber eine fehlende Referenz(Excel) hat's angemeckert.
Hab die entsprechende(unnötige) Zeile in der txt-Export-Routine auskommentiert, die Box unter Referenzen deselektiert und dann lief's.

Just a thought,
Joe

------------------
Inoffizielle Catia Hilfeseite

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