Здравствуйте. Я только купил программу artcam 9 и столкнулся с проблемой мой постпроцессор не подходит для него что-ли. У меня фрезерный станок FRNC контур бретон 3 осевой. Работал раньше с AlphaCam. И можно ли постпроцессор как нибудь переделать для artcam? Уменя вот такой его надо переделать под artcam
Скрытый текст
******************************************************************************
* Controllo Numerico : SINUMERIK 810D *
* Macchina Utensile : CONTOURSAW FRNC *
* Rel. APS : ALPHA 99 24.04.1999 *
******************************************************************************
* VERSIONE : 01.00
* DATA : 19.07.1999
* MODIFICATO DA : TURESSO
******************************************************************************
$---------------------------------------------------------------------------
$5
$STORE C:\Breton\Temp\Input.Txt
$RUN C:\Breton\FRNC\PostFRNC.exe
$RECALL C:\Breton\Temp\Output.Txt
$--------------------- LINEE INIZIALI/FINALI DEL PROGRAMMA ------------------
$10 Linee iniziali del file
START
%_N_{NOMEPP}_MPF
;( [DAT] )
SOFT
CFTCP
G{ORIGINE}
G17
G90
G64
R122=1; Aggiorna par.materiale in Frnc
R123=1; Aggiorna par.disco in Frnc
R131=0; Traslazione piano in X
R132=0; Traslazione piano in Y
R133=0; Traslazione piano in Z
R134=0
R135=0
R136=0
R137=0
$LET ZETA=999999
$LET OLD_TOOL=0
$LET SEZ_YZ=0
$--------------------------------------------------------------------------
$12 Linee Iniziali del programma principale
$--------------------------------------------------------------------------
$15 Linee Finali del programma principale
$LET PrimoUT = 1
$--------------------------------------------------------------------------
$17 Linee Finali del File
$IF OLD_TOOL=999
'Off identificativo utensile per cattura sezione YZ in sagomatura
#OFF/YZ#
$ENDIF
;-------------------------------------
' MODIFICATO DA TURESSO 31.05.1999
$IF TOOL_ACT>100 GOTO 170
$IF TOOL_ACT>200 GOTO 171
M09
M05
$GOTO 175
$LL170
M09
M05
DISIMPEGNO(1,1,1,0,0)
$GOTO 175
$LL171
M09
M05
$LL175
TRANS
STOPRE
M30
$----------------------- MOVIMENTI IN RAPIDO --------------------------------
$20 Movimenti in rapido in XY (Frese, Laser ecc) o XZ solo tornio
$IF SEZ_YZ=1 GOTO 20
$IF ANG_TESTA=-999 GOTO 66
$IF TIPO_TG > 900 GOTO 66
''
$IF ANG_TESTA=ABS(WTC-90) GOTO 67
''
$LL66
' Taglio passante
$IF TIPO_TG=901 GOTO 69
' Taglio interrotto su PI
$IF TIPO_TG=902 GOTO 69
' Taglio interrotto su PF
$IF TIPO_TG=903 GOTO 69
' Taglio interrotto su PI e PF
$IF TIPO_TG=904 GOTO 69
' Taglio facce
$IF TIPO_TG=905 GOTO 70
$GOTO 68
'
'Tagli con disco verticale
$LL69
$IF ANG_TESTA=0 GOTO 20
$LET VALTESTA=0
R130=0; ANGOLO DI INCLINAZIONE TESTA CON DISCO
$LET ANG_TESTA=0
$GOTO 71
'
'Tagli con disco inclinato (facce)
$LL70
$LET VALTESTA=[ABS(WTC-90)]
R130=[VALTESTA]; ANGOLO DI INCLINAZIONE TESTA CON DISCO
R131=[LGX]; TRASLAZIONE IN X PIANO
R132=[LGY]; TRASLAZIONE IN Y PIANO
R133=[LGZ]; TRASLAZIONE IN Z PIANO
$LET ANG_TESTA=ABS(WTC-90)
$LL71
INCLINA([VALTESTA],0) ; SUB-ROUTINE DI INCLINAZIONE TESTA
$GOTO 20
'
$LL68
''$IF TESTA_ACT=2
''R130=[VALTESTA]; ANGOLO DI INCLINAZIONE TESTA CON DISCO
''INCLINA([VALTESTA],1); SUB-ROUTINE DI INCLINAZIONE TESTA
''$ENDIF
$IF TESTA_ACT=2 GOTO 67
'
$IF TESTA_ACT=1
$LET VALTESTA=[ABS(WTC-90)]
R130=[VALTESTA]; ANGOLO DI INCLINAZIONE TESTA CON DISCO
'MODIFICA 04.03.99 TURESSO
R131=[LGX]; TRASLAZIONE IN X PIANO
R132=[LGY]; TRASLAZIONE IN Y PIANO
R133=[LGZ]; TRASLAZIONE IN Z PIANO
$ELSE
''MODIFICA 01.04.99 TURESSO
''$LET VALTESTA=90
$LET VALTESTA=[ABS(WTC-90)]
R130=[VALTESTA]; ANGOLO DI INCLINAZIONE TESTA PER CONTORNATURA
$ENDIF
$IF TOOL_ACT >100
INCLINA([VALTESTA],1); SUB-ROUTINE DI INCLINAZIONE TESTA
$ELSE
INCLINA([VALTESTA],2); SUB-ROUTINE DI INCLINAZIONE TESTA
$ENDIF
'
$LET ANG_TESTA=ABS(WTC-90)
$LET PRIMOMOV=1
''''
$LL67
''$IF SEZ_YZ=1 GOTO 20
$IF NDSK>0 GOTO 20
'''
$IF PRIMOMOV = 1 GOTO 78
$IF TOOL_ACT<100 GOTO 89
$IF TOOL_ACT>200 GOTO 89
' PER SAGOMATURA
G0 X[AX] Y[AY] Z[FD]
$GOTO 20
''
$LL89
' PER CONTORNATURA ECC.
G0 X[AX] Y[AY] Z[AZ]
$GOTO 20
''
$LL78
G0 Z[AZ]
G0 X[AX] Y[AY]
'G0 Z[AZ]
''
'MODIFICATO DA BRETON (TURESSO)
'
$IF TOOL_ACT >100 GOTO 79
'UTENSILI DA CONTORNATURA
$IF CLT = 9
M3;ROTAZIONE ORARIA SENZA ACQUA
$ELSEIF CLT = 78
M7;ACQUA ESTERNA
M8;ACQUA INTERNA
M3;ROTAZIONE ORARIA
$ELSE
M3 M[CLT];ROTAZIONE ORARIA CON ACQUA
$ENDIF
$GOTO 80
''
$LL79
$IF TESTA_ACT=1
'DISCHI
M7;ACQUA ESTERNA
M4;ROTAZIONE ANTIORARIA DISCO
$ENDIF
'
$LL80
'
$LET PRIMOMOV=0
$LL20
$----------------------------------------------------------------------------
$21 Movimento in rapido XYZ (Frese)
$----------------------------------------------------------------------------
$25 Movimento Rapido in Z (Frese ecc)
$IF SEZ_YZ=1 GOTO 25
$IF NDSK>0 GOTO 25
$IF PRIMOMOV = 1 GOTO 25
$IF ZETA = 999999
$LET ZETA = [AZ]
$ELSE
G0 X[AX] Y[AY]
G0 Z[AZ]
$ENDIF
$LL25
$----------------------------------------------------------------------------
$30 Linee Prima di un Movimento in rapido se non ci sono quote in Z. Es Laser o Geometria
$----------------------------------------------------------------------------
$35 Linee dopo un movimento in rapido se non ci sono movimenti in Z. Es Laser o Geometria.
$----------------------- MOVIMENTI IN LAVORO --------------------------------
$40 Interpolazione lineare in lavoro
$IF NDSK=0 GOTO 41
''''
$IF VOLTA=1 GOTO 43
$LET VOLTA=1
$LET X_PRE=AX
$LET Y_PRE=AY
$IF TIPO_TG=905
'$LET X_PRE=GLX
'$LET Y_PRE=GLY
$ENDIF
$GOTO 42
'''''
$LL43
$LET VOLTA=0
$LET X_ORA=AX
$LET Y_ORA=AY
$LET ANGXY=DA1
'
'MODIFICATO DA TURESSO 07/06/99
$IF TIPO_TG=905 GOTO 45
$GOTO 46
$LL45
$IF VALTESTA=90 GOTO 47
$LET ANGXY=WAC+90
$GOTO 46
$LL47
$LET ANGXY=WAC
$LL46
'''''{[NDSK],[TIPO_TG],[X_PRE],[Y_PRE],[X_ORA],[Y_ORA],[ANGXY]}
TAGLIO([X_PRE],[Y_PRE],[X_ORA],[Y_ORA],[ANGXY],[TIPO_TG-901])
$GOTO 42
'''''
$LL41
$IF SEZ_YZ=1 GOTO 44
'''''
$IF TOOL_ACT < 100 GOTO 77
$IF TOOL_ACT > 200 GOTO 77
' SAGOMATURA CON DISCO
G1 X[AX] Y[AY] F[F]
$GOTO 42
'''
$LL77
' CONTORNATURA NORMALE
$IF MC + IN = 2
G1 G[TC] X[AX] Y[AY] Z[AZ] F[F]
$ELSEIF MC + OUT = 2
G1 G40 X[AX] Y[AY] Z[AZ] F[F]
$ELSE
G1 X[AX] Y[AY] Z[AZ] F[F]
$ENDIF
$GOTO 42
'''
$LL44
1,[CX],[CY],[CZ],[AX],[AY],[AZ],0,0,0,[DA1],[DA2]
'''
$LL42
$----------------------------------------------------------------------------
$50 Interpolazione oraria in lavoro. Limitata a 180 gradi automaticamente
$IF NDSK=1 GOTO 51
$IF SEZ_YZ=0 GOTO 52
2,[CX],[CY],[CZ],[AX],[AY],[AZ],[AI],[AJ],[R],[ASA],[AIA]
$GOTO 51
$LL52
G2 X[AX] Y[AY] I[II] J[IJ] F[F]
$LL51
$----------------------------------------------------------------------------
$60 Interpolazione antioraria in lavoro
$IF NDSK=1 GOTO 61
$IF SEZ_YZ=0 GOTO 62
3,[CX],[CY],[CZ],[AX],[AY],[AZ],[AI],[AJ],[R],[ASA],[AIA]
$GOTO 61
$LL62
G3 X[AX] Y[AY] I[II] J[IJ] F[F]
$LL61
$------------------------ CAMBIO UTENSILE -----------------------------------
$70 CANCELLA UTENSILE ATTUALE
$75 ROTAZIONE ORARIA
M3
$76 ROTAZIONE ANTIORARIA
M4
$80 CAMBIO UTENSILE
''
$IF OLD_TOOL>T GOTO 34
$IF OLD_TOOL<T GOTO 34
' ZONA VECCHIO UTENSILE = NUOVO
$IF T>100
''' OFS = 901 PASSANTE
''' OFS = 902 INTERROTTO SU PI
''' OFS = 903 INTERROTTO SU PF
''' OFS = 904 A TUFFO
''' OFS = 905 FACCE ....
$IF T<200
$LET TIPO_TG=OFS
$ENDIF
''''
$LET VOLTA=0
$ENDIF
$GOTO 25
' -----------------------------
'''
$LL34
$IF OLD_TOOL=999
''' ON IDENTIFICATIVO UTENSILE PER CATTURA SEZIONE YZ
#OFF/YZ#
$ENDIF
'''
$IF T=999 GOTO 33
'''
$LET ANG_TESTA=-999
'''
$IF T<100 GOTO 24
$IF T>300 GOTO 27
$IF T>200 GOTO 26
'
' INIZIO ZONA DISCHI MACRO DA 101 A 120
$LET NDSK=T
$LET TOOL_ACT=T
@{[T],DK,0,0,0,0,0}
TOOL
D0
{TECNO}
''' OFS = 901 PASSANTE
''' OFS = 902 INTERROTTO SU PI
''' OFS = 903 INTERROTTO SU PF
''' OFS = 904 A TUFFO
''' OFS = 905 FACCE ....
$LET TIPO_TG=OFS
''
$IF TIPO_TG<900
S[s]
$LET NDSK=0
$ENDIF
'''
$LET VOLTA=0
$LET PRIMOMOV=1
$LET TESTA_ACT=1
' FINE ZONA DISCHI MACRO DA 101 A 120
$GOTO 25
'
$LL26
' INIZIO ZONA DISCHI VERTICALI DA 201 A 220
$LET NDSK=0
$LET TOOL_ACT=T
T[T-100]
'''@{[T-100],DK,0,0,0,0,0}
TOOL
D0
S[s]
$LET TIPO_TG=0
$LET VOLTA=0
$LET PRIMOMOV=1
$LET TESTA_ACT=2
'$LET VALTESTA=0
R130=0; ANGOLO DI INCLINAZIONE TESTA CON DISCO
INCLINA(0,1); SUB-ROUTINE DI INCLINAZIONE TESTA
M7;ACQUA ESTERNA
M4;ROTAZIONE ANTIORARIA DISCO
' FINE ZONA DISCHI VERTICALI DA 201 A 220
$GOTO 25
'
$LL27
' INIZIO ZONA DISCHI ORIZZONTALI DA 301 A 320
$LET NDSK=0
$LET TOOL_ACT=T
T[T-200]
''@{[T-200],DK,0,0,0,0,0}
TOOL
D0
S[s]
$LET TIPO_TG=0
$LET VOLTA=0
$LET PRIMOMOV=1
$LET TESTA_ACT=2
'$LET VALTESTA=90
R130=90; ANGOLO DI INCLINAZIONE TESTA CON DISCO
INCLINA(90,1); SUB-ROUTINE DI INCLINAZIONE TESTA
M7;ACQUA ESTERNA
M4;ROTAZIONE ANTIORARIA DISCO
' FINE ZONA DISCHI ORIZZONTALI DA 301 A 320
$GOTO 25
'''
$LL24
$LET NDSK=0
$LET TOOL_ACT=T
T[T];([TNM])
TOOL
D1
S[s]
$LET PRIMOMOV=1
$LET TESTA_ACT=0
$GOTO 25
''
$LL33
''' ON IDENTIFICATIVO UTENSILE PER CATTURA SEZIONE YZ
#ON/YZ#
$LET NDSK=0
$LET SEZ_YZ=1
'''
$LL25
$LET OLD_TOOL=T
$------------------- CAMBIO PIANO DI LAVORO --------------------------------
$88
$-------------------------- SUBROUTINES ------------------------------------
$90 Richiama subroutine. Usate [SN] per il numero della subroutine
$----------------------------------------------------------------------------
$100 Inizio subroutine. Usate [SN] per il numero della subroutine
$----------------------------------------------------------------------------
$110 Fine subroutine
$---------------- ZERO DI RIFERIMENT O SCOSTAMENTO ORIGINI -----------------
$120 Scostamento Origini. Usate [OX] e [OY] per il valore di scostamento
$----------------------------------------------------------------------------
$130 Cancella Origini. In [OX] e [OY] ci sono i valori di scostamento
$----------------------- CORREZIONE UTENSILE -------------------------------
$140 Codice per cancellazione della correzione utensile
40
$141 Codice per la correzione SINISTRA dell' utensile
41
$142 Codice per correzione destra dell'utensile
42
$145 Percentuale di incremento negli spigoli a raggio costante per spigoli vivi interni
0
$146 Aggiusta il codice G41/42 negli angoli interni in base al raggio ute. (1=si 0=no)
1
$------- REFRIGERANTE DISATT./MISCELATO/GETTO/INTERNO ALL'UTENSILE ---------
I codici da $150 a $153 sono assegnati a CLT come richiesto per ciascun percorso ut.
$150 Disattivazione refrigerante
9
$151 refrigerante miscelato
78
$152 refrigerante a getto
7
$153 refrigerante attraverso l'utensile
8
$------------------------ CICLI DI FORATURA E MASCHIATURA -------------------
[ZR] = Quota di retroazione, livello in Z a cui arrivare in rapido prima di
iniziare il movimento in lavoro.
[ZB] = Valore in Z di fine foro [ZP] = Valore di incremento per forature profonde
[ZS] = Quota di sicurezza in rapido [ZM] = Superficie materiale
[DW] = Tempo di sosta per barenature [THP]= Passo del filetto per fori maschiati
Tutti i valori sono ASSOLUTI
$200 Cancella il ciclo fisso
$----------------------------------------------------------------------------
$205 Primo foro nella SUBROUTINE. NOTE $205/206 sono applicati in TUTTI i cicli di foratura,foratura profonda ecc.
G0 X[AX] Y[AY]
$206 Prossimo foro nella Subroutine
G0 X[AX] Y[AY]
$----------------------------------------------------------------------------
Ciclo di Foratura - Raggiunge il prossimo foro al valore in Z [ZS]
$210---------------------------------- Primo foro
G0 X[AX] Y[AY]
M7
M8
M3
G0 Z[ZR]
G1 Z[ZB] F[F]
G0 Z[ZS]
$211---------------------------------- Prossimo foro
G0 X[AX] Y[AY]
M7
M8
M3
G0 Z[ZR]
G1 Z[ZB] F[F]
G0 Z[ZS]
$212---------------------------------- Primo foro
G0 X[AX] Y[AY]
M7
M8
M3
G0 Z[ZR]
G1 Z[ZB] F[F]
G0 Z[ZS]
$----------------------------------------------------------------------------
Ciclo di Foratura - Raggiunge il prossimo foro al valore in Z [ZR]
$214---------------------------------- Primo foro
G0 X[AX] Y[AY]
M7
M8
M3
G0 Z[ZR]
G1 Z[ZB] F[F]
G0 Z[ZS]
$215---------------------------------- Prossimo foro
G0 X[AX] Y[AY]
M7
M8
M3
G0 Z[ZR]
G1 Z[ZB] F[F]
G0 Z[ZS]
$216---------------------------------- Primo foro
G0 X[AX] Y[AY]
M7
M8
M3
G0 Z[ZR]
G1 Z[ZB] F[F]
G0 Z[ZS]
$217---------------------------------- Prossimo foro
G0 X[AX] Y[AY]
M7
M8
M3
G0 Z[ZR]
G1 Z[ZB] F[F]
G0 Z[ZS]
$----------------------------------------------------------------------------
Ciclo di foratura profonda - Raggiunge il prossimo foro al valore in Z [ZS]
$220 Primo foro
$221 Prossimo foro
$222 Primo foro
$----------------------------------------------------------------------------
Ciclo di foratura profonda - Raggiunge il prossimo foro al valore in Z [ZR]
$224 Primo foro
$225 Prossimo foro
$226 Primo foro
$----------------------------------------------------------------------------
Ciclo di maschiatura - Raggiunge il prossimo foro al valore in Z [ZS]
$230 Primo foro
$231 Prossimo foro
$232 Primo foro
$----------------------------------------------------------------------------
Ciclo di maschiatura - Raggiunge il prossimo foro al valore in Z [ZR]
$234 Primo foro
$235 Prossimo foro
$236 Primo foro
$----------------------------------------------------------------------------
Barenatura/Alesatura ecc. - Raggiunge il prossimo foro al valore in Z [ZS]
$240 Primo foro
$241 Prossimo foro
$242 Primo foro
$----------------------------------------------------------------------------
Barenatura/Alesatura ecc. - Raggiunge il prossimo foro al valore in Z [ZR]
$244 Primo foro
$245 Prossimo foro
$246 Primo foro
$-------------------------- GENERAL FORMATS ---------------------------------
Separate i valori modali con uno spazio.E' possibile usare pi— di una lettera OK es X VX VY
$500 Testi modali (Non saranno ripetuti nelle linee sucessive)
$502 Valori modali assoluti (Non sar… ripetuto il valore se Љ uguale)
F
$504 Valori modali incrementali (Non sar… inserito nel codice NC se il valore Љ 0)
$510 Se i valori positivi di X Y Z I J K devono avere il segno + (1 = Si, 0 = no)
0
$515 Separatore decimale (1 = Punto <.> , 0 = Virgola <,>)
1
$520 Inserimento subroutine (1 = Fine Prog. Principale, 0 = All'inizio del Prog. Principale)
1
$525 Limitazione degli archi ai quadranti (1 = Si, 0 = 180 gradi)
0
$526 Output arcs as one move (1 = Yes, 0 = No, split arcs >= 180)
0
$530 Generazione degli archi come segmenti (1 = Si, 0 = no)
0
$532 Tolleranza di corda per gli archi generati come segmenti (mm or inches)
.1
$540 Elimina la Lista Operazioni, START e commenti nel codice NC (1 = Si, 0 = No)
1
'Impostare da $560 - $580 a 0 se la macchina Љ a 3 assi.
$560 4/5 assi - Punto programmato: (1 = pivot, 0 = Punta Utensile)
0
$562 4/5 assi - Offset della linea centrale dell'utensile dalla linea di Pivot in X
0
$563 4/5 assi - Offset della linea centrale dell'utensile dalla linea di Pivot in Y
0
$565 4/5 assi - Lunghezza portautensili
0
$570 4/5 assi - Angolo massimo (Gradi). Mettete a 0 se Љ una macchina a 3 assi
0
$580 E' un centro di lavoro orizzontale? (1 = yes, 0 = no)
1
$-------------------------- FORMATI DEI NUMERI ------------------------------
$700 Formato del numero di subroutine
6
$701 Numero di interi
0
$702 Numero di decimali
0
$705 Numero prima subroutine
1
$----------------------------------------------------------------------------
$710 Formato del numero di blocco
6
$711 Numero di interi
0
$712 Numero di decimali
0
$715 Numero della prima linea
10
$716 Valore di incremento per la numerazione dei blocchi
10
$----------------------------------------------------------------------------
$720 Formato per i valori di X Y Z
3
$721 Numero di interi
0
$722 Numero di decimali
3
$----------------------------------------------------------------------------
$730 Formato del Centro/Raggio dell'arco
3
$731 Numero di interi
0
$732 Numero di decimali
3
1$----------------------------------------------------------------------------
$740 Formato della funzione di Speed
6
$741 Numero di interi
0
$742 Numero di decimali
0
$743 Numero di giri massimo
20000
$744 Velocit… fisse (es 100,200,1000,2000... 0=la speed Љ variabile
0
$745 Arrotonda la Speed a quella pi— vicina Sup/Inf
.1 o 1 o 10.. 0=non arrotondare)
0
$----------------------------------------------------------------------------
$750 Formato della funzione di Feed
3
$751 Numero di interi
0
$752 Numero di decimali
2
$753 Avanzamento massimo (Usate mm/min o in/min come richiesto Post Processor)
40000 mm/min
$755 Arrotonda la Feed a quella pi— vicina Sup/Inf.1 o 1 o 10.. 0=non arrotondare)
0
$----------------------------------------------------------------------------
$760 Formato del numero di utensile
6
$761 NUmero di interi
2
$762 Numero di decimali
0
$------------------------ RAPIDI E TEMPO CAMBIO UTENSILE -------------------
Usate mm/min o in/min come richiesto per questo Post Processor
$900 Avanzamento Rapido XY
40000 mm/min
$901 Avanzamento rapido in Z
15000 mm/min
$902 Tempo di cambio utensile (secondi)
20
$------------------------ VARIABILI UTENTE ----------------------------------
$1000 Formato variabili "Prompt <default>"
PrimoUT ( ) = 1
PRIMOMOV ( )
ZETA( )
OLD_TOOL( )
OLD_CORR( )
ANG_TESTA( )
'Memoria posizione testa - asse A
VALTESTA( )
TESTA_ACT( )
'0 = Utensile per contornatura
'1 = Disco utilizzato da macro frnc
'2 = Disco utilizzato da Alphacam
TOOL_ACT ( )
NDSK ( )
VOLTA ( )
TIPO_TG ( )
SEZ_YZ ( )
X_PRE ( )
Y_PRE ( )
X_ORA ( )
Y_ORA ( )
ANGXY ( )
OPMSG ("32") "Commento"
$--------------------- CODICE UTENTE PREDEFINITO ----------------------------
Prompt lungo al massimo 50 caratteri.
Nome della variabile lunga al massimo 20 caratteri
Possono essere usati per le definizioni i numeri da $1100 - $1119.
La prima linea dopo $numero appare nel box di dialogo
La linea sopra il primo $ appare nel secondo box di dialogo
Le linee sopra il prossimo $ saranno aggiunte/inserite nel programma NC.
$1100
Messaggio Operatore
OPMSG
$ ------------------------- NC lines to be entered into program follow
MSG("[OPMSG]")
$ ------------------------- ends $1100 user defined code
'
$1200
CAMBIO ORIGINE
$ ------------------------- NC lines to be entered into program follow
$PICK_POINT SELEZIONE PUNTO NUOVA POSIZIONE ORIGINE ...
; INIZIO CAMBIO ORIGINE 0
R134=[XP]
R135=[YP]
DISIMPEGNO(0,0,1,0,0)
M09
M05
G0G53W0
MSG("Posizionare la filagna e il disco ")
M00
MSG("")
STOPRE
ORIG
; FINE CAMBIO ORIGINE 0
$END_PICK
$ ------------------------- ends $1200 user defined cycle
$1201
CAMBIO ORIGINE 90
$ ------------------------- NC lines to be entered into program follow
$PICK_POINT SELEZIONE PUNTO NUOVA POSIZIONE ORIGINE ...
; INIZIO CAMBIO ORIGINE 90
R134=[XP]
R135=[YP]
DISIMPEGNO(0,0,1,0,0)
M09
M05
G0G53W90
MSG("Posizionare la filagna e il disco ")
M00
MSG("")
STOPRE
ORIG
; FINE CAMBIO ORIGINE 90
$END_PICK
$ ------------------------- ends $1201 user defined cycle
$1202
PAUSA
$ ------------------------- NC lines to be entered into program follow
$PICK_POINT
M05
M09
M00 ; PAUSA
$END_PICK
$ ------------------------- ends $1202 user defined cycle
$1203
FUORI INGOMBRO
$ ------------------------- NC lines to be entered into program follow
$PICK_POINT
DISIMPEGNO(1,1,1,0,0) ; FUORI INGOMBRO
$END_PICK
$ ------------------------- ends $1203 user defined cycle
$*********************** End of Post ****************************************
* Controllo Numerico : SINUMERIK 810D *
* Macchina Utensile : CONTOURSAW FRNC *
* Rel. APS : ALPHA 99 24.04.1999 *
******************************************************************************
* VERSIONE : 01.00
* DATA : 19.07.1999
* MODIFICATO DA : TURESSO
******************************************************************************
$---------------------------------------------------------------------------
$5
$STORE C:\Breton\Temp\Input.Txt
$RUN C:\Breton\FRNC\PostFRNC.exe
$RECALL C:\Breton\Temp\Output.Txt
$--------------------- LINEE INIZIALI/FINALI DEL PROGRAMMA ------------------
$10 Linee iniziali del file
START
%_N_{NOMEPP}_MPF
;( [DAT] )
SOFT
CFTCP
G{ORIGINE}
G17
G90
G64
R122=1; Aggiorna par.materiale in Frnc
R123=1; Aggiorna par.disco in Frnc
R131=0; Traslazione piano in X
R132=0; Traslazione piano in Y
R133=0; Traslazione piano in Z
R134=0
R135=0
R136=0
R137=0
$LET ZETA=999999
$LET OLD_TOOL=0
$LET SEZ_YZ=0
$--------------------------------------------------------------------------
$12 Linee Iniziali del programma principale
$--------------------------------------------------------------------------
$15 Linee Finali del programma principale
$LET PrimoUT = 1
$--------------------------------------------------------------------------
$17 Linee Finali del File
$IF OLD_TOOL=999
'Off identificativo utensile per cattura sezione YZ in sagomatura
#OFF/YZ#
$ENDIF
;-------------------------------------
' MODIFICATO DA TURESSO 31.05.1999
$IF TOOL_ACT>100 GOTO 170
$IF TOOL_ACT>200 GOTO 171
M09
M05
$GOTO 175
$LL170
M09
M05
DISIMPEGNO(1,1,1,0,0)
$GOTO 175
$LL171
M09
M05
$LL175
TRANS
STOPRE
M30
$----------------------- MOVIMENTI IN RAPIDO --------------------------------
$20 Movimenti in rapido in XY (Frese, Laser ecc) o XZ solo tornio
$IF SEZ_YZ=1 GOTO 20
$IF ANG_TESTA=-999 GOTO 66
$IF TIPO_TG > 900 GOTO 66
''
$IF ANG_TESTA=ABS(WTC-90) GOTO 67
''
$LL66
' Taglio passante
$IF TIPO_TG=901 GOTO 69
' Taglio interrotto su PI
$IF TIPO_TG=902 GOTO 69
' Taglio interrotto su PF
$IF TIPO_TG=903 GOTO 69
' Taglio interrotto su PI e PF
$IF TIPO_TG=904 GOTO 69
' Taglio facce
$IF TIPO_TG=905 GOTO 70
$GOTO 68
'
'Tagli con disco verticale
$LL69
$IF ANG_TESTA=0 GOTO 20
$LET VALTESTA=0
R130=0; ANGOLO DI INCLINAZIONE TESTA CON DISCO
$LET ANG_TESTA=0
$GOTO 71
'
'Tagli con disco inclinato (facce)
$LL70
$LET VALTESTA=[ABS(WTC-90)]
R130=[VALTESTA]; ANGOLO DI INCLINAZIONE TESTA CON DISCO
R131=[LGX]; TRASLAZIONE IN X PIANO
R132=[LGY]; TRASLAZIONE IN Y PIANO
R133=[LGZ]; TRASLAZIONE IN Z PIANO
$LET ANG_TESTA=ABS(WTC-90)
$LL71
INCLINA([VALTESTA],0) ; SUB-ROUTINE DI INCLINAZIONE TESTA
$GOTO 20
'
$LL68
''$IF TESTA_ACT=2
''R130=[VALTESTA]; ANGOLO DI INCLINAZIONE TESTA CON DISCO
''INCLINA([VALTESTA],1); SUB-ROUTINE DI INCLINAZIONE TESTA
''$ENDIF
$IF TESTA_ACT=2 GOTO 67
'
$IF TESTA_ACT=1
$LET VALTESTA=[ABS(WTC-90)]
R130=[VALTESTA]; ANGOLO DI INCLINAZIONE TESTA CON DISCO
'MODIFICA 04.03.99 TURESSO
R131=[LGX]; TRASLAZIONE IN X PIANO
R132=[LGY]; TRASLAZIONE IN Y PIANO
R133=[LGZ]; TRASLAZIONE IN Z PIANO
$ELSE
''MODIFICA 01.04.99 TURESSO
''$LET VALTESTA=90
$LET VALTESTA=[ABS(WTC-90)]
R130=[VALTESTA]; ANGOLO DI INCLINAZIONE TESTA PER CONTORNATURA
$ENDIF
$IF TOOL_ACT >100
INCLINA([VALTESTA],1); SUB-ROUTINE DI INCLINAZIONE TESTA
$ELSE
INCLINA([VALTESTA],2); SUB-ROUTINE DI INCLINAZIONE TESTA
$ENDIF
'
$LET ANG_TESTA=ABS(WTC-90)
$LET PRIMOMOV=1
''''
$LL67
''$IF SEZ_YZ=1 GOTO 20
$IF NDSK>0 GOTO 20
'''
$IF PRIMOMOV = 1 GOTO 78
$IF TOOL_ACT<100 GOTO 89
$IF TOOL_ACT>200 GOTO 89
' PER SAGOMATURA
G0 X[AX] Y[AY] Z[FD]
$GOTO 20
''
$LL89
' PER CONTORNATURA ECC.
G0 X[AX] Y[AY] Z[AZ]
$GOTO 20
''
$LL78
G0 Z[AZ]
G0 X[AX] Y[AY]
'G0 Z[AZ]
''
'MODIFICATO DA BRETON (TURESSO)
'
$IF TOOL_ACT >100 GOTO 79
'UTENSILI DA CONTORNATURA
$IF CLT = 9
M3;ROTAZIONE ORARIA SENZA ACQUA
$ELSEIF CLT = 78
M7;ACQUA ESTERNA
M8;ACQUA INTERNA
M3;ROTAZIONE ORARIA
$ELSE
M3 M[CLT];ROTAZIONE ORARIA CON ACQUA
$ENDIF
$GOTO 80
''
$LL79
$IF TESTA_ACT=1
'DISCHI
M7;ACQUA ESTERNA
M4;ROTAZIONE ANTIORARIA DISCO
$ENDIF
'
$LL80
'
$LET PRIMOMOV=0
$LL20
$----------------------------------------------------------------------------
$21 Movimento in rapido XYZ (Frese)
$----------------------------------------------------------------------------
$25 Movimento Rapido in Z (Frese ecc)
$IF SEZ_YZ=1 GOTO 25
$IF NDSK>0 GOTO 25
$IF PRIMOMOV = 1 GOTO 25
$IF ZETA = 999999
$LET ZETA = [AZ]
$ELSE
G0 X[AX] Y[AY]
G0 Z[AZ]
$ENDIF
$LL25
$----------------------------------------------------------------------------
$30 Linee Prima di un Movimento in rapido se non ci sono quote in Z. Es Laser o Geometria
$----------------------------------------------------------------------------
$35 Linee dopo un movimento in rapido se non ci sono movimenti in Z. Es Laser o Geometria.
$----------------------- MOVIMENTI IN LAVORO --------------------------------
$40 Interpolazione lineare in lavoro
$IF NDSK=0 GOTO 41
''''
$IF VOLTA=1 GOTO 43
$LET VOLTA=1
$LET X_PRE=AX
$LET Y_PRE=AY
$IF TIPO_TG=905
'$LET X_PRE=GLX
'$LET Y_PRE=GLY
$ENDIF
$GOTO 42
'''''
$LL43
$LET VOLTA=0
$LET X_ORA=AX
$LET Y_ORA=AY
$LET ANGXY=DA1
'
'MODIFICATO DA TURESSO 07/06/99
$IF TIPO_TG=905 GOTO 45
$GOTO 46
$LL45
$IF VALTESTA=90 GOTO 47
$LET ANGXY=WAC+90
$GOTO 46
$LL47
$LET ANGXY=WAC
$LL46
'''''{[NDSK],[TIPO_TG],[X_PRE],[Y_PRE],[X_ORA],[Y_ORA],[ANGXY]}
TAGLIO([X_PRE],[Y_PRE],[X_ORA],[Y_ORA],[ANGXY],[TIPO_TG-901])
$GOTO 42
'''''
$LL41
$IF SEZ_YZ=1 GOTO 44
'''''
$IF TOOL_ACT < 100 GOTO 77
$IF TOOL_ACT > 200 GOTO 77
' SAGOMATURA CON DISCO
G1 X[AX] Y[AY] F[F]
$GOTO 42
'''
$LL77
' CONTORNATURA NORMALE
$IF MC + IN = 2
G1 G[TC] X[AX] Y[AY] Z[AZ] F[F]
$ELSEIF MC + OUT = 2
G1 G40 X[AX] Y[AY] Z[AZ] F[F]
$ELSE
G1 X[AX] Y[AY] Z[AZ] F[F]
$ENDIF
$GOTO 42
'''
$LL44
1,[CX],[CY],[CZ],[AX],[AY],[AZ],0,0,0,[DA1],[DA2]
'''
$LL42
$----------------------------------------------------------------------------
$50 Interpolazione oraria in lavoro. Limitata a 180 gradi automaticamente
$IF NDSK=1 GOTO 51
$IF SEZ_YZ=0 GOTO 52
2,[CX],[CY],[CZ],[AX],[AY],[AZ],[AI],[AJ],[R],[ASA],[AIA]
$GOTO 51
$LL52
G2 X[AX] Y[AY] I[II] J[IJ] F[F]
$LL51
$----------------------------------------------------------------------------
$60 Interpolazione antioraria in lavoro
$IF NDSK=1 GOTO 61
$IF SEZ_YZ=0 GOTO 62
3,[CX],[CY],[CZ],[AX],[AY],[AZ],[AI],[AJ],[R],[ASA],[AIA]
$GOTO 61
$LL62
G3 X[AX] Y[AY] I[II] J[IJ] F[F]
$LL61
$------------------------ CAMBIO UTENSILE -----------------------------------
$70 CANCELLA UTENSILE ATTUALE
$75 ROTAZIONE ORARIA
M3
$76 ROTAZIONE ANTIORARIA
M4
$80 CAMBIO UTENSILE
''
$IF OLD_TOOL>T GOTO 34
$IF OLD_TOOL<T GOTO 34
' ZONA VECCHIO UTENSILE = NUOVO
$IF T>100
''' OFS = 901 PASSANTE
''' OFS = 902 INTERROTTO SU PI
''' OFS = 903 INTERROTTO SU PF
''' OFS = 904 A TUFFO
''' OFS = 905 FACCE ....
$IF T<200
$LET TIPO_TG=OFS
$ENDIF
''''
$LET VOLTA=0
$ENDIF
$GOTO 25
' -----------------------------
'''
$LL34
$IF OLD_TOOL=999
''' ON IDENTIFICATIVO UTENSILE PER CATTURA SEZIONE YZ
#OFF/YZ#
$ENDIF
'''
$IF T=999 GOTO 33
'''
$LET ANG_TESTA=-999
'''
$IF T<100 GOTO 24
$IF T>300 GOTO 27
$IF T>200 GOTO 26
'
' INIZIO ZONA DISCHI MACRO DA 101 A 120
$LET NDSK=T
$LET TOOL_ACT=T
@{[T],DK,0,0,0,0,0}
TOOL
D0
{TECNO}
''' OFS = 901 PASSANTE
''' OFS = 902 INTERROTTO SU PI
''' OFS = 903 INTERROTTO SU PF
''' OFS = 904 A TUFFO
''' OFS = 905 FACCE ....
$LET TIPO_TG=OFS
''
$IF TIPO_TG<900
S[s]
$LET NDSK=0
$ENDIF
'''
$LET VOLTA=0
$LET PRIMOMOV=1
$LET TESTA_ACT=1
' FINE ZONA DISCHI MACRO DA 101 A 120
$GOTO 25
'
$LL26
' INIZIO ZONA DISCHI VERTICALI DA 201 A 220
$LET NDSK=0
$LET TOOL_ACT=T
T[T-100]
'''@{[T-100],DK,0,0,0,0,0}
TOOL
D0
S[s]
$LET TIPO_TG=0
$LET VOLTA=0
$LET PRIMOMOV=1
$LET TESTA_ACT=2
'$LET VALTESTA=0
R130=0; ANGOLO DI INCLINAZIONE TESTA CON DISCO
INCLINA(0,1); SUB-ROUTINE DI INCLINAZIONE TESTA
M7;ACQUA ESTERNA
M4;ROTAZIONE ANTIORARIA DISCO
' FINE ZONA DISCHI VERTICALI DA 201 A 220
$GOTO 25
'
$LL27
' INIZIO ZONA DISCHI ORIZZONTALI DA 301 A 320
$LET NDSK=0
$LET TOOL_ACT=T
T[T-200]
''@{[T-200],DK,0,0,0,0,0}
TOOL
D0
S[s]
$LET TIPO_TG=0
$LET VOLTA=0
$LET PRIMOMOV=1
$LET TESTA_ACT=2
'$LET VALTESTA=90
R130=90; ANGOLO DI INCLINAZIONE TESTA CON DISCO
INCLINA(90,1); SUB-ROUTINE DI INCLINAZIONE TESTA
M7;ACQUA ESTERNA
M4;ROTAZIONE ANTIORARIA DISCO
' FINE ZONA DISCHI ORIZZONTALI DA 301 A 320
$GOTO 25
'''
$LL24
$LET NDSK=0
$LET TOOL_ACT=T
T[T];([TNM])
TOOL
D1
S[s]
$LET PRIMOMOV=1
$LET TESTA_ACT=0
$GOTO 25
''
$LL33
''' ON IDENTIFICATIVO UTENSILE PER CATTURA SEZIONE YZ
#ON/YZ#
$LET NDSK=0
$LET SEZ_YZ=1
'''
$LL25
$LET OLD_TOOL=T
$------------------- CAMBIO PIANO DI LAVORO --------------------------------
$88
$-------------------------- SUBROUTINES ------------------------------------
$90 Richiama subroutine. Usate [SN] per il numero della subroutine
$----------------------------------------------------------------------------
$100 Inizio subroutine. Usate [SN] per il numero della subroutine
$----------------------------------------------------------------------------
$110 Fine subroutine
$---------------- ZERO DI RIFERIMENT O SCOSTAMENTO ORIGINI -----------------
$120 Scostamento Origini. Usate [OX] e [OY] per il valore di scostamento
$----------------------------------------------------------------------------
$130 Cancella Origini. In [OX] e [OY] ci sono i valori di scostamento
$----------------------- CORREZIONE UTENSILE -------------------------------
$140 Codice per cancellazione della correzione utensile
40
$141 Codice per la correzione SINISTRA dell' utensile
41
$142 Codice per correzione destra dell'utensile
42
$145 Percentuale di incremento negli spigoli a raggio costante per spigoli vivi interni
0
$146 Aggiusta il codice G41/42 negli angoli interni in base al raggio ute. (1=si 0=no)
1
$------- REFRIGERANTE DISATT./MISCELATO/GETTO/INTERNO ALL'UTENSILE ---------
I codici da $150 a $153 sono assegnati a CLT come richiesto per ciascun percorso ut.
$150 Disattivazione refrigerante
9
$151 refrigerante miscelato
78
$152 refrigerante a getto
7
$153 refrigerante attraverso l'utensile
8
$------------------------ CICLI DI FORATURA E MASCHIATURA -------------------
[ZR] = Quota di retroazione, livello in Z a cui arrivare in rapido prima di
iniziare il movimento in lavoro.
[ZB] = Valore in Z di fine foro [ZP] = Valore di incremento per forature profonde
[ZS] = Quota di sicurezza in rapido [ZM] = Superficie materiale
[DW] = Tempo di sosta per barenature [THP]= Passo del filetto per fori maschiati
Tutti i valori sono ASSOLUTI
$200 Cancella il ciclo fisso
$----------------------------------------------------------------------------
$205 Primo foro nella SUBROUTINE. NOTE $205/206 sono applicati in TUTTI i cicli di foratura,foratura profonda ecc.
G0 X[AX] Y[AY]
$206 Prossimo foro nella Subroutine
G0 X[AX] Y[AY]
$----------------------------------------------------------------------------
Ciclo di Foratura - Raggiunge il prossimo foro al valore in Z [ZS]
$210---------------------------------- Primo foro
G0 X[AX] Y[AY]
M7
M8
M3
G0 Z[ZR]
G1 Z[ZB] F[F]
G0 Z[ZS]
$211---------------------------------- Prossimo foro
G0 X[AX] Y[AY]
M7
M8
M3
G0 Z[ZR]
G1 Z[ZB] F[F]
G0 Z[ZS]
$212---------------------------------- Primo foro
G0 X[AX] Y[AY]
M7
M8
M3
G0 Z[ZR]
G1 Z[ZB] F[F]
G0 Z[ZS]
$----------------------------------------------------------------------------
Ciclo di Foratura - Raggiunge il prossimo foro al valore in Z [ZR]
$214---------------------------------- Primo foro
G0 X[AX] Y[AY]
M7
M8
M3
G0 Z[ZR]
G1 Z[ZB] F[F]
G0 Z[ZS]
$215---------------------------------- Prossimo foro
G0 X[AX] Y[AY]
M7
M8
M3
G0 Z[ZR]
G1 Z[ZB] F[F]
G0 Z[ZS]
$216---------------------------------- Primo foro
G0 X[AX] Y[AY]
M7
M8
M3
G0 Z[ZR]
G1 Z[ZB] F[F]
G0 Z[ZS]
$217---------------------------------- Prossimo foro
G0 X[AX] Y[AY]
M7
M8
M3
G0 Z[ZR]
G1 Z[ZB] F[F]
G0 Z[ZS]
$----------------------------------------------------------------------------
Ciclo di foratura profonda - Raggiunge il prossimo foro al valore in Z [ZS]
$220 Primo foro
$221 Prossimo foro
$222 Primo foro
$----------------------------------------------------------------------------
Ciclo di foratura profonda - Raggiunge il prossimo foro al valore in Z [ZR]
$224 Primo foro
$225 Prossimo foro
$226 Primo foro
$----------------------------------------------------------------------------
Ciclo di maschiatura - Raggiunge il prossimo foro al valore in Z [ZS]
$230 Primo foro
$231 Prossimo foro
$232 Primo foro
$----------------------------------------------------------------------------
Ciclo di maschiatura - Raggiunge il prossimo foro al valore in Z [ZR]
$234 Primo foro
$235 Prossimo foro
$236 Primo foro
$----------------------------------------------------------------------------
Barenatura/Alesatura ecc. - Raggiunge il prossimo foro al valore in Z [ZS]
$240 Primo foro
$241 Prossimo foro
$242 Primo foro
$----------------------------------------------------------------------------
Barenatura/Alesatura ecc. - Raggiunge il prossimo foro al valore in Z [ZR]
$244 Primo foro
$245 Prossimo foro
$246 Primo foro
$-------------------------- GENERAL FORMATS ---------------------------------
Separate i valori modali con uno spazio.E' possibile usare pi— di una lettera OK es X VX VY
$500 Testi modali (Non saranno ripetuti nelle linee sucessive)
$502 Valori modali assoluti (Non sar… ripetuto il valore se Љ uguale)
F
$504 Valori modali incrementali (Non sar… inserito nel codice NC se il valore Љ 0)
$510 Se i valori positivi di X Y Z I J K devono avere il segno + (1 = Si, 0 = no)
0
$515 Separatore decimale (1 = Punto <.> , 0 = Virgola <,>)
1
$520 Inserimento subroutine (1 = Fine Prog. Principale, 0 = All'inizio del Prog. Principale)
1
$525 Limitazione degli archi ai quadranti (1 = Si, 0 = 180 gradi)
0
$526 Output arcs as one move (1 = Yes, 0 = No, split arcs >= 180)
0
$530 Generazione degli archi come segmenti (1 = Si, 0 = no)
0
$532 Tolleranza di corda per gli archi generati come segmenti (mm or inches)
.1
$540 Elimina la Lista Operazioni, START e commenti nel codice NC (1 = Si, 0 = No)
1
'Impostare da $560 - $580 a 0 se la macchina Љ a 3 assi.
$560 4/5 assi - Punto programmato: (1 = pivot, 0 = Punta Utensile)
0
$562 4/5 assi - Offset della linea centrale dell'utensile dalla linea di Pivot in X
0
$563 4/5 assi - Offset della linea centrale dell'utensile dalla linea di Pivot in Y
0
$565 4/5 assi - Lunghezza portautensili
0
$570 4/5 assi - Angolo massimo (Gradi). Mettete a 0 se Љ una macchina a 3 assi
0
$580 E' un centro di lavoro orizzontale? (1 = yes, 0 = no)
1
$-------------------------- FORMATI DEI NUMERI ------------------------------
$700 Formato del numero di subroutine
6
$701 Numero di interi
0
$702 Numero di decimali
0
$705 Numero prima subroutine
1
$----------------------------------------------------------------------------
$710 Formato del numero di blocco
6
$711 Numero di interi
0
$712 Numero di decimali
0
$715 Numero della prima linea
10
$716 Valore di incremento per la numerazione dei blocchi
10
$----------------------------------------------------------------------------
$720 Formato per i valori di X Y Z
3
$721 Numero di interi
0
$722 Numero di decimali
3
$----------------------------------------------------------------------------
$730 Formato del Centro/Raggio dell'arco
3
$731 Numero di interi
0
$732 Numero di decimali
3
1$----------------------------------------------------------------------------
$740 Formato della funzione di Speed
6
$741 Numero di interi
0
$742 Numero di decimali
0
$743 Numero di giri massimo
20000
$744 Velocit… fisse (es 100,200,1000,2000... 0=la speed Љ variabile
0
$745 Arrotonda la Speed a quella pi— vicina Sup/Inf
.1 o 1 o 10.. 0=non arrotondare)0
$----------------------------------------------------------------------------
$750 Formato della funzione di Feed
3
$751 Numero di interi
0
$752 Numero di decimali
2
$753 Avanzamento massimo (Usate mm/min o in/min come richiesto Post Processor)
40000 mm/min
$755 Arrotonda la Feed a quella pi— vicina Sup/Inf
.1 o 1 o 10.. 0=non arrotondare)0
$----------------------------------------------------------------------------
$760 Formato del numero di utensile
6
$761 NUmero di interi
2
$762 Numero di decimali
0
$------------------------ RAPIDI E TEMPO CAMBIO UTENSILE -------------------
Usate mm/min o in/min come richiesto per questo Post Processor
$900 Avanzamento Rapido XY
40000 mm/min
$901 Avanzamento rapido in Z
15000 mm/min
$902 Tempo di cambio utensile (secondi)
20
$------------------------ VARIABILI UTENTE ----------------------------------
$1000 Formato variabili "Prompt <default>"
PrimoUT ( ) = 1
PRIMOMOV ( )
ZETA( )
OLD_TOOL( )
OLD_CORR( )
ANG_TESTA( )
'Memoria posizione testa - asse A
VALTESTA( )
TESTA_ACT( )
'0 = Utensile per contornatura
'1 = Disco utilizzato da macro frnc
'2 = Disco utilizzato da Alphacam
TOOL_ACT ( )
NDSK ( )
VOLTA ( )
TIPO_TG ( )
SEZ_YZ ( )
X_PRE ( )
Y_PRE ( )
X_ORA ( )
Y_ORA ( )
ANGXY ( )
OPMSG ("32") "Commento"
$--------------------- CODICE UTENTE PREDEFINITO ----------------------------
Prompt lungo al massimo 50 caratteri.
Nome della variabile lunga al massimo 20 caratteri
Possono essere usati per le definizioni i numeri da $1100 - $1119.
La prima linea dopo $numero appare nel box di dialogo
La linea sopra il primo $ appare nel secondo box di dialogo
Le linee sopra il prossimo $ saranno aggiunte/inserite nel programma NC.
$1100
Messaggio Operatore
OPMSG
$ ------------------------- NC lines to be entered into program follow
MSG("[OPMSG]")
$ ------------------------- ends $1100 user defined code
'
$1200
CAMBIO ORIGINE
$ ------------------------- NC lines to be entered into program follow
$PICK_POINT SELEZIONE PUNTO NUOVA POSIZIONE ORIGINE ...
; INIZIO CAMBIO ORIGINE 0
R134=[XP]
R135=[YP]
DISIMPEGNO(0,0,1,0,0)
M09
M05
G0G53W0
MSG("Posizionare la filagna e il disco ")
M00
MSG("")
STOPRE
ORIG
; FINE CAMBIO ORIGINE 0
$END_PICK
$ ------------------------- ends $1200 user defined cycle
$1201
CAMBIO ORIGINE 90
$ ------------------------- NC lines to be entered into program follow
$PICK_POINT SELEZIONE PUNTO NUOVA POSIZIONE ORIGINE ...
; INIZIO CAMBIO ORIGINE 90
R134=[XP]
R135=[YP]
DISIMPEGNO(0,0,1,0,0)
M09
M05
G0G53W90
MSG("Posizionare la filagna e il disco ")
M00
MSG("")
STOPRE
ORIG
; FINE CAMBIO ORIGINE 90
$END_PICK
$ ------------------------- ends $1201 user defined cycle
$1202
PAUSA
$ ------------------------- NC lines to be entered into program follow
$PICK_POINT
M05
M09
M00 ; PAUSA
$END_PICK
$ ------------------------- ends $1202 user defined cycle
$1203
FUORI INGOMBRO
$ ------------------------- NC lines to be entered into program follow
$PICK_POINT
DISIMPEGNO(1,1,1,0,0) ; FUORI INGOMBRO
$END_PICK
$ ------------------------- ends $1203 user defined cycle
$*********************** End of Post ****************************************
Похожие темы:
Вопрос по постпроцессору для ArtCAM
Постпроцессор для ArtСam под Mecanumeric
Поспроцессор для САУНО График
Постпроцессор ArtCam-WoodWop
Доработка постпроцессора для ArtCAM
