|
yUSEz |
MOVT
|
MOVT X_A|Y_A P(101) MOVT X_A|Y_A P(102) CCW MOVT X_A|Y_A P(i) M(i) |
yFORMATz |
yFUNCTIONz |
MOVT axs Point [CCW|CW|0]
|
|
yEXPLANATIONz |
|
|
|
PG 0 ACCEL 8000 CLRPOS GOSUB *SET_POINT axis=X_A|Y_A MOVL axis P(1000) WAIT RR(axis)==0 FEED axis Y(2000) DS_DACL FOR pnt=1001 TO X(2000) MOVT axis P(pnt) X(1000+pnt) NEXT pnt EN_DACL WAIT RR(axis)==0 END *SET_POINT SETP 1000 10000 20000 0 0 : 'Start SETP 1001 30000 20000 20000 20000 : 'Cir target and Center SETP 1002 30000 10000 0 0 SETP 1003 10000 10000 20000 10000 SETP 1004 10000 20000 0 0 SETP 2000 1004 50 0 0 : 'End of Point and FEED value SETP 2001 CW 0 0 0 : 'P(1000) to P(1001) CW SETP 2002 0 0 0 0 : 'P(1001) to P(1002) linear SETP 2003 CW 0 0 0 : 'P(1002) to P(1003) CW SETP 2004 0 0 0 0 : 'P(1003) to P(1004) linear RETURN |
|
|
[LASTMODIFY]2022-04-14 13:47:41 |
[CREATEDATE]2007-08-31 19:48:36 |
|
|
|