|
EvApplication > EvFile > EvVariablesCollection > EvVariableBase As EvVariableAcoustic > EvVariableAcousticProperties > EvData View the Echoview COM object hierarchy and the Echoview summary of COM objects. |
The EvData object gives you access to information about settings on the Data page of the Variable Properties dialog box of the acoustic variable via the EvVariableAcousticProperties.Data property.
The following EvData properties are detailed below:
| EvData Properties: Collections, Classes and Members |
|
ApplyMaximumThreshold |
EvData implements the following properties:
|
Description |
|
|
ApplyMaximumThreshold |
(read-write) boolean ApplyMaximumThreshold SummaryAccess or change the value for the setting Apply maximum threshold. |
|
ApplyMinimumThreshold |
(read-write) boolean ApplyMinimumThreshold SummaryAccess or change the value for the setting Apply minimum threshold. |
|
ApplyTimeVariedThreshold |
(read-write) boolean ApplyTimeVariedThreshold SummaryAccess or change the value for the setting Apply time varied threshold. |
|
LockSvMinimum |
(read-write) boolean LockSvMinimum SummaryAccess or change the value for the setting Lock Sv minimum. |
|
LockSvMaximum |
(read-write) boolean LockSvMaximum SummaryAccess or change the value for the setting Lock Sv maximum. |
|
MaximumThreshold |
(read-write) double MaximumThreshold SummaryAccess or change the value for the setting Maximum threshold. Example
Dim strVar: strVar = "Sv pings"
Dim EvApp: Set EvApp = CreateObject("EchoviewCom.EvApplication")
If EvApp.EvFiles.Count = 0 Then
Msgbox "No EV file open"
WScript.Quit
End If
Dim EvVar: Set EvVar = EvApp.EvFiles(0).Variables.FindByName(strVar)
Dim SvVar: Set SvVar = EvVar.AsVariableAcoustic
If SvVar Is Nothing Then
MsgBox "Failed to find '" & strVar & "'"
WScript.Quit
End If
''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
MsgBox "ApplyMinimumThreshold: " & SvVar.Properties.Data.ApplyMinimumThreshold
SvVar.Properties.Data.ApplyMinimumThreshold = False
MsgBox "ApplyMinimumThreshold: " & SvVar.Properties.Data.ApplyMinimumThreshold
''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
SvVar.Properties.Data.ApplyMinimumThreshold = True
MsgBox "MinimumThreshold: " & SvVar.Properties.Data.MinimumThreshold
SvVar.Properties.Data.MinimumThreshold = -10.00
MsgBox "MinimumThreshold: " & SvVar.Properties.Data.MinimumThreshold
|
|
MinimumThreshold |
(read-write) double MinimumThreshold SummaryAccess or change the value for the setting Minimum threshold. |
|
MaximumThresholdedValuesSetTo |
(read-write) string MaximumThresholdedValuesSetTo SummaryAccess or change the value for the setting Maximum thresholded values set to. |
|
TimeVariedThresholdSvAt1m |
(read-write) double TimeVariedThresholdSvAt1m SummaryAccess or change the value for the setting Time varied threshold Sv at 1m. |