---

HP_Export_orig.zip

Hallo Zusammen,

ich würde gerne das angehängte Makro zum Punkteexport zu Excel verwenden. Allerdings würde ich gerne eine Änderung vornehmen.
Die Punkte sollen nicht vorher angewählt werden sondern automatisch selektiert werden.
Undzwar liegen alle Punkte in einem Geometrical Set.

Kann wir jemand dabei helfen ich weiß leider nicht wie ich alle punkte in einem Set auf einmal anwählen kann.

Vielen Dank für die Hilfe!!!

------------------
Dipl.Ing. Fahrzeugtechnik
CATIA V5R16sp5

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

---

Ich hab ne Lösung für mein Problem gefunden:

"Redim aCoord(2)

Set Datei = CATIA.FileSystem.CreateFile ("c:\tmp\Punkte.csv", True)

Dim ostream as TextStream
Set ostream = Datei.OpenAsTextStream ("ForAppending")

ostream.Write (";" &Chr(10)& ";" & "Punkte" & Chr(10)& Chr(10))
 
  ostream.Write ( "Element" & ";" & "X-Koordinate" & ";" & "Y-Koordinate" & ";" & "Z-Koordinate" & Chr(10))

set oshapes = CATIA.ActiveDocument.Part.HybridBodies.Item("Geo1").HybridShapes

For i=1 to oshapes.count

oshapes.Item(i).getcoordinates aCoord
ostream.Write(oshapes.Item(i).name &";" &acoord(0) & ";" & acoord(1) & ";" & acoord(2) & Chr(10))

Next

End Sub"

Alerdings würde ich gerne die Tabelle umbenennen sowie noch eine Tabelle erstellen in der ich weitere Punkte ablegen kann.

Hat jemand eine idee?

------------------
Dipl.Ing. Fahrzeugtechnik
CATIA V5R16sp5

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