Macro per presetting manuale utensili CN siemens 840D

[ultimo80]

Vorrei creare una macro sul CN fm/nc simile al 840D che mi rilevi il valore lunghezza utensile e lo scriva automaticamente nella relativa geometria utensile.
Ad esempio porto l'utensile su un punto noto e richiamando la macro dico al CN: qui sei a X200 Z0...calcola la lunghezza utensile e scrivila nella cartella T1.
Ho già  una macro del genere sul CN Mitsubischi Meldas M 300 o qualcosa del genere, G299 A200 B0 T1 X1 Z1...
Come tradurla sul CN 840D?

[onorino]

ma non hai il repos su 840 ? .

[ultimo80]

Si...perché?

[sante5555]

esiste qualcosa che puoi fare per compilare la tabella in automatico te la edito il prima possibile.
cmq con il repos riesci a vedere a video di quanto ti se spostato dalla parteza conosciuta in zeta.

[sante5555]

se non ho capito male dovresti trovare la quota variata al netto dell'utensile?
proverei fare un subprog.
io lo farei così
AMMETTENDO CHE LA QUOTA CHE CONOSCI è X100 Y150 Z15
ED IL TUO UTENSILE è DI 150mm
MISURAUTENSILE.SPF
;INIZIO SOTTOPROGRAMMA
N10 R1=100 ;quota in x conosciuta
N20 R2=150 ;quota in y conosciuta
N30 R3=15 ;quota in z conosciuta
N40 T1 M6 ;carico utensile
N45 $TC_DP3[1,1]=0 ;azzeramento tabella utensile del t1 d1
N50 G500 G0 X=R1 Y=R2 Z=$MA_POS_LIMIT_PLUS[Z]-1 ;xey si posizionano mentre z sale per evitare contatti
M0 ;(IN MANUALE VAI ALLA QUOTA DOVE TOCCA_FAI ATTENZIONE)
N70 R4=$AA_IM[Z] ;rilevamento quota attuale
N80 STOPRE
N90 R5=R4-R3 ;differenza tra rilevata e nota
N100 STOPRE
N110 $TC_DP3[1,1]=R5 ;inserimento dato in tabella utensile t1 correttore 1
N120 M30
N130

Prova ad usare questo edit.
fa solo attenzione quando vai in manuale.
dopo aver toccato il punto noto con l'lutensile ripremi star_cycle perchè sei con lo stop (M0).

facci sapere.

[ultimo80]

Grazie anche se in ritardo sante5555.....proverò la macro.
Solo una cosa, io devo azzerare gli utensili sul tornio...in pratica a mandrino fermo porto l'utensile ad un punto noto e devo dire al CN "confronta le misure e scrivi nella tabella Geometria T1D1"...la macro la posso adattare tranquillamente?

[sigrindi]

scusami se mi permetto di dirti questa cosa,ma io per azzerare l'utensile faccio cosi:

-selettore in manuale
-entro in mda e digito quanto segue
-T1D1 ; numero utensile e correttore
-G54 ; spostamento zero
-G00 X0 ; MI PORTO AL CENTRO DEL PEZZO ALLA Z MASSIMA

-ESCO DA MDA ED ENTO IN MANUALE

a questo punto con il volantino attivo oppure in mda con rotazione del mandrino vado a sfiorare il pezzo.
a questo punto il valore che compare in Z è il tuo azzeramento utensile da immettere nel tuo T1D1.
spero di essere stato chiaro