Function DoAcrFlash( byVal nBusHnd&, byRef vdFltOpt(), byRef vdResult() )
as Long
Purpose: Run arc flash calculator
Works in: OneLiner only.
Parameters:
nBusHnd [in] handle of the study bus.
vdFltOpt
[in] study parameters
vdFltOpt[1]
Equipment category: 0-Switchgear; 1-Cable; 2- open
air;
3- MCC's and panelboards 1kV or lower
vdFltOpt[2]
Grounding: 0-Ungrounded;1-Grounded
vdFltOpt[3]
Enclosure: 0-Not enclosed;1-Enclosed
vdFltOpt[4]
Conductor gap in mm
vdFltOpt[5]
Working distance in inches
vdFltOpt[6]
Fault clearing: -1- Auto; -2- manual clearing time;
-3-
Stepped-event-analysis; >0- clearing device handle
vdFltOpt[7]
Breaker interrupting time in cycles or manual
clearing time in seconds
vdFltOpt[8]
Ignore-2-second flag: 0-reset; 1-set
vdFltOpt[9] Number of tiers to include in protective device list
vdResult [out] study result
vdResult[1] Bolted 3PH fault current (kA)
vdResult[2] Arcing current (kA)
vdResult[3] Clearing device handle at 100% current
vdResult[4] Clearing time at 100% current (seconds)
vdResult[5] Incident energy at 100% current (cal/cm2)
vdResult[6] Clearing device handle at 85% current
vdResult[7] Clearing time at 85% current
vdResult[8] Incident energy at 85% current
vdResult[9] Required PPE level
vdResult[10] PPE cat. 1 flash hazard boundary (inches)
vdResult[11] PPE cat. 2 flash hazard boundary (inches)
vdResult[12] PPE cat. 3 flash hazard boundary (inches)
vdResult[13] PPE cat. 4 flash hazard boundary (inches)
vdResult[14]
Above PPE cat. 4 flash hazard boundary (inches)
Return value:
1 success
0 failure
Remarks:
Example:
vdOption(1) = 0 '0-Switchgear; 1-Cable; 2- open air
vdOption(2) = 1 '0-Ungrounded;1-Grounded
vdOption(3) = 0 '0-No enclosure;1-Enclosed
vdOption(4) = 153 'Conductor gap in mm
vdOption(5) = 36 'Working distance in inches
vdOption(6) = -1 'Fault clearing:-1- Auto;-2- manual clearing Time;>0- clearing device handle
vdOption(7) = 1.5 'Breaker interrupting time in cycles or manual clearing time in seconds
vdOption(8) = 1 'Ignore 2 second flag: 0-reset; 1-set;
If 0 = DoAcrFlash( nBusHnd, vdOption, vdResult ) Then GoTo HasError
Print vdResult(1), "," , vdResult(2) , _
"," , FullRelayName(vdResult(3)), ",", vdResult(4), ",", vdResult(5), _
"," , FullRelayName(vdResult(6)), ",", vdResult(7), ",", vdResult(8), _
"," , vdResult(9), ",", vdResult(10), ",", vdResult(11), ",", vdResult(12), _
",", vdResult(13)