1 #include "workflow\TMoveToPointCmd.h"
    2 
    3 TMoveToPointCmd::TMoveToPointCmd ( TCmdTag ct ) : TCmd(ct)
    4 {
    5         double distance;
    6 
    7         bNoMeasure = TRUE;
    8         switch (ct.P1)
    9         {
   10                 case Result:
   11                         StartMove(mlGetAxis(), Steering.dCalcResult);
   12                         break;
   13 
   14                 case Peak:
   15                         StartMove(mlGetAxis(), Steering.dPeakPoint);
   16                         break;
   17 
   18                 case Start:
   19                         StartMove(mlGetAxis(), Steering.dStartPoint);
   20                         break;
   21 
   22                 case LastGoal:
   23                         StartMove(mlGetAxis(), Steering.dGoalDistance);
   24                         break;
   25 
   26                 case Relative:
   27                         mlGetDistance(mlGetAxis(), distance);
   28                         StartMove(mlGetAxis(), distance + atof(ct.P3));
   29                         break;
   30 
   31                 default:
   32                         StartMove(mlGetAxis(), atof(ct.P3));
   33         }
   34         eStep = CReadyStep;
   35 };
   36 
   37 void TMoveToPointCmd::GetName ( LPSTR aName )
   38 {
   39                 strcpy( aName, "MoveToPoint" );
   40 };
   41 
   42 bool TMoveToPointCmd::GetShowData ( LPSTR buffer )
   43 {
   44         buffer[0]= 0;
   45         if ( eStep == CReadyStep )
   46         {
   47                 #ifdef GermanVersion
   48                         sprintf(buffer, "\"MoveToPoint\"-Kommando erfolgreich.");
   49                 #else
   50                         sprintf(buffer, "\"MoveToPoint\"-Command ready.");
   51                 #endif
   52         }
   53         return true;
   54 };
   55