Alphacam post cosmec CNC

$----------------------------- HEADER ---------------------------------------
Customer : COSMEC
Machine : CONQUEST 515
Control : OSAI AB
Database Name:
Units : MM
No of Axis : XYZA
Coord System : ASSOLUTE
Z-Axis : VERTICALE
Contact :
Tel :
Fax :
Dealer Name :TONI
Post Author :
Ver 1 Date :
Notes :
Last Edit :21_11_2005
$------------------------- PROGRAM LEADING/TRAILING LINES -------------------
$10 File LEADING lines
;DATA E ORA:[DAT]
$LET DES_PRG = "?"
;NOME PROGRAMMA:[DES_PRG]
;TEMPO DI LAVORAZIONE:[TIM] secondi
;********************************************
$LET ZSIC=1
$LET MANDRI=0
$LET COMPAR=0
$LET COMPAR1=0
$LET GRUFORI=0
$LET MOVIX=0
$LET MOVIY=0
$LET MOVIZ=0
$LET GRUP1=0
$LET GRUP10=0
$LET TAVOLA = "?"
$IF TAVOLA=1
$LET TAV=0
$ENDIF
$IF TAVOLA=2
$LET TAV=4
$ENDIF
$LET SPESS = "?"
$LL999
$12 Main Program LEADING lines
(AXO,-Z)
E100=[SPESS] ;ALTEZZA PORTAPEZZO
$15 Main Program TRAILING lines
$17 File TRAILING Lines
$IF TPD(1) = 1 GOTO 10 ''PANTOGRAFO
$LET ZSIC=ZSIC+1
G79 G0 Z[ZSIC]
M25 M180
(AXO,-Z)
$GOTO 999
$LL10
M6T0
$IF T>8
M12
M40
$ENDIF
$LL999
$----------------------- RAPID MOVES ----------------------------------------
$20 Rapid Move in XY (MILL/ROUTER/FLAME/LASER) or XZ (LATHE) only
$If Pat(1)=2 goto 999
$IF PAT(1)=1 GOTO 999
$IF MC=1
G0 [TC] X[GAX] Y[GAY]
M11 M116
M40
$ELSE
G0 X[GAX] Y[GAY]
M11 M116
M40
$LL999
$----------------------------------------------------------------------------
$25 Rapid Move in Z only (MILL etc)
$If Pat(1)=2 goto 999
$IF PAT(1)=1 GOTO 999
$IF MC+FRA=2
G40
G0 Z[GAZ]
$ELSE
G0 Z[AZ]
$ENDIF
$LL999
$----------------------------------------------------------------------------
$30 Lines BEFORE a rapid move if Z levels are not used eg Laser or Geometry
$----------------------------------------------------------------------------
$35 Lines AFTER a rapid move if Z levels are not used eg Laser or Geometry
$----------------------- MACHINING FEED MOVES -------------------------------
$40 Machining FEED lines
$IF MC + IN = 2 ''M/C comp applies, and this is LEAD IN LINE
G1 [TC] X[GAX] Y[GAY] Z[GAZ] F[F]
$ELSEIF MC + OUT = 2 '' M/C comp applies, and this is LEAD OUT LINE
[TC]
G1 X[GAX] Y[GAY] Z[GAZ] F[F]
$ELSE
G1 X[GAX] Y[GAY] Z[GAZ] F[F]
$ENDIF
$LL99
$----------------------------------------------------------------------------
$50 Feed CW arc (APS will automatically limit arcs to 180 degrees maximum)
$IF sqr ((IX*IX)+(IY*IY)) <.1 GOTO 3
$IF sqr ((IX*IX)+(IY*IY)) > (R/50) GOTO 4
$LL3
G1 X[AX] Y[AY] F[F]
$GOTO 99
$LL4
G2 X[AX] Y[AY] R[R] F[F]
$LL99
$----------------------------------------------------------------------------
$60 Feed CCW arc
$IF sqr ((IX*IX)+(IY*IY)) <.1 GOTO 3
$IF sqr ((IX*IX)+(IY*IY)) > (R/50) GOTO 4
$LL3
G1 X[AX] Y[AY] F[F]
$GOTO 99
$LL4
G3 X[AX] Y[AY] R[R] F[F]
$LL99
$------------------------ TOOL CHANGES --------------------------------------
$70 Cancel current tool. Use [T] for current tool number if required.
$75 Code for CLOCKWISE spindle rotation - entered into variable RT
M13
$76 Code for COUNTER-CLOCKWISE spindle rotation - entered into variable RT
M14
$80 Select new tool. Use [T] for new tool number, [S] for spindle speed.
$IF pat(1)=2 goto 999
$IF pat(1)=1 GOTO 66
''SE USO TESTA PANTOGRAFO
$IF GRUFORI=1
M180
M25
(AXO,-Z)
$ENDIF
$LET GRUFORI=0
$LET MANDRI=MANDRI+1
;*** LAVORAZIONE CON ELETTROMANDRINO ***
;[TNM]
(UOT,[TAV+1],X0,Y0,ZE100)
M6T[T]
M13 S[S]
h[OFS]
$LET GRUP1=1
$IF T>8
$LET GRUP10=1
$ENDIF
$GOTO 999
$LL66
$IF GRUFORI = 1 GOTO 69
$LET MOVIX=0
$LET MOVIY=0
$LET MOVIZ=0
$IF GRUP1=1
M15
M12 M115
M40
$ENDIF
$IF GRUP10=1
M6T0
M12 M115
M40
$ENDIF
(UOT,[TAV+2],X0,Y0,ZE100)
$LET ZSIC=ZSIC+1
G79 G0 Z[ZSIC]
M23
$LL69
$LET GRUP1=0
$LET GRUP10=0
$LET GRUFORI=1
$LET MANDRI=[MANDRI+PAT(6)+1]
$LET DRITOL=MANDRI-PAT(6)
M_STARTDEL
(UIO,X[-MOVIX],Y[-MOVIY],Z[-MOVIZ]) ;ANNULLA
M180
$IF WVF=0
$LET MOVIX=0
$LET MOVIY=0
$LET MOVIZ=0
$LET CORRE=[OFS]
;FACCIA SUPERIORE
(UIO,X[MOVIX],Y[MOVIY],Z[MOVIZ]) ;ATTIVA
(AXO,-Z)
$ELSEIF WVF=1
$LET MOVIX=0
$LET MOVIY=-55
$LET MOVIZ=0
$LET CORRE=[OFS]
;FACCIA ANTERIORE
(UIO,X[MOVIX],Y[MOVIY],Z[MOVIZ]) ;ATTIVA
(AXO,-Z,Y)
$ELSEIF WVF=2
$LET MOVIX=55
$LET MOVIY=0
$LET MOVIZ=0
$LET CORRE=[OFS]
;FACCIA LATERALE DX
(UIO,X[MOVIX],Y[MOVIY],Z[MOVIZ]) ;ATTIVA
(AXO,-Z,-X)
$ELSEIF WVF=3
$LET MOVIX=0
$LET MOVIY=55
$LET MOVIZ=0
$LET CORRE=[OFS]
;FACCIA POSTERIORE
(UIO,X[MOVIX],Y[MOVIY],Z[MOVIZ]) ;ATTIVA
(AXO,-Z,-Y)
$ELSEIF WVF=4
$LET MOVIX=-55
$LET MOVIY=0
$LET MOVIZ=0
$LET CORRE=[OFS]
;FACCIA LATERALE SX
(UIO,X[MOVIX],Y[MOVIY],Z[MOVIZ]) ;ATTIVA
(AXO,-Z,X)
$ELSEIF WVF=5
$LET MOVIX=0
$LET MOVIY=0
$LET MOVIZ=0
$LET CORRE=[OFS]
;FACCIA INFERIORE
(UIO,X[MOVIX],Y[MOVIY],Z[MOVIZ]) ;ATTIVA
(AXO,Z)
$ENDIF
h[CORRE]
$MODAL OFF
G0 Z[HZW+100]
$MODAL ON
M_STOPDEL
M_STARTDEF
$LL85
M[T(DRITOL)]
$LET COMPAR=[T(DRITOL)]
$LET COMPAR1=[T(DRITOL)]
$LET DRITOL=DRITOL+1
$IF DRITOL <= MANDRI GOTO 85
M_STOPDEF
$GOTO 999
$LL998
$MSG UTENSILE NON ASSEGNATO A NESSUN GRUPPO
$EXIT
$LL999
$-------------------------- SUBROUTINES ------------------------------------
$90 CALL subroutine. Use [SN] for subroutine number.
N[N] M98 P[SN] (CALL SUB [SN])
$----------------------------------------------------------------------------
$100 BEGIN subroutine. Use [SN] for subroutine number.
O[SN] (TOOL *T[T]* )
$----------------------------------------------------------------------------
$110 END subroutine
N[N] M99 (END OF SUB [SN] )
$------------------- REFERENCE ZERO or ORIGIN SHIFT -------------------------
$120 Origin shift. Use [OX] and [OY] for values to shift by)
N[N] G52 X[OX] Y[OY] 'ORIGIN SHIFT
$----------------------------------------------------------------------------
$130 Cancel Origin shift. [OX] and [OY] are values by which origin was shifted)
N[N] G52 X0.0 Y0.0 'CANCEL ORIGIN SHIFT
$----------------------- MACHINE TOOL COMPENSATION --------------------------
$140 Code to CANCEL Machine Tool Compensation
G40
$141 Code for LEFT Machine Tool Compensation
G41
$142 Code for RIGHT Machine Tool Compensation
G42
$145 Percentage increase in blend radius for sharp internal corners
0
$146 Adjust G41/42 code at internal corners for tool radius (1 = yes 0 = no)
0
$147 Applica la compensazione sul rapido di approccio. (1=si 0=no)
1
$------------------------ DRILLING/TAPPING CYCLES ---------------------------
[ZR] = Retract level, the Z level to rapid down to before feed down begins.
[ZB] = Z value of the bottom of the hole, [ZP] = peck DISTANCE.
[ZS] = Safe Rapid level, [ZM] = Material top. All values are ABSOLUTE.
$200 CANCEL drill/tapping cycle
$----------------------------------------------------------------------------
DRILL cycle - traverse to next hole at SAFE RAPID level [ZS]
$210 First Hole
$If Pat(1)=2 goto 99
$IF WVF = 0
X[GAX] Y[GAY]
Z[GAZ]
G1 Z[GAZ-ZS+ZB] F[F]
G0 Z[GAZ]
$ELSEIF WVF = 1
X[GAX] Y[GAY]
Z [GAZ]
Y[GAY]
G1 Y[GAY+ZS-ZB] F[F]
G0 Y[GAY]
$ELSEIF WVF = 2
X[GAX] Y[GAY]
Z[GAZ]
X[GAX]
G1 X[GAX-ZS+ZB] F[F]
G0 X[GAX]
$ELSEIF WVF = 3
X[GAX] Y[GAY]
Z[GAZ]
Y[GAY]
G1 Y[GAY-ZS+ZB] F[F]
G0 Y[GAY]
$ELSEIF WVF = 4
X[GAX] Y[GAY]
Z[GAZ]
X[GAX]
G1 X[GAX+ZS-ZB] F[F]
G0 X[GAX]
$ELSEIF WVF = 5
Z[GAZ]
X[GAX] Y[GAY]
G1 Z[GAZ-ZS+ZB] F[F]
G0 Z[GAZ]
$ENDIF
$LL99
$211 Next holes
$If Pat(1)=2 goto 99
$IF WVF = 0
X[GAX] Y[GAY]
G1 Z[GAZ-ZS+ZB] F[F]
G0 Z[GAZ]
$ELSEIF WVF = 1
X[GAX]
Z[GAZ]
Y[GAY]
G1 Y[GAY+ZS-ZB] F[F]
G0 Y[GAY]
$ELSEIF WVF = 2
Y[GAY]
Z[GAZ]
X[GAX]
G1 X[GAX-ZS+ZB] F[F]
G0 X[GAX]
$ELSEIF WVF = 3
X[GAX]
Z[GAZ]
Y[GAY]
G1 Y[GAY-ZS+ZB] F[F]
G0 Y[GAY]
$ELSEIF WVF = 4
Y[GAY]
Z[GAZ]
X[GAX]
G1 X[GAX+ZS-ZB] F[F]
G0 X[GAX]
$ELSEIF WVF = 5
X[GAX] Y[GAY]
G1 Z[GAZ-ZS+ZB] F[F]
G0 Z[GAZ]
$ENDIF
$LL99
$----------------------------------------------------------------------------
DRILL cycle - traverse to next hole at RETRACT level [ZR]
$214 First Hole
$If Pat(1)=2 goto 99
$IF WVF = 0
X[GAX] Y[GAY]
Z[GAZ]
G1 Z[GAZ-ZR+ZB] F[F]
G0 Z[GAZ]
$ELSEIF WVF = 1
X[GAX] Y[GAY]
Z [GAZ]
Y[GAY]
G1 Y[GAY+ZR-ZB] F[F]
G0 Y[GAY]
$ELSEIF WVF = 2
X[GAX] Y[GAY]
Z[GAZ]
X[GAX]
G1 X[GAX-ZR+ZB] F[F]
G0 X[GAX]
$ELSEIF WVF = 3
X[GAX] Y[GAY]
Z[GAZ]
Y[GAY]
G1 Y[GAY-ZR+ZB] F[F]
G0 Y[GAY]
$ELSEIF WVF = 4
X[GAX] Y[GAY]
Z[GAZ]
X[GAX]
G1 X[GAX+ZR-ZB] F[F]
G0 X[GAX]
$ELSEIF WVF = 5
X[GAX] Y[GAY]
Z[GAZ]
G1 Z[GAZ-ZR+ZB] F[F]
G0 Z[GAZ]
$ENDIF
$LL99
$215 Next holes
$If Pat(1)=2 goto 99
$IF WVF = 0
X[GAX] Y[GAY]
G1 Z[GAZ-ZR+ZB] F[F]
G0 Z[GAZ]
$ELSEIF WVF = 1
X[GAX]
Z[GAZ]
Y[GAY]
G1 Y[GAY+ZR-ZB] F[F]
G0 Y[GAY]
$ELSEIF WVF = 2
Y[GAY]
Z[GAZ]
X[GAX]
G1 X[GAX-ZR+ZB] F[F]
G0 X[GAX]
$ELSEIF WVF = 3
X[GAX]
Z[GAZ]
Y[GAY]
G1 Y[GAY-ZR+ZB] F[F]
G0 Y[GAY]
$ELSEIF WVF = 4
Y[GAY]
Z[GAZ]
X[GAX]
G1 X[GAX+ZR-ZB] F[F]
G0 X[GAX]
$ELSEIF WVF = 5
X[GAX] Y[GAY]
G1 Z[GAZ-ZR+ZB] F[F]
G0 Z[GAZ]
$ENDIF
$LL99
$----------------------------------------------------------------------------
PECKING cycle - traverse to next hole at SAFE RAPID level [ZS]
$220 First hole
G83 Z[ZB] R[ZR] I[ZP] J1 K1 F[F]
X[AX] Y[AY]
$221 Next holes
X[AX] Y[AY]
$----------------------------------------------------------------------------
PECKING cycle - traverse to next hole at RETRACT level [ZR]
$224 First hole
G83 Z[ZB] R[ZR] I[ZP] J1 K1 F[F]
X[AX] Y[AY]
$225 Next holes
X[AX] Y[AY]
$----------------------------------------------------------------------------
TAPPING cycle - traverse to next hole at SAFE RAPID level [ZS]
$230 First hole
G98 G84 X[AX] Y[AY] Z[ZB] R[ZR] F[F]
$231 Next holes
X[AX] Y[AY]
$----------------------------------------------------------------------------
TAPPING cycle - traverse to next hole at RETRACT level [ZR]
$234 First hole
G99 G84 X[AX] Y[AY] Z[ZB] R[ZR] F[F]
$235 Next holes
X[AX] Y[AY]
$----------------------------------------------------------------------------
BORING/REAMING/SPOT FACE etc - traverse to next hole at SAFE RAPID level [ZS]
$240 First Hole
G98 G82 X[AX] Y[AY] Z[ZB] R[ZR] P[DW] F[F]
$241 Next holes
X[AX] Y[AY]
$----------------------------------------------------------------------------
BORING/REAMING/SPOT FACE etc - traverse to next hole at RETRACT level [ZS]
$244 First Hole
G99 G82 X[AX] Y[AY] Z[ZB] R[ZR] P[DW] F[F]
$245 Next holes
X[AX] Y[AY]
$-------------------------- GENERAL FORMATS ---------------------------------
Separate modal values with spaces. More than one letter is OK eg X VX VY
$500 Modal Text (Will not be repeated in following lines)
G0 G1 G2 G3 G90 G55 G43 H
$502 Modal ABSOLUTE Values (Will not be repeated if the VALUE is the same)
X Y Z F
$504 Modal INCREMENTAL Values (Will not be put into NC code if VALUE is ZERO)
I J
$510 X Y Z I J K values must have + as well as - signs (1 = yes, 0 = no)
0
$515 Use point <.> as decimal separator (1 = yes, 0 = use comma <,>)
1
$520 Put sub-routines at end of main program (1 = yes, 0 = put at start)
1
$525 Quadrant Limit arcs (1 = yes, 0 = Standard APS 180 degree limit)
0
$530 Output arcs as straight line segments (1 = yes, 0 = no)
0
$532 If arcs are straight line segments, give chord error (mm or inches)
.1
$540 Suppress Operations List, START and Comments in NC code (1 = yes, 0 = No)
1
'Set $560 - $580 all to 0 if machine is 3-axis.
$560 4/5 axis Programming point: (1 = pivot, 0 = tool tip)
0
$562 4/5 axis Tool C/L offset from pivot point in X
0
$563 4/5 axis Tool C/L offset from pivot point in Y
0
$565 4/5 axis Tool holder length
0
$570 4/5 axis Max angle (degrees). Set to 0 to indicate 3 - axis machine.
0
$580 Is this a horizontal machining centre (1 = yes, 0 = no)
1
$-------------------------- NUMBER FORMATS ----------------------------------
$700 SUBROUTINE Number format
6
$701 Leading figures
0
$702 Figures after point
0
$705 Subroutine start number
1000
$----------------------------------------------------------------------------
$710 LINE NUMBER format
6
$711 Leading figures
0
$712 Figures after point
0
$715 Line start number
10
$716 Line number increment
10
$----------------------------------------------------------------------------
$720 X Y Z values format
2
$721 Leading figures
0
$722 Figures after point
3
$----------------------------------------------------------------------------
$730 ARC centre/radius format
2
$731 Leading figures
0
$732 Figures after point
3
$----------------------------------------------------------------------------
$740 SPINDLE SPEED format
6
$741 Leading figures
0
$742 Figures after point
0
$743 Maximum Spindle Speed
18000
$----------------------------------------------------------------------------
$750 MACHINING FEED format
6
$751 Leading figures
0
$752 Figures after point
0
$753 Maximum Feed Rate (Use mm/min or in/min as appropriate for this Post)
40000 mm/min
$----------------------------------------------------------------------------
$760 TOOL NUMBER format
3
$761 Leading figures
2
$762 Figures after point
0
$------------------------ RAPIDS and TOOL CHANGE TIMES ----------------------
Use mm/min or in/min as appropriate for this Post.
$900 XY Rapid Speed
40000 mm/min
$901 Z Rapid Speed
30000 mm/min
$902 Time to change tool (seconds)
10
$--------------------------- USER VARIABLES ---------------------------------
ALL user variables must be declared. Variable names can be up to 20 chars.
Prompts can be up to 50 chars max and can include a default inside < >.
Put (" ") as format for a text variable. Put ( ) as the format of any numeric
variable which is to have the same format as X Y (Z) moves. If a different
format is required, put (Format, Lead figs, Trail figs) eg (6,0,0) = Integer.

$1000 VARIABLE (format) "Prompt <default>" '' Remark for your info.
DES_PRG (" ") "NOME PROGRAMMA"
TAVOLA () "QUALE PARTE DEL PIANO USI? 1=SX 2=DX <1>"
TAV (6,0,0)
ZSIC ()
GRUP1 () ''QUANDO LAVORA CON PANTOGRAFO
GRUP10 ()
GRUFORI ()
MANDRI ()
DRITOL (6,0,0)
COMPAR ()
COMPAR1 ()
MOVIX ( )
MOVIY ( )
MOVIZ ( )
CORRE (6,0,0) ''CORRETTORE PER MULTIDRILL
SPESS (3,0,0) "SPESSORE PORTAPEZZO O VENOSA <50>"
$-------------------------- USER DEFINED CODE -------------------------------
Prompts up to 50 chars max. Variable names up to 20 chars. Any $number in the
range $1100 - $1119 can be used for each definition. First line after $number
appears in the first dialog box. Lines up to first $ line appear in second
dialog box. Lines up to next $ line will be added/inserted in NC program.

$1100
$ ------------------------- NC lines to be entered into program follow
$3000
1 = LicomUKDWMultiDrillMasterSlave
2 = LicomUKDWMultiDrillSlaveNumbers
3 = OffsetXToolMaster
4 = OffsetYToolMaster
5 = OffsetZToolMaster
6 = NumberOfSlaves
$ ---------------------- End of Post