Ahoj,
může mi někdo napsat skript do MACH3 pro výměnu nástrojů s cnc hlavou Four Station Tool Posts HAK20 (HAK20080-48)?
Jsou tam 4 dráty od senzorů a dvě relátka s kondíkem pro pro směr jednofázového dvousměrného motoru s třemi dráty, fáze nulák fáze.
Profi provedení, profi cena.
Jára.
SKRIPT JE NA SVĚTĚ.
MACH3 a skript pro Four Station Tool Posts HAK20
- robokop
- Site Admin
- Příspěvky: 22396
- Registrován: 10. 7. 2006, 12:12
- Bydliště: Praha
- Kontaktovat uživatele:
postup vymeny nastroje funguje tak ze kdyz je potreba vymenit na jiny nastroj pustim pohon hlavy jednim smerem a kontroluji stav 4 senzoru (kazdy pro jednu z pozic) dokud se neobjevi pozadovana poloha, v tu chvili vypnu pohon a zapnu druhe rele pro pohon nazpet na 1-2sec
to je vse
tj. na tom scriptu nic neni
to je vse
tj. na tom scriptu nic neni
Vsechna prava na chyby vyhrazena (E)
Ahoj,
nejsem si jistý, , že když zapojím input #1 - #4 a output #3 a #4 a enable2 a do skriptu dám pár IF THEN, jestli to tam funguje, že mám vyhráno, to už nehledím na zatím možný počet pinů, no, nějaká rezerva je na druhém portu.
Takže zatím mám ještě čas přemýšlet, jak zplichtit pokusný four tool station na ověření funkčnosti.
Blížíme se, blížíme, díky, ale dalekohled mi to ještě nebere.
Jára.
nejsem si jistý, , že když zapojím input #1 - #4 a output #3 a #4 a enable2 a do skriptu dám pár IF THEN, jestli to tam funguje, že mám vyhráno, to už nehledím na zatím možný počet pinů, no, nějaká rezerva je na druhém portu.
Takže zatím mám ještě čas přemýšlet, jak zplichtit pokusný four tool station na ověření funkčnosti.
Blížíme se, blížíme, díky, ale dalekohled mi to ještě nebere.
Jára.
Ahoj,
začíná se to stříbřit, LD4HAK20 je objednaný, našel jsem makra, jedno i v němčině,
z Artsoftu od CNCwt Topic: Macro VB Script for Lathe Toolchanger (Read 30913 times)
a prý je v tom nějak zamotaný Brian Barker, asi cenná nápověda.
Že to funguje jim, není zárukou, že to bude fungovat mi, ale určitě je to zárukou dobré zábavy.
U Visual Basicu jsem skončil na 20. straně a jen znova najít tu centimer silnou A4 brožurku už bude fuška.
Takže jestli má někdo taky zájem, tu je anglverze, a na Artsoftu je k tomu spousta povídání a Google transfer to celkem zvládá.
Jára.
'M6Start.m1s
OldTool = GetOEMDRO (1200)
Tool = GetSelectedTool()
MaxToolNum = 4 'Max number of tools for the changer
If OldTool = Tool Then
Message ("Selected Tool already loaded")
Exit Sub
End If
While Tool > MaxToolNum
Tool = Question ("Enter New Tool Number up to " & MaxToolNum)
Wend
Call StartTool
While NewTool <> Tool
Call CheckPins
While IsMoving()
Wend
Wend
Call StopTool
Call SetUserDRO (1200, NewTool)
SetCurrentTool(NewTool)
'//// Subroutines /////////
Sub StartTool
ActivateSignal(Output2)
'Code "G4 P4.0" 'Wait for the tool to rotate past the sensor
While IsMoving()
Wend
End Sub
Sub CheckPins
If Not IsActive(Input1) Then
NewTool = 1
End If
If Not IsActive(Input2) Then
NewTool = 2
End If
If Not IsActive(Input3) Then
NewTool = 3
End If
If Not IsActive(Input4) Then
NewTool = 4
End If
End Sub
Sub Stoptool
DeActivateSignal(Output2)
While IsMoving()
Wend
ActivateSignal(Output3)
Code "G4 P1.0" 'Wait for the tool to rotate onto ratchet stop
While IsMoving()
Wend
DeActivateSignal(Output3)
While IsMoving()
Wend
End Sub
začíná se to stříbřit, LD4HAK20 je objednaný, našel jsem makra, jedno i v němčině,
z Artsoftu od CNCwt Topic: Macro VB Script for Lathe Toolchanger (Read 30913 times)
a prý je v tom nějak zamotaný Brian Barker, asi cenná nápověda.
Že to funguje jim, není zárukou, že to bude fungovat mi, ale určitě je to zárukou dobré zábavy.
U Visual Basicu jsem skončil na 20. straně a jen znova najít tu centimer silnou A4 brožurku už bude fuška.
Takže jestli má někdo taky zájem, tu je anglverze, a na Artsoftu je k tomu spousta povídání a Google transfer to celkem zvládá.
Jára.
'M6Start.m1s
OldTool = GetOEMDRO (1200)
Tool = GetSelectedTool()
MaxToolNum = 4 'Max number of tools for the changer
If OldTool = Tool Then
Message ("Selected Tool already loaded")
Exit Sub
End If
While Tool > MaxToolNum
Tool = Question ("Enter New Tool Number up to " & MaxToolNum)
Wend
Call StartTool
While NewTool <> Tool
Call CheckPins
While IsMoving()
Wend
Wend
Call StopTool
Call SetUserDRO (1200, NewTool)
SetCurrentTool(NewTool)
'//// Subroutines /////////
Sub StartTool
ActivateSignal(Output2)
'Code "G4 P4.0" 'Wait for the tool to rotate past the sensor
While IsMoving()
Wend
End Sub
Sub CheckPins
If Not IsActive(Input1) Then
NewTool = 1
End If
If Not IsActive(Input2) Then
NewTool = 2
End If
If Not IsActive(Input3) Then
NewTool = 3
End If
If Not IsActive(Input4) Then
NewTool = 4
End If
End Sub
Sub Stoptool
DeActivateSignal(Output2)
While IsMoving()
Wend
ActivateSignal(Output3)
Code "G4 P1.0" 'Wait for the tool to rotate onto ratchet stop
While IsMoving()
Wend
DeActivateSignal(Output3)
While IsMoving()
Wend
End Sub