Description

This subroutine sets the lock flag for an ARN.  True means the ARN will be locked.  False means the ARN will not be locked.

Syntax

ARNSetLocked( arnNode, bLocked )

Parameters

arnNode As Long

The node number of the ARN being modified.

bLocked As Boolean

Argument indicating whether the ARN will be locked (True) or not locked (False).

Example

The following example loops over all ARN in the document, locks all valid nodes and then prints to the output window the number of ARN that were locked.

Sub Main

    Dim curArn As Long, arnMaxNode As Long, lockCount As Long

    lockCount = 0

    arnMaxNode = ARNGetMaxNodeNum()

    For curArn = 0 To arnMaxNode

        If ARNIsValidNode( curArn ) Then

                    ARNSetLocked( curArn, True )

                    lockCount += 1

        End If

    Next

    Print lockCount & " ARNs locked."

End Sub

See Also

ARN Script Commands