Function EquipmentType( ByVal nHandle& ) As Long
Purpose: Gets object type associated with a given handle.
Works in: OneLiner and Power Flow.
Parameters:
nHandle [in] data object handle
Return value:
>0 equipment type code
0 failure
Remarks: The input requires a valid equipment handle.
Example:
If EquipmentType( nBusHnd ) <> TC_BUS Then
Print "Must select a bus"
Stop
End If