' Pick and Place

Sub PRO1
   Set Ctrl = cao.AddController("", "CaoProv.DENSO.NetwoRC", "", "Conn=eth:192.168.0.1")

   Set arm = Ctrl.AddRobot("VM")
   arm.SPEED -1, 100	 '-1：手先速度
   FOR I=1 TO 10
      arm.MOVE 1, "P11"
      arm.APPROACH 1, 0, 12, -2, 100 'APPROACH P,P12,@E 100
      EXT.Delay 1000
      arm.MOVE 2, "P12"
      EXT.Delay 600
      arm.DEPART 2, -1, 100 'DEPART L,@P 100
      arm.MOVE 2, "P11"
      arm.MOVE 1, "P13"
      arm.MOVE 2, "P14"
      EXT.Delay 500
      arm.MOVE 1, "P13"
   NEXT
End Sub