use a script to extract the cavity weight results and deflection,all effects:Deflection results

[1292909313]

I want to use a script to extract the cavity weight results and deflection,all effects:Deflection results of 100 items into a csv file, what should I do?

[bernor_mf]

@1292909313 

Hi,
a way of doing this is to loop through all studies in the project.
Basically a script that opens each study with results and read the label info.

Open the study.
Get the max and/or min value from result label.
Write info to a file.
Close the study.

Attach a piece of code that shows max value from result plot "Cavity weight" and
for "Deflection, all effects:Deflection".

SetLocale("en-us")
Dim SynergyGetter, Synergy
On Error Resume Next
Set SynergyGetter = GetObject(CreateObject("WScript.Shell").ExpandEnvironmentStrings("%SAInstance%"))
On Error GoTo 0
If (Not IsEmpty(SynergyGetter)) Then
	Set Synergy = SynergyGetter.GetSASynergy
Else
	Set Synergy = CreateObject("synergy.Synergy")
End If
Synergy.SetUnits "Metric"
 
Set PlotManager = Synergy.PlotManager()

ResultName = "Cavity weight"  
Set Plot = PlotManager.FindPlotByName(ResultName)
Set Viewer = Synergy.Viewer() 
Plot.SetScaleOption 0
Viewer.HidePlot Plot   
Viewer.ShowPlot Plot   
maxV = Plot.GetMaxValue
minV = Plot.GetMinValue
MsgBox ResultName & " = " & FormatNumber(maxV,2,,,0),,"Information"

ResultName = "Deflection, all effects:Deflection"
Set Plot = PlotManager.FindPlotByName(ResultName)
Set Viewer = Synergy.Viewer()
Plot.SetScaleOption 0
Viewer.HidePlot Plot   
Viewer.ShowPlot Plot 
maxV = Plot.GetMaxValue
minV = Plot.GetMinValue
MsgBox ResultName & " Max= " & FormatNumber(maxV,2,,,0) & " Min= " & FormatNumber(minV,2,,,0),,"Information"

Viewer.HidePlot Plot 

Hope this helps as a starting point to move forward.

Regards,
Berndt