What's new
What's new

Macro bore program for okuma

Juancano08

Plastic
Joined
Jun 16, 2017
New to okuma machines a friends from school recently told me about macro programming and I have been looking for simple macro program I can use to bore jaws but I was unsuccessful. Can anyone help
 
Just write a simple jaw boring program to a specific X and Z then substitute a variable for X and Z.

ie
...
G00 X1.0 Z.1
G01 Z-.5 F.005
X.9
G00 Z.1
...

to

...
V1=1.0
V2=-.5
G00 X=V1 Z.1
G01 Z=V2 F.005
X=V1-.1
G00 Z.1
...

You can add to it using LAP cycles if your situation requires it.
 
hello juancano :) i hope you will find this usefull; it is developed for osp300 and it is faster than many alternatives, including LAPS

i hope it is easy to understand :)

this code can be improved, but required tricks are not designed for such a simple operation; at this moment, it is just good for what it does

Code:
OS** ( jaws id turning structure )

  NOEX V1 = 650        ( n )
  NOEX V2 = 0.08       ( f )

  NOEX V3 = 38         ( X start  )
  NOEX V4 = 39.5       ( X end    )
  NOEX V5 = 2          ( how many passes )

  NOEX V6 = -40        ( Z end  )

  ( * )

  NOEX V7=[V4-V3]/V5
  NOEX V8=0

  G00 X+VPVLX-VBZOX-VETFX Z200-VETFZ
  T+?*101 M66 G97 S+V1 M03 M42 M08 G00 X+V3+V7 Z2.5 M63

  NLOOP NOEX V8=V8+1
        G01                Z+V6        F+V2 G95
            X+VSIOX-0.6    Z+VSIOZ+0.3
        G00                Z2.5
        IF [ V8 EQ V5 ] NEXIT
            X+V3+V7*[V8+1]
  IF [ V8 LT V5 ] NLOOP

  NEXIT G00 Z200-VETFZ M05 M09 M63

RTS
 
Last edited:
Hey tores,

How do you figure this is faster than many alternatives? Faster at what?

Easy to understand? Not at all.


Kindly:)
 
hello booze :)

How do you figure this is faster than many alternatives?

trials, help from others, etc

Faster at what?

easy editable : all control parameters are gathered before the (*); it is a way to deliver remote code, and operators feel more relaxed; this area, before the (*), is for user input, while the code after (*) performs accordingly.

reduced execution time : no unnecessary movements+ctr+system variables+noex

such things are excluded :
... intermediate positions specific to turning cycles
... broken vector behaviour specific to safe position
... compensatory movements when indexing / kindly :)
 








 
Back
Top