VB.Net Automation of MovePoint Values

Try this:

NewCMD = PCDCommands.add(pcdlrn.obtype.move_point, true)

Dim Move_Cmd as pcdlrn.MoveCmd

Move_Cmd = NewCMD.MoveCommand

Dim objPointData as new pcdlrn.PointData with {.x = yourvalue, .y = yourvalue, .z = yourvalue}

Move_Cmd.XYZ = objPointData

Easiest way to reverse engineer how to do something in PC-DMIS is to put the commands you wish to do in a program. Then go to File  --> Export --> Basic and open it in a text viewer to see how the syntax works

Dim DmisApp As Object
Dim DmisPart As Object
Dim DmisCommands As Object
Dim DmisCommand As Object
Set DmisApp = CreateObject("PCDLRN.Application")
Set DmisPart = DmisApp.ActivePartProgram
Set DmisCommands = DmisPart.Commands

Set DmisCommand = DmisCommands.Add(MOVE_POINT, TRUE)
    DmisCommand.Marked = TRUE
  ' Set Learn Mode  = NORMAL
    retval = DmisCommand.SetToggleString (1, NORM_RELEARN, 0)
  ' Set Theoretical X  = 3
    retval = DmisCommand.PutText ("3", THEO_X, 0)
  ' Set Theoretical Y  = 5
    retval = DmisCommand.PutText ("5", THEO_Y, 0)
  ' Set Theoretical Z  = 8
    retval = DmisCommand.PutText ("8", THEO_Z, 0)

Excellent. That does work.

Darn!  Great technique.

I was shown that years ago.  I really dislike getting older and forgetful.