Interlocking

ED	avaliable
RT	not used

Remarks:

With the interlocking object you have the opportunity to edit standard interlockings and command interlockings (zenOn Energy edition)

Methods:

CreateDynProperty	DynPropertiesEnum[GET]	DynProperties[GET]
DynProperties[PUT]

DynProperties:

Name	Type	Description
Actions	SUBITEM
IsGeneral	Boolean
Name	String	Name Unique name of the interlocking. Default: Interlocking x (where x is a consecutive number). ATTENTION: This property is not available for language switching. Read more in the online manual
TTA	String
Variables	SUBITEM

Samples:



Sub Get_Interlocking_Information()

Dim zInterlockings As Interlockings 'Object from type Interlockings
Dim zInterlocking As Interlocking   'Child object from type Interlocking

	'Load the available Interlockings
	Set zInterlockings = thisProject.Interlockings
	'Select a command interlocking called "switches"
	Set zInterlocking = zInterlockings.Item("switches")
		
		'Get all projected informations of the first action
		'Get action type
		Debug.Print "Action type = " & zInterlocking.DynProperties("Actions[0].Type")
		'Get the linked variable
		Debug.Print "Variable = " & zInterlocking.DynProperties("Actions[0].TTA")
		'Get the "switching direction"
		Debug.Print "Switching direction = " & zInterlocking.DynProperties("Actions[0].Direction")
		'Get the "command setting status"
		Debug.Print "Command setting status = " & zInterlocking.DynProperties("Actions[0].CommandState")
		'Get state "CEL entries suppressed"
		Debug.Print "CEL entries are suppressed = " & zInterlocking.DynProperties("Actions[0].CELBlock")
		'Get the "timeout" in seconds
		Debug.Print "Timeout (s) = " & zInterlocking.DynProperties("Actions[0].Timeout")
		'Get the "edge delay" in milliseconds
		Debug.Print "Edge delay (ms) = " & zInterlocking.DynProperties("Actions[0].EdgeDelay")
		'Get the "modifyable stati"
		Debug.Print "Modifyable stati = " & zInterlocking.DynProperties("Actions[0].State")
		'Get state "nominal/actual value comparison"
		Debug.Print "Nominal/actual value comparison is activated = " & zInterlocking.DynProperties("Actions[0].Actual")
		'Get the "menu specific picture"
		Debug.Print "Menu specific picture = " & zInterlocking.DynProperties("Actions[0].Picture")
		 'Get state "close automatically"
		Debug.Print "Close automatically is activated = " & zInterlocking.DynProperties("Actions[0].CloseMDIWnd")
		'Get state "two-stage"
		Debug.Print "Two-stage is activated = " & zInterlocking.DynProperties("Actions[0].TwoLevel")
	 'Get state "two-hand operation"
		Debug.Print "Two-hand operation is activated = " & zInterlocking.DynProperties("Actions[0].TwoHand")

End Sub