Interlockings.Create

Create(bsName As String,bCommand As Boolean) As Interlocking

Parameters

bsName As String

Name as string.

bCommand As Boolean

If this value is set to 'True' then a "Command" is created instead of an "Assignment".
"Commands" are only available within an "Energy Edition - License"!

Remarks

Creates a new Interlocking an returns this new object.

Sample:

Sub Interlockings()

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

'Fill the objects
Set zInterlockings = MyWorkspace.ActiveDocument.Interlockings
'Creates an interlocking called "Interl_1" with an assignment
Set zInterlocking = zInterlockings.Create("Interl_1", False)
Debug.Print "Count = " & zInterlockings.Count

End Sub

See Also

Interlockings, Interlocking