Omron NX701-1 - Page 355

10-49
10 Sample Programming
NJ/NX-series CPU Unit Motion Control User’s Manual (W507)
10-2 Basic Programming
Samples
10
10-2-12 Changing the Cam Table by Re-execution of an Instruction
// If the input parameters for absolute positioning and starting cam operation are not set, the target values and other
parameters are set.
IF InitFlag=FALSE THEN
// The input parameters for the MC_MoveAbsolute (Absolute Positioning) instruction are set.
Mv_Abs_Pos := LREAL#10000.0;
Mv_Abs_Vel := LREAL#2000.0;
Mv_Abs_Acc := LREAL#2000.0;
Mv_Abs_Dec := LREAL#2000.0;
// The input parameters for the MC_CamIn (Start Cam Operation) instruction are set.
Camin_EM := TRUE;
Camin_StMode := _eMC_START_MODE#_mcAbsolutePosition;
Camin_StPos := LREAL#1.0;
Camin_MStDis := LREAL#1.0;
Camin_MSc := LREAL#1.0;
Camin_SSc := LREAL#1.0;
Camin_MO := LREAL#0.0;
Camin_SO := LREAL#0.0;
Camin_RT := _eMC_REFERENCE_TYPE#_mcCommand;
Camin_Dir := _eMC_DIRECTION#_mcNoDirection;
// The cam table is selected.
CamTable0 :=BOOL#TRUE;
CamTable1 :=BOOL#FALSE;
// The Input Parameter Initialization Completed Flag is changed to TRUE.
InitFlag := TRUE;
END_IF;
// If the Servo Drive is ready when StartPg is TRUE, turn ON the Servo for axis 0.
IF (StartPg=TRUE)
AND (MC_Axis000.DrvStatus.Ready=TRUE) THEN
Pwr_En:=TRUE;
ELSE
Pwr_En:=FALSE;
END_IF;
// If the Servo Drive is ready when StartPg is TRUE, turn ON the Servo for axis 1.
IF (StartPg=TRUE)
AND (MC_Axis001.DrvStatus.Ready=TRUE) THEN
Pwr2_En:=TRUE;
ELSE
Pwr2_En:=FALSE;
END_IF;
// If a minor fault level error occurs for axis 0 or axis 1, the error handler for the device (FaultHandler) is executed.
// Program the FaultHandler according to the device.
IF (MC_Axis000.MFaultLvl.Active=TRUE)
OR (MC_Axis001.MFaultLvl.Active=TRUE) THEN
FaultHandler();
END_IF;
// If the Servo is ON for axis 0 and home is not defined, the MC_Home instruction is executed.
IF (Pwr1_S=TRUE)
AND (MC_Axis000.Details.Homed=FALSE) THEN
Hm1_Ex:=TRUE;
END_IF;
// If the Servo is ON for axis 1 and home is not defined, the MC_Home instruction is executed.
IF (Pwr2_S=TRUE)
AND (MC_Axis001.Details.Homed=FALSE) THEN
ST Programming