zero tool vb code veranderd
Moderator: Moderators
-
- Donateur
- Berichten: 1102
- Lid geworden op: 15 sep 2015 16:39
- Locatie: Andijk
- Contacteer:
zero tool vb code veranderd
Hallo
Ik heb in de vb code van zero tool ,een getal veranderd.
Mijn vraag moet ik nu ALLES opnieuw calculaten?
Ik heb in de vb code van zero tool ,een getal veranderd.
Mijn vraag moet ik nu ALLES opnieuw calculaten?
- andrefc101
- Donateur
- Berichten: 3702
- Lid geworden op: 26 dec 2007 08:39
- Locatie: Bergen op Zoom
- Contacteer:
Re: zero tool vb code veranderd
Ik denk het wel.
-
- Donateur
- Berichten: 1102
- Lid geworden op: 15 sep 2015 16:39
- Locatie: Andijk
- Contacteer:
Re: zero tool vb code veranderd
Ik wil het graag zeker weten,aan ik denk het wel heb ik niets he.
- andrefc101
- Donateur
- Berichten: 3702
- Lid geworden op: 26 dec 2007 08:39
- Locatie: Bergen op Zoom
- Contacteer:
Re: zero tool vb code veranderd
Oh sorry, zal er voortaan beter over nadenken. Je moet er natuurlijk wel wat aan hebben.bertus1945 schreef: ↑14 jul 2020 13:16 Ik wil het graag zeker weten,aan ik denk het wel heb ik niets he.
-
- Donateur
- Berichten: 1102
- Lid geworden op: 15 sep 2015 16:39
- Locatie: Andijk
- Contacteer:
Re: zero tool vb code veranderd
toch bedankt hoor dat je reageert.
Re: zero tool vb code veranderd
Wat is een "zero tool vb code" en welke software hoort deze tool bij?
Wat heb je veranderd en wat bedoel je precies met "moet ik nu ALLES opnieuw calculaten".
(mede namens Andre )
Wat heb je veranderd en wat bedoel je precies met "moet ik nu ALLES opnieuw calculaten".
(mede namens Andre )
-
- Donateur
- Berichten: 1102
- Lid geworden op: 15 sep 2015 16:39
- Locatie: Andijk
- Contacteer:
Re: zero tool vb code veranderd
zero tool is om te nullen,ik gebruik mach3,en in mach3 kun je een script ervoor plaatsen.
en met Alles bedoel alles wat ik tot nu toe gecalcuclated heb of dat nu weer opnieuw moet,ik heb 20 dikte veranderd naar 19mm dikte van zero tool
zo duidelijk genoeg????
en met Alles bedoel alles wat ik tot nu toe gecalcuclated heb of dat nu weer opnieuw moet,ik heb 20 dikte veranderd naar 19mm dikte van zero tool
zo duidelijk genoeg????
Re: zero tool vb code veranderd
Geen idee hoe dat script in elkaar steekt. Misschien doet hij een G92 offset, of trekt ie het van de G43 af ofzo. Kan op meerdere manieren. Geen idee. Maar hoe lang duurt het opnieuw berekenen? zijn dat uren of minuten?
-
- Donateur
- Berichten: 1102
- Lid geworden op: 15 sep 2015 16:39
- Locatie: Andijk
- Contacteer:
Re: zero tool vb code veranderd
dit is de zero tool code die ik altijd gebruikt heb.
'chengdu xhc tec. probe z surface macro
FeedCurrent = GetOemDRO(818) 'Get the current settings, OEM DROs (818)=Feedrate DRO
ZCurrent = GetOemDro(802) 'OEM DROs (802)=Z DRO
GageH = GetOEMDRO(1001) 'OEMDRO(1001)=Gage Block Height
ZNew = ZCurrent - 300 'probe down 20 mm
Code "G90F200" 'slow feed rate to 100 MM/MIN
SetOemDRO(818,200)
Rem Code "G4 P1" 'Pause 1 second to give time to position probe plate
Code "G31 Z" &ZNew
While IsMoving()
Sleep(10)
Wend
Call SetDro (2,GageH) 'DRO(2)=Z DRO
FinalMove = GageH + 10
Code "G0 Z" &FinalMove
Code "F" &FeedCurrent 'restore starting feed rate
SetOemDRO(818,FeedCurrent)
Omhoog
dit is het script die regel Znew - 300 'probe 20 mm
dat heb ik veranderd in 285 omdat mijn zero tool 19 mm dik is.
en alles op nieuw caculaten duurt wel ff heb meer dan 300 projecten gemaakt de laatste jaren.
ik gebruik deze zero tool al 3 jaar en werkt perfect
https://nl.aliexpress.com/item/33047035 ... hweb201603_
'chengdu xhc tec. probe z surface macro
FeedCurrent = GetOemDRO(818) 'Get the current settings, OEM DROs (818)=Feedrate DRO
ZCurrent = GetOemDro(802) 'OEM DROs (802)=Z DRO
GageH = GetOEMDRO(1001) 'OEMDRO(1001)=Gage Block Height
ZNew = ZCurrent - 300 'probe down 20 mm
Code "G90F200" 'slow feed rate to 100 MM/MIN
SetOemDRO(818,200)
Rem Code "G4 P1" 'Pause 1 second to give time to position probe plate
Code "G31 Z" &ZNew
While IsMoving()
Sleep(10)
Wend
Call SetDro (2,GageH) 'DRO(2)=Z DRO
FinalMove = GageH + 10
Code "G0 Z" &FinalMove
Code "F" &FeedCurrent 'restore starting feed rate
SetOemDRO(818,FeedCurrent)
Omhoog
dit is het script die regel Znew - 300 'probe 20 mm
dat heb ik veranderd in 285 omdat mijn zero tool 19 mm dik is.
en alles op nieuw caculaten duurt wel ff heb meer dan 300 projecten gemaakt de laatste jaren.
ik gebruik deze zero tool al 3 jaar en werkt perfect
https://nl.aliexpress.com/item/33047035 ... hweb201603_
-
- Donateur
- Berichten: 1102
- Lid geworden op: 15 sep 2015 16:39
- Locatie: Andijk
- Contacteer:
Re: zero tool vb code veranderd
Ik doe het nu zo
Met z zerotool set nullen,en dan in input Z-1 en dan Z-0 en dan gaat hij netjes door materiaal heen
om het getal te veranderen van ZNew =ZCurrent -300 naar 285 had geen effect.
Ik zou wel eens willen weten welke code jullie gebruiken???
Met z zerotool set nullen,en dan in input Z-1 en dan Z-0 en dan gaat hij netjes door materiaal heen
om het getal te veranderen van ZNew =ZCurrent -300 naar 285 had geen effect.
Ik zou wel eens willen weten welke code jullie gebruiken???
- Ballegooijen
- Donateur
- Berichten: 4913
- Lid geworden op: 20 sep 2016 15:45
- Locatie: 's-Gravendeel
- Contacteer:
Re: zero tool vb code veranderd
ff 1 bestand proberen en je weet het
Kennis vermenigvuldigt zich alleen als je het deelt.
https://www.Baldas.nl
https://www.Baldas.nl
-
- Donateur
- Berichten: 1102
- Lid geworden op: 15 sep 2015 16:39
- Locatie: Andijk
- Contacteer:
Re: zero tool vb code veranderd
wie o wie heeft er goeie zero tool probe vb code voor me????
windows xp
Mach3
wie o wie gebruikt deze code???????
'VB Code Start
'-------------------
CurrentFeed = GetOemDRO(818)
DoSpinStop()
ZMove = 20.00 'Total lenght of Probe to move before Stop or no Contact Made.
ZOffset = 1.60 ' Plate Hight
ZSal = ZOffset + 2.00 '+ Free Hight, Will possition the Proble 2 MM over the Material.
StopZmove = 0
If GetOemLed (825)=0 Then
DoOEMButton (1010)
Code "G4 P2.5"
Code "G31 Z-"& ZMove & "F25"
While IsMoving()
Sleep(200)
Wend
Probepos = GetVar(2002)
If Probepos = - ZMove Then
responce = MsgBox ("**ERROR** " , 4 , "Probe **ERROR**" )
Code "G0 Z10"
StopZmove = 1
Code "F" &CurrentFeed
End If
If StopZmove = 0 Then
Code "G0 Z" & Probepos
While IsMoving ()
Sleep (200)
Wend
Call SetDro (2, ZOffset)
Code "G4 P1"
Code "G0 Z" & ZSal
Code "(Z zeroed)"
Code "F" &CurrentFeed
End If
Else
Code "(Check Ground Probe)"
End If
Exit Sub
'-------------------
'VB Code Stop
windows xp
Mach3
wie o wie gebruikt deze code???????
'VB Code Start
'-------------------
CurrentFeed = GetOemDRO(818)
DoSpinStop()
ZMove = 20.00 'Total lenght of Probe to move before Stop or no Contact Made.
ZOffset = 1.60 ' Plate Hight
ZSal = ZOffset + 2.00 '+ Free Hight, Will possition the Proble 2 MM over the Material.
StopZmove = 0
If GetOemLed (825)=0 Then
DoOEMButton (1010)
Code "G4 P2.5"
Code "G31 Z-"& ZMove & "F25"
While IsMoving()
Sleep(200)
Wend
Probepos = GetVar(2002)
If Probepos = - ZMove Then
responce = MsgBox ("**ERROR** " , 4 , "Probe **ERROR**" )
Code "G0 Z10"
StopZmove = 1
Code "F" &CurrentFeed
End If
If StopZmove = 0 Then
Code "G0 Z" & Probepos
While IsMoving ()
Sleep (200)
Wend
Call SetDro (2, ZOffset)
Code "G4 P1"
Code "G0 Z" & ZSal
Code "(Z zeroed)"
Code "F" &CurrentFeed
End If
Else
Code "(Check Ground Probe)"
End If
Exit Sub
'-------------------
'VB Code Stop
-
- Donateur
- Berichten: 1102
- Lid geworden op: 15 sep 2015 16:39
- Locatie: Andijk
- Contacteer:
Re: zero tool vb code veranderd
ok mooi zo
en moet ik enkel ZOffset = 1.60 veranderen in 19,want mijn tool is 19 mm dik
en moet ik enkel ZOffset = 1.60 veranderen in 19,want mijn tool is 19 mm dik