marcel1709
Newbie level 2
Hi everybody
I have a little problem with the CST VB.
I design a model in CST MWS. Know
I want to performe a Parameter-Sweep.
I choose a userdefined output.
Cause I want to analyze some data in matlab,
I want, what CST save for expample the energy in a ascii file.
A new file for every run of the sweep.
But this is not working.
Do you have a idea?
The code:
Code:
Thanking for your in anticipation.
Added after 9 minutes:
I found the answer.
It was to easy!
' userdefined watch for parameter sweep
I have a little problem with the CST VB.
I design a model in CST MWS. Know
I want to performe a Parameter-Sweep.
I choose a userdefined output.
Cause I want to analyze some data in matlab,
I want, what CST save for expample the energy in a ascii file.
A new file for every run of the sweep.
But this is not working.
Do you have a idea?
The code:
Code:
Code:
Option Explicit
Sub ParameterSweepWatch(action As Integer)
'Please define actions for the parameter sweep watch here.
Select Case action
Case 0
'Please define actions before the parametersweep starts.
Case 1
'Please define actions after each calculation.
Dim zaehler As Integer
Dim Dateiname As String
Dim filename As String
Dim Fileendung As String
Dim strwert As String
Dim wertdouble As Double
wertdouble= ParameterSweep.GetValueOfVaryingParameter()
strwert = CStr(wertdouble)
filename = "I:\simulation-Output\File-"
Fileendung = ".txt"
Dateiname =
SelectTreeItem ("1D Results\Energy\Energy [5]")
With ASCIIExport
.Reset
.FileName (Dateiname)
.Mode ("FixedNumber")
.Execute
End With
Case 2
'Please define actions after the parametersweep has finished.
End Select
End Sub
Sub Main()
ParameterSweepWatch 0
ParameterSweepWatch 1
ParameterSweepWatch 2
End Sub
Thanking for your in anticipation.
Added after 9 minutes:
I found the answer.
It was to easy!
' userdefined watch for parameter sweep
Code:
Option Explicit
Sub ParameterSweepWatch(action As Integer)
'Please define actions for the parameter sweep watch here.
Select Case action
Case 0
'Please define actions before the parametersweep starts.
Case 1
'Please define actions after each calculation.
Dim zaehler As Integer
Dim Dateiname As String
Dim filename As String
Dim Fileendung As String
Dim strwert As String
Dim wertdouble As Double
wertdouble = ParameterSweep.GetValueOfVaryingParameter(0)
Parametername = ParameterSweep.GetNameOfVaryingParameter(0)
strwert = CStr(wertdouble)
filename = "I:\simulation-Output\File-"
Fileendung = ".txt"
Dateiname =filename & Parametername & strwert & Fileendung
SelectTreeItem ("1D Results\Energy\Energy [5]")
With ASCIIExport
.Reset
.FileName (Dateiname)
.Mode ("FixedNumber")
.Step(100)
.Execute
End With
Case 2
'Please define actions after the parametersweep has finished.
End Select
End Sub
Sub Main()
ParameterSweepWatch 0
ParameterSweepWatch 1
ParameterSweepWatch 2
End Sub