Sub CATMain()

Dim productDocument1 As ProductDocument
Dim partDocument1 As PartDocument
Dim oPart As Part
Dim relations1 As Relations
Dim oTable As DesignTable
Dim specsAndGeomWindow1 As SpecsAndGeomWindow
Dim viewer3D1 As Viewer3D
Dim viewpoint3D1 As Viewpoint3D
Dim part1 As Part
Dim specsAndGeomWindow2 As SpecsAndGeomWindow
Dim viewer3D2 As Viewer3D
Dim viewpoint3D2 As Viewpoint3D
Dim product1 As Product


Set specsAndGeomWindow1 = CATIA.ActiveWindow
Set viewer3D1 = specsAndGeomWindow1.ActiveViewer
Set viewpoint3D1 = viewer3D1.Viewpoint3D
Set partDocument1 = CATIA.ActiveDocument
Set oPart = partDocument1.Part
Set relations1 = oPart.Relations
Set oTable = relations1.Item("DesignTable")
Set oFileSys = CATIA.FileSystem
    oPfad = "D:\temp\"

oFileNameRAW = oPfad + "_deflection_case_"
OriConfig = oTable.Configuration

For i = 1 To oTable.ConfigurationsNb
    oFileName = oFileNameRAW & i
    oTable.Configuration = i
    oPart.Update
    
    Set viewpoint3D2 = viewer3D2.Viewpoint3D
    product1.Update
    Set productDocument1 = CATIA.ActiveDocument
    productDocument1.ExportData oFileName & i, "cgr"
    Set viewpoint3D1 = viewer3D1.Viewpoint3D
    Set partDocument1 = CATIA.ActiveDocument
    
    
Next
oTable.Configuration = OriConfig


End Sub