Nej H.O du är inte trög, det har du bevisat gång efter gång,

bara jag som inte är tillräckligt hemma i cncprogrammering ännu och därför dålig på att förklara, ingen aning vad som är fel i min installation men du har rätt nåt lur e det allt, grejen är att verktyget går på fel håll när jag bytt fräs, MEN eftersom jag har en fast probe så tror jag att lösningen ligger i att köra allt i g53 förutom g31 positioneringarna som bara behöver gå i rätt riktning, måttet är ointressant eftersom det är skillnaden mellan måtten som är intressant, lite sent nu å hjärnan börjar bli lite svampig efter alla varianter jag provat så jag rapporterar i morgon om hur det går.
fördelen med allt detta är att proba z-offset ser plötsligen väldigt enkel ut.
Så här ser det ut nu.
väldigt mycket G4, pga kör med 600mhz laptop, EN trolig anledning att det bär sig konstigt åt.
Rem VBScript For probing Tooldiameter
Call getoemdro (46)
code "g4 p1"
code "G56 z0y0"
code "g4 p1"
currentoffset = getoemdro (46) 'lagrar offset för att kunna återgå till den efter mätning
code "g4 p1"
Call setoemdro (105,0) 'nolla tooldiameterdro
code "g53 f1000 z0" 'välj g59koordinater och placera fräsen ovanför lasern
code "g53 g0 y0"
code "g53 g1 f2000 z-165" 'kör ner z till lasern
code "m3 s500"
code "f100 g31 y-100" 'scanna fräsen ena sidan
While ismoving()
Wend
toolyttre = getvar(2001)
Call setuserdro (1153,toolyttre)
code "g53 g1 f400 y-50" 'positionera fräsen för att scanna andra sidan
code "f100 g31 y1000" 'scannar andra sidan
While ismoving()
Wend
toolinnre = getvar(2001)
code "m5"
code "g4 p1"
Call setuserdro (1154,toolinnre)
code "g4 p1"
tooldiameter = toolinnre - toolyttre 'räknar ut diametern
code "g4 p1"
Call setoemdro (105,tooldiameter) 'skriver in diametern i tooldiameterdro
code "g4 p1"
Call setoemdro (46,currentoffset) 'återgår till offset
code "g4 p1"
code "g28"
exit sub