How to export coordinates from several layers of a catpart into an excel file? - CATIA

I need help on how to create a macro on CATIA that gives me all the coordinates from several geometries of my catpart. The final result should be a file like this:

START EOP
P 309
2999.0500 -465.9290 -1016.9800
2969.0800 -468.4060 -1018.1900
2939.1000 -470.8410 -1019.3500
2909.1100 -473.2350 -1020.4500
...
END EOP

Afterwards I will use theme to project geometries using a VIRTEK laser.

Thank you all in advance and happy new year!!