macro post need help

[Lee1]

fmt Z 2 u_depth # User island depth

fmt 2 m_step # Max rough step size

fmt Z 2 n_cut # Numbr of finish cut

fmt Z 2 z_cut # Z of finish cut

fmt Z 2 k_down # Keep tool down

fmt Z 2 d_cut # Depth cut

fmt Z 2 d_order # Depth cut order

fmt 2 o_sub # Output subprogram lable

fmt 2 m_pass # Multi pass

fmt Z 2 n_rough # Number of roughing cut

fmt Z 2 d_rough # Depth of roughing cut

fmt Z 2 n_finish # Number of finish cut

fmt Z 2 d_finish # Depth of finish cut

fmt Z 2 k_down_1 # Keep tool down

fmt Z 2 t_depth # Toolpath depth

fmt Z 2 d_mode # Depth

fmt Z 2 t_stock # Top of stock

fmt Z 2 f_plan # Feed plan

fmt Z 2 f_mode # Feed plan mode

fmt Z 2 t_stock_mode # Top of stock mode

fmt Z 2 c_type # Contour type

fmt Z 2 t_wall # Taper wall

fmt Z 2 t_angle # Taper angle

fmt Z 2 d_order_c # Depth cut order

 

 

 

pparameter$ # Run parameter table

 

if prmcode$ = 10064, u_depth = rpar(sparameter$,1) # User island depth

if prmcode$ = 10065, m_step = rpar(sparameter$,1) # Max rough step size

if prmcode$ = 10066, n_cut = rpar(sparameter$,1) # Numbr of finish cut

if prmcode$ = 10067, z_cut = rpar(sparameter$,1) # Z of finish cut

if prmcode$ = 10069, k_down = rpar(sparameter$,1) # Keep tool down

if prmcode$ = 15211, d_cut = rpar(sparameter$,1) # Depth cut

if prmcode$ = 15379, d_order = rpar(sparameter$,6) # Depth cut order

if prmcode$ = 15738, o_sub = rpar(sparameter$,1) # Output subprogram lable

if prmcode$ = 15214, m_pass = rpar(sparameter$,1) # Multi pass

if prmcode$ = 15560, n_rough = rpar(sparameter$,1) # Number of roughing cut

if prmcode$ = 15561, d_rough = rpar(sparameter$,1) # Depth of roughing cut

if prmcode$ = 15380, n_finish = rpar(sparameter$,1) # Number of finish cut

if prmcode$ = 15381, d_finish = rpar(sparameter$,1) # Depth of finish cut

if prmcode$ = 15385, k_down_1 = rpar(sparameter$,1) # Keep tool down

if prmcode$ = 10029, t_depth = rpar(sparameter$,1) # Toolpath depth

if prmcode$ = 15103, d_mode = rpar(sparameter$,1) # Depth

if prmcode$ = 10027, t_stock = rpar(sparameter$,1) # Top of stock

if prmcode$ = 10024, f_plan = rpar(sparameter$,1) # Feed plan

if prmcode$ = 10025, f_mode = rpar(sparameter$,1) # Feed plan mode

if prmcode$ = 10028, t_stock_mode = rpar(sparameter$,1) # Top of stock mode

if prmcode$ = 12014, c_type = rpar(sparameter$,1) # Contour type

if prmcode$ = 12015, t_wall = rpar(sparameter$,1) # Taper wall

if prmcode$ = 12016, t_angle = rpar(sparameter$,1) # Taper angle

if prmcode$ = 12017, d_order_c = rpar(sparameter$,6) # Depth cut order

 

 

 

 

pwrttparam$ #Information from parameters

 

if prmcode$ = 10064, u_depth = rpar(sparameter$,1) # User island depth

if prmcode$ = 10065, m_step = rpar(sparameter$,1) # Max rough step size

if prmcode$ = 10066, n_cut = rpar(sparameter$,1) # Numbr of finish cut

if prmcode$ = 10067, z_cut = rpar(sparameter$,1) # Z of finish cut

if prmcode$ = 10069, k_down = rpar(sparameter$,1) # Keep tool down

if prmcode$ = 15211, d_cut = rpar(sparameter$,1) # Depth cut

if prmcode$ = 15379, d_order = rpar(sparameter$,6) # Depth cut order

if prmcode$ = 15738, o_sub = rpar(sparameter$,1) # Output subprogram lable

if prmcode$ = 15214, m_pass = rpar(sparameter$,1) # Multi pass

if prmcode$ = 15560, n_rough = rpar(sparameter$,1) # Number of roughing cut

if prmcode$ = 15561, d_rough = rpar(sparameter$,1) # Depth of roughing cut

if prmcode$ = 15380, n_finish = rpar(sparameter$,1) # Number of finish cut

if prmcode$ = 15381, d_finish = rpar(sparameter$,1) # Depth of finish cut

if prmcode$ = 15385, k_down_1 = rpar(sparameter$,1) # Keep tool down

if prmcode$ = 10029, t_depth = rpar(sparameter$,1) # Toolpath depth

if prmcode$ = 15103, d_mode = rpar(sparameter$,1) # Depth

if prmcode$ = 10027, t_stock = rpar(sparameter$,1) # Top of stock

if prmcode$ = 10024, f_plan = rpar(sparameter$,1) # Feed plan

if prmcode$ = 10025, f_mode = rpar(sparameter$,1) # Feed plan mode

if prmcode$ = 10028, t_stock_mode = rpar(sparameter$,1) # Top of stock mode

if prmcode$ = 12014, c_type = rpar(sparameter$,1) # Contour type

if prmcode$ = 12015, t_wall = rpar(sparameter$,1) # Taper wall

if prmcode$ = 12016, t_angle = rpar(sparameter$,1) # Taper angle

if prmcode$ = 12017, d_order_c = rpar(sparameter$,6) # Depth cut order

 

 

 

 

 

u_depth : 0 # User island depth

m_step : 0 # Max rough step size

n_cut : 0 # Numbr of finish cut

z_cut : 0 # Z of finish cut

k_down : 0 # Keep tool down

d_cut : 0 # Depth cut

d_order : 0 # Depth cut order

o_sub : 0 # Output subprogram lable

m_pass : 0 # Multi pass

n_rough : 0 # Number of roughing cut

d_rough : 0 # Depth of roughing cut

n_finish : 0 # Number of finish cut

d_finish : 0 # Depth of finish cut

k_down_1 : 0 # Keep tool down

t_depth : 0 # Toolpath depth

d_mode : 0 # Depth

t_stock : 0 # Top of stock

f_plan : 0 # Feed plan

f_mode : 0 # Feed plan mode

t_stock_mode : 0 # Top of stock mode

c_type : 0 # Contour type

t_wall : 0 # Taper wall

t_angle : 0 # Taper angle

d_order_c : 0 # Depth cut order

looper : 0

z_sav : 0

d_cut_flag : 0

fmt 2 a_a

fmt 2 a_b

fmt 2 a_c

fmt Z 2 a_d

 

 

 

 

 

 

 

 

 

 

prapidout #Output to NC of linear movement - rapid

 

 

if d_cut = 1,

[

a_a = t_stock

a_b = t_depth

a_c = m_step

a_d = f_plan + t_stock

"#100 = ", *a_a, "(TOP OF STOCK)", e$

"#101 = ", *a_b, "(DEPTH)", e$

"#102 = ", *a_c, "(MAX CUT DEPTH)", e$

 

"WHILE[#100",[if a_b > 0,"LE", else, "GE"], *a_b,"]DO1", e$

`sgcode, *a_d, e$

 

d_cut_flag = 1

d_cut = 0

 

]

else,

[

sav_gcode = gcode$

if convert_rpd$ = one,

[

gcode$ = one

feed = maxfeedpm

ipr_type = zero

]

pcan1, pbld, sgplane, `sgcode, [if gcode$ = 1, sgfeed], sgabsinc, pccdia,

pxout, pyout, pzout, pcout, [if gcode$ = 1, `feed], strcantext, scoolant, e$

gcode$ = sav_gcode

]

 

if d_cut_flag = 1,

[

a_a = t_stock

a_b = t_depth

a_c = m_step

a_d = f_plan + t_stock

 

"#100 = #100 - ", *m_step, e$

"END1", e$

]

 

------------------------------------------------

%

O0001

G00G17G20G40G80G90

G91G28Z0.

(COMPENSATION TYPE - COMPUTER)

N101T1M06(DEFINE TOOL NAMES)

(MAX - Z8.)

(MIN - Z-2.)

G00G17G90G53X-.3709Y.7657S0M05

G43H1Z8.M08

#100 = 0.(TOP OF STOCK)

#101 = -2.(DEPTH)

#102 = .5(MAX CUT DEPTH)

WHILE[#100GE-2.]DO1

Z.2

#100 = #100 - .5

END1

G94G01Z-.5F0.

X-.0087Y.6686F.01

G03X.0302Y.6635I.0389J.1449

G01X.2823

G02X.7823Y.1635I0.J-.5

G01Y-.1752

G02X.2823Y-.6752I-.5J0.

G01X-.2219

G02X-.7219Y-.1752I0.J.5

G01Y.1635

G02X-.2219Y.6635I.5J0.

G01X.0302

G03X.069Y.6686I0.J.15

G01X.4312Y.7657

G00Z8.

#100 = #100 - .5

END1

X-.3709

#100 = #100 - .5<----------------------------suppress below to M05

END1

#100 = 0.

#101 = -2.

#102 = .5

WHILE[#100GE-2.]DO1

Z.2

#100 = #100 - .5

END1

G01Z-1.F0.

X-.0087Y.6686F.01

G03X.0302Y.6635I.0389J.1449

G01X.2823

G02X.7823Y.1635I0.J-.5

G01Y-.1752

G02X.2823Y-.6752I-.5J0.

G01X-.2219

G02X-.7219Y-.1752I0.J.5

G01Y.1635

G02X-.2219Y.6635I.5J0.

G01X.0302

G03X.069Y.6686I0.J.15

G01X.4312Y.7657

G00Z8.

#100 = #100 - .5

END1

X-.3709

#100 = #100 - .5

END1

#100 = 0.

#101 = -2.

#102 = .5

WHILE[#100GE-2.]DO1

Z.2

#100 = #100 - .5

END1

G01Z-1.5F0.

X-.0087Y.6686F.01

G03X.0302Y.6635I.0389J.1449

G01X.2823

G02X.7823Y.1635I0.J-.5

G01Y-.1752

G02X.2823Y-.6752I-.5J0.

G01X-.2219

G02X-.7219Y-.1752I0.J.5

G01Y.1635

G02X-.2219Y.6635I.5J0.

G01X.0302

G03X.069Y.6686I0.J.15

G01X.4312Y.7657

G00Z8.

#100 = #100 - .5

END1

X-.3709

#100 = #100 - .5

END1

#100 = 0.

#101 = -2.

#102 = .5

WHILE[#100GE-2.]DO1

Z.2

#100 = #100 - .5

END1

G01Z-2.F0.

X-.0087Y.6686F.01

G03X.0302Y.6635I.0389J.1449

G01X.2823

G02X.7823Y.1635I0.J-.5

G01Y-.1752

G02X.2823Y-.6752I-.5J0.

G01X-.2219

G02X-.7219Y-.1752I0.J.5

G01Y.1635

G02X-.2219Y.6635I.5J0.

G01X.0302

G03X.069Y.6686I0.J.15

G01X.4312Y.7657

G00Z8.M09

#100 = #100 - .5

END1

M05

G91G28Z0.

G28Y0.

G90

M30