Set PCDApp = CreateObject("PCDLRN.Application")
Set PCDPartProgram = PCDApp.ActivePartProgram
Set PCDCommands = PCDPartProgram.Commands
VK = 1
VT = GT.Text

 Ptol = -(VT / 2 - 0.01)
  Mtol = (VT / 2 + 0.01)
 
For Each CMD In PCDCommands

Ntext = VK

If CMD.IsDimension Then

If CMD.ID = "" Then
       Set DCmd = CMD.DimensionCommand
       DCmd.Plus = Ptol
        DCmd.Minus = Mtol
       VK = VK + 1

      End If
      End If
    Next CMD

    PCDPartProgram.RefreshPart
    Ntext = "<END>"