cnc-club.ru

Код: Выделить всё

main()
{
input1=eparam&0xFFFF;//P
input2=eparam>>16;	//L
state1=0;
state2=0;
timer=0;
message=PLCCMD_MOTION_CONTINUE;
texit=timer+2;do{timer++;}while(timer<texit);
ready=0;
state1=0;
state2=0;
do
{
 timer++;
 a=portget(input1);
 if (state1==0)
 {
    if (a!=0) 
		{
			state1=1;
			position1=gvarget(5021+0);	//Machine X
		};
 };

 a=portget(input2);
 if (state2==0)
 {
    if (a!=0) 
		{
			state2=1;
			position2=gvarget(5021+0);	//Machine X
		};
 };

}while((state1+state2)!=2);

gvarset(100,position1-position2);
texit=timer+2;do{timer++;}while(timer<texit);

message=PLCCMD_MOTION_SOFT_SKIP;
texit=timer+2;do{timer++;}while(timer<texit);

exit(99);
};

Код: Выделить всё

#define var_address var00
#define var_value   var01
main()
{
timer=0;
lparam=eparam>>16;
axis=(lparam>>2)&0xf;     //L-parameter >> 2 low bits - dir
channel=(lparam>>6)&0xf;  //L-parameter >> 3 bits 
var_value=15;
var_address=112+channel;//channel turn off
message=PLCCMD_SET_CNC_VAR;
texit=timer+2;do{timer++;}while(timer<texit);
exit(99);
};

Код: Выделить всё

#define var_address var00
#define var_value   var01

main()
{
timer=0;
lparam=eparam>>16;
axis=(lparam>>2)&0xf;     //L-parameter >> 2 low bits - dir
channel=(lparam>>6)&0xf;  //L-parameter >> 3 bits 
dir=lparam & 1;
var_address=112+channel;//channel 0 set up
var_value=axis;
if (dir!=0) {  var_value=16+axis;  };
message=PLCCMD_SET_CNC_VAR;
texit=timer+10;do{timer++;}while(timer<texit);
exit(99);
};

Код: Выделить всё

M144 P5 L4 (Stop if Sensors #4, #5 triggered)
G91 G0 X100 F100
G90 G10 L70 P0 X0
G04 P0.5
M145 P0 L3200
G10 L193 P100 Q5530
G10 L190 P100 Q99
G90 G28.9 X100 F200
M146 P0 L3200