Macro Facing program

[lnoble]

Hi,

 

I Have been starting to learn some macro programming but I have hit a snag with a format error.  Could anyone help me out?

Here is the basic facing program that I have started.

 

%

O0001( PROGRAM: FACING PROGRAM )

( 11/15/2015 AT 10:11 AM )

(MACRO FACING PROGRAM)

 

#500=1 (TOOL NUMBER)

#501=3 (TOOL DIA)

#502=9000 (SPINDLE SPEED)

#503=90. (FEED RATE)

#504=.05 (DEPTH OF CUT)

#505=.1 (TOTAL AMOUT TO BE REMOVED)

#506=59 (WORK OFFSET)

#507=2 (LENGTH OF PART)

#508=2 (WIDTH OF PART)

#509=1 (OUT OF VICE, PHYSICALLY MEASURE!)

#510=0 (NUMBER OF Y PASSES)

#511=0.0(DO NOT CHANGE)

 

N1G0G20G40G80G49G17G94G98

G90

T#500M6

G0G90G#506X[#507/2+#501]Y0

S#502M3

M8

G43Z4.H#500

Z1.

N2WHILE[-#505LE#511]DO1

#511=[#511-#504]

IF[#511GE#509*-1]THEN#3000=1

IF[-#505GT#511]GOTO20 (this is where it seems to be hanging up)

G1Z#511F[#503/4]

X-[#507/2-#501]F#503

G0Z.1

X[#507/2+#501]

END1

N20#511=-#505

IF[#511GE#509*-1]THEN#3000=1

G1Z#511F[#503/4]

X-[#507/2-#501]F#503

G0Z.1

M9

G49G53Z0

M5

G91G28X0.Y0.

M30

%

 

any input would be greatly appreciated , Thanks

 

[Guest]

I would change the following;

IF[-#505...]

 

to;

 

IF[#505...]

 

Then make the #505=-.1

 

But that's just me.

 

HTH

[Guest]

Change --> IF[#511GE#509*-1]THEN#3000=1

 

to

 

IF[#511LE#509*-1]THEN#3000=1

 

 

This will allow the program to run. I am not sure if it will run quite as you intend it but it no longer hangs. You can also simply set #509 to a negative value.
 

#504=.05 (DEPTH OF CUT)

#509=1 (OUT OF VICE, PHYSICALLY MEASURE!)

#510=0 (NUMBER OF Y PASSES)

#511=0.0(DO NOT CHANGE)

 

#511=[#511-#504] -----> #511= -0.05

IF[#511GE#509*-1]THEN#3000=1 ---> If -0.05 GE -1.0 (which it is, and always will be when #509 is a positive value) then alarm out.

[cncchipmaker]

Did you mean:

 

IF[ABS[#505]GT#511]GOTO20 ?

 

This would allow to evaluate a positive or negative number in #505.