LockPoints Example

LockPoints Example

Sub Example_LockPoints()

    ' This examples locks a series of point numbers and

    ' then unlocks a subset of those point numbers.

    Dim cogoPnts As AeccCogoPoints

    Set cogoPnts = AeccApplication.ActiveProject.CogoPoints

    ' Create locked point string

    Dim pntString As String

    pntString = "1,4-8,40,10,12"

    ' Lock points

    cogoPnts.LockPoints (pntString)

    MsgBox "Locked point numbers are " & cogoPnts.LockedPointNumbers, _

        vbInformation, "LockPoints Example"

    ' Create unlock point string

    pntString = "4-8"

    ' Unlock points

    cogoPnts.UnlockPoints (pntString)

    MsgBox "Locked point numbers are " & cogoPnts.LockedPointNumbers, _

        vbInformation, "LockPoints Example"

End Sub