I think I've found the issue with your original API that could not write to the Data Table, and subsequently gave nothing to write to the .csv. Your method to save to to a .csv was correct.
When you were populating the array "C0", your method of "C0(count) = count" resulted in "C0( 0 ) = 0 ". This is not valid. I simply changed it to "C0(count) = count + 1" in order to allow the ID column to start at 1.
In addition, I changed how you dimensioned "OutputSet" to oSet. Your oringial was creating an object with the exact same string name as the object definition. This could not only be confusing, but lead to errors in your program.
When populating the .csv, this API will output everything in a straight line, comma-separated. There are additional techniques such as copying the Data Table by each row or column, or using tools such as "Chr(10)" to get cariage return while writing strings.
Modified API below.
The HTML Clipboard
Sub Main
' FEMAP itself
Dim App As femap.model
Set App = feFemap()
' The data table
Dim data As femap.DataTable
Set data = App.feDataTable
' Clear the data table as a precaution
Dim rc As Long
rc = data.Clear
' Create a set to contain the selected elements
Dim elmSet As femap.Set
Set elmSet = App.feSet
' Create a set to contain the output set and vector(s)
Dim oSet As femap.OutputSet
Set oSet = App.feOutputSet
Dim VectorSet As femap.Set
Set VectorSet = App.feSet
Dim OutputVector As femap.Output
Set OutputVector = App.feOutput
' Some other variables
Dim C0 As Variant
Dim C1 As Variant
Dim C2 As Variant
Dim C3 As Variant
Dim C4 As Variant
Dim C5 As Variant
Dim C6 As Variant
Dim minID As Long
Dim maxID As Long
Dim newColID As Long
Dim OutputCount As Long
Dim minVal As Double
Dim maxVal As Double
Dim LocPath As String
Dim CsvFile As String
Dim fName As String
'Get the filename and local path of the csv file
fName = ""
App.feFileGetName ("Export maximum vector", "Comma Seperated File","*.csv", False, fName)
' Extract the filename and the save directory
CsvFile = Mid(fName, InStrRev(fName, "\") + 1)
LocPath = Left(fName, Len(fName)-Len(NastFile))
' Catching if the user has not selected a filename or pressed cancel
If Len(fName) = 0 Then
App.feAppMessage(3,"Process cancelled!")
GoTo Jumping_Out
End If
' Set the counter to 0
count = 0
' Get the maximum vector values
If App.feSelectOutput( "Select Output Vectors", -1, FOT_ANY, FOC_ANY, FT_ELEM, False, oSet, VectorSet ) = FE_OK Then
If elmSet.Select( FT_ELEM, True, "Select Elements" ) = FE_OK Then
OutputCount =oSet.Count * VectorSet.Count - 1
App.feAppManagePanes ( "Data Table", 1)
data.Lock ( False )
ReDim C0(OutputCount) As Long
ReDim C1(OutputCount) As Double
ReDim C2(OutputCount) As Double
ReDim C3(OutputCount) As Double
ReDim C4(OutputCount) As Double
ReDim C5(OutputCount) As Double
ReDim C6(OutputCount) As Double
' Go to the next output set
While oSet.Next()
VectorSet.Reset()
' Go to the next output vector
While VectorSet.Next()
rc = OutputVector.GetFromSet( oSet.CurrentID(), VectorSet.CurrentID() )
rc = OutputVector.FindMaxMin(elmSet.ID, True, minID, minVal, maxID, maxVal)
App.feAppMessage( FCM_NORMAL, Str$(oSet.CurrentID)+";"+Str$(VectorSet.CurrentID)+";"+Str$(minID)+";"+Format$(minVal/1000000, "0.00")+";"+Str$(maxID)+";"+Format$(maxVal/1000000, "0.00"))
' Fill the array for the datatable
C0(count) = count+1
C1(count) = oSet.CurrentID()
C2(count) = VectorSet.CurrentID()
C3(count) = minID
C4(count) = minVal
C5(count) = maxID
C6(count) = maxVal
count = count + 1
Wend
Wend
' Write the data to the data table
rc = data.AddColumn( False, False, FT_ELEM, 0, "Output Set ID",FCT_DOUBLE, OutputCount, C0, C1, newColID )
rc = data.AddColumn( False, False, FT_ELEM, 0, "Output Vector ID", FCT_DOUBLE, OutputCount, C0, C2, newColID )
rc = data.AddColumn( False, False, FT_ELEM, 0, "Minimum element ID", FCT_DOUBLE, OutputCount, C0, C3, newColID )
rc = data.AddColumn( False, False, FT_ELEM, 0, "Minimum value", FCT_DOUBLE, OutputCount, C0, C4, newColID )
rc = data.AddColumn( False, False, FT_ELEM, 0, "Maximum element ID", FCT_DOUBLE, OutputCount, C0, C5, newColID )
rc = data.AddColumn( False, False, FT_ELEM, 0, "Maximum value", FCT_DOUBLE, OutputCount, C0, C6, newColID )
End If
End If
'Exporting the data table to a txt file
rc = data.Save(True, fName, FSF_CSV)
' Notify the user that the process is finished.
App.feAppMessage(3,"The maximum stresses have been exported to " & fName & ".")
' Specifying the goto point for exiting the sub
Jumping_Out:
' Clear the data table
'rc = data.Clear
End Sub
