I found it!!! this an example how to get it:
Dim CmpCol As MGCPCB.Components
Dim Geometry As MGCPCB.Geometry
Dim Outline As MGCPCB.FabricationLayerGfx
Set CmpCol = pcbDoc.Components
For Each Cmp In CmpCol
For Each Outline In Cmp.FabricationLayerGfxs
Set Geometry = Outline.Geometry
If Geometry.IsCircle() Then
ElseIf Geometry.IsRect() Then
ElseIf Geometry.IsPath() Then
ElseIf Geometry.IsClosed() Then
You may want to specify epcbFabAssembly when accessing the Cmp.FabricationLayerGfxs property, so that you only get the assembly graphics.
As the code is currently written, you are getting all fabrication layer graphics, including soldermask, solderpaste, and silkscreen.