' COPYRIGHT DASSAULT SYSTEMES 2000

' ***********************************************************************
'   Purpose:      Export data on image
'   Assumtions:   displacement symbol image exists in the document
'   Author:       bmw
'   Languages:    VBScript
'   Locales:      English 
'   CATIA Level:  V5R16
' ***********************************************************************

Sub CATMain()

' ----------------------------------------------------------- 
' Optional: allows to find the sample wherever it's installed
  sDocPath=CATIA.SystemService.Environ("CATDocView")
  sSep=CATIA.SystemService.Environ("ADL_ODT_SLASH")
  sOut =  CATIA.SystemService.Environ("CATTemp")

    If (Not CATIA.FileSystem.FolderExists(sDocPath)) Then
      Err.Raise 9999,,"No Doc Path Defined"
    End If
' ----------------------------------------------------------- 


' Open the CATAnalysis Document
sFilePath = CATIA.FileSystem.ConcatenatePaths(sDocPath, "online\CAAScdAniUseCases\samples\Cube_R13_Freq.CATAnalysis")
Set oAnalysisDocument = CATIA.Documents.Open(sFilePath)


Set oAnalysisManager = oAnalysisDocument.Analysis

Set oAnalysisModels = oAnalysisManager.AnalysisModels

Set oAnalysisModel = oAnalysisModels.Item(1)

Set oAnalysisSets = oAnalysisModel.AnalysisSets

Set oAnalysisSet = oAnalysisSets.ItemByType("PropertySet")

Set oAnalysisImages = oAnalysisSet.AnalysisImages

Set oAnalysisImage = oAnalysisImages.Add("Material_Fringe", False, False, True)

'export data in exportfile1.txt (format txt)
'==============================

Set fileSystem1 = CATIA.FileSystem

Set folder1 = fileSystem1.GetFolder(sOut)

oAnalysisImage.ExportData folder1, "exportfile1", "txt"

'export data in exportfile2.xls (format xls)
'==============================

Set fileSystem2 = CATIA.FileSystem

Set folder1 = fileSystem2.GetFolder(sOut)

oAnalysisImage.ExportData folder1, "exportfile2", "xls"

'export data (with mesh part id) in exportfile3.txt (format txt) 
'==================================================

Set fileSystem3 = CATIA.FileSystem

Set folder1 = fileSystem3.GetFolder(sOut)

oAnalysisImage.ExportDataWithMeshPartId folder1, "exportfile3", "txt"

'export data (with mesh part id) in exportfile4.xls (format xls) 
'==================================================

Set fileSystem4 = CATIA.FileSystem

Set folder1 = fileSystem4.GetFolder(sOut)

oAnalysisImage.ExportDataWithMeshPartId folder1, "exportfile4", "xls"

End Sub