Okuma post modifications

[RandleXX]

I recently modified the V9.1 okuma post to work with our machines and controllers. It works almost perfect except for a couple of things:

 

How do I get an alphabetical letter to call up on each tool change?

 

For example:

 

IF [VATOL EQ 02 ] NATA

T2 M6

NATA G00 G90

M1

G15 H01

 

I would like the "A" at the end of NATA to change to "B" and so on alphabeticaly at each toolchange.

 

Any help or sample posts would be greatly appreciated.

 

Thank you.

[Guest]

My guess and I have never done this would be to create a buffer file and load it with the letters from a to z. Then create a variable that gets indexed at each tool change and use that variable to call up the field in the buffer file.

In theory it should work. But the nuts and bolts could kill you. Good luck.

HTH a little.

 

[ 06-04-2003, 05:02 PM: Message edited by: Marc Lindsey at San Diego CAD CAM ]

[chris m]

Thanks for tipping me to that if statement; I may try that instead of my current method.

 

What may be easier to do for you is this:

 

.

.

.

N01

(TOOL 1: 1/4 90DEG SPOT DRILL)

(SPOT M5 HOLES .220 DIA 6X)

G00 G17 G40 G53 G80 G90 G95

G30 P1

[iF VATOL EQ 01]NS01

T01 M06

NS01

G15 H20 X0. Y.374 S3472 M3

G56 H1 Z.1 M8

.

.

.

 

This way you can use the "t" value (or whatever you created to get that '02' in your if statement) to get you where you need to go without generating a whole new setup.

 

The problem with this, of course, is if you call tool #1 again in the program you'll need to manually edit it to "NS101" or something.

 

Okuma toolchangers are a pain in the xxxx.

 

We currently have the NS01, NS02, etc, (NSkip01) in our programs for restarts. If that is the only reason you are looking for your 'NATA' you may be OK without the if statement at all.

 

The only problem with that would be one-tool progs; in those I currently put:

 

M63

M6

 

at the end to empty the spindle.

 

Any ideas you have on this; please send them back my way as I'm very interested in what any Okuma users are doing.

 

C

 

[ 06-04-2003, 05:22 PM: Message edited by: chris m ]

[md]

I restart with line # or number serch.

Number serch is faster but you are taking a chance with a big crash If you dont know what your doing.

 

 

$BLOCK-HAND %

(PROGRAM NAME - BLOCK HAND )

(DATE=MM-DD-YY - 02-06-03 TIME=HH:MM - 16:09 )

N100 G20 M355

N101 G90 G40 G0

N102 G30 P=VC33

N103 IF[VATOL EQ 3 ]N105

N104 T3 M6

N105 G15 H01

( 3" FACE MILL TOOL - 3 DIA. OFF. - 3 LEN. - 3 DIA. - 3. )

N106 G0 G90 X-2.25 Y-1.25

N107 S5600 M3 T1

N108 G56 H3 Z.25

N109 Z.1

N110 G1 Z0. F105.

N111 X5.25

N112 G0 Z.25

N113 M5

N114 G00 Z5.

N115 G30 P=VC32

N116 T1 M6

N117 M1

( 1/2 FLAT ENDMILL TOOL - 1 DIA. OFF. - 1 LEN. - 1 DIA. - .5 )

N118 G0 G90 X3.19 Y-.075

N119 S9875 M3 T5

N120 G56 H1 Z.25 M8

N121 Z.1

N122 G1 Z-.3417 F75.

N123 G41 D1 X3.17

N124 G3 X3.15 Y-.095 J-.02

 

 

From POST

 

 

"$",progname,"%", e

"(PROGRAM NAME - ", progname, ")", e

"(DATE=MM-DD-YY - ", date, " TIME=HH:MM - ", time, ")", e

pbld, n, *smetric, "M355", e

pbld, n, *sgabsinc, "G40", *sgcode, e

sav_absinc = absinc

#parametric callout to skip toolchange - MUST LINE NUMBER BY ONES STARTING AT 100

pbld, n, "G30", "P=VC33", e

if stagetool = one, pbld, n, "IF[VATOL EQ"," ",*tcomment,"]N105", e

if stagetool = one, n, *t, "M6", e

 

 

absinc = one

pbld, n, "G15", "H=VC100", e

absinc = sav_absinc

 

 

Mick might give some good options to.He helped me in the past.

[chris m]

I noticed that you didn't get your skip line for the second toolchange, and that the N105 is hard-coded, do you only want this on the first tool or am I missing something? (not trying to be a wiseass)

 

C

 

[ 06-05-2003, 01:59 PM: Message edited by: chris m ]

[Allan Brown]

subchar = 63 #initialize

 

#at the toolchange

subchar = subchar + 1

ssubchar = no2asc(subchar)

 

#ssubchar = a for subchar = 64

 

ssubchar = ucase(ssubchar) #for uppercase

#or use the ASCII value for uppercase A to start

 

[Doh! Corrected - thanks to sbrooks]

 

[ 06-09-2003, 10:42 AM: Message edited by: Dave Thomson ]

[Guest]

Forget my first post. You could use a string select table.

[RandleXX]

Thanks Dave,

I was able to get the # for ASCII to post but I cant get the # to convert to the actual ASCII character in the post.

Is there a simple # to ACSII command to output the character value?

 

what I'm getting:

 

IF [VATOL EQ 01 ] NAT65

NAT65 G00 G90

 

what I need:

 

IF [VATOL EQ 01 ] NATA

NATA G00 G90

 

Thanks

 

Randle

ISCO

Bend, Oregon

[sbrooks]

Hi Randle

 

On the last line Dave has

ssubchar = ucase(ssubshar) #for uppercase

 

Try this ssubshar = ucase(ssubchar) #for uppercase

Dave just had the two strings reversed.

 

HTH

 

Scott