MACH3 a skript pro Four Station Tool Posts HAK20

Diskuze o softvéru MACH od tvůrců Artsoft všech verzí: dotazy, programování, skripty, poznatky atd...
Odpovědět
JARA50
Příspěvky: 12
Registrován: 11. 8. 2019, 1:02

17. 2. 2020, 5:35

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Ě.
Naposledy upravil(a) JARA50 dne 23. 2. 2020, 10:55, celkem upraveno 1 x.
Uživatelský avatar
robokop
Site Admin
Příspěvky: 22371
Registrován: 10. 7. 2006, 12:12
Bydliště: Praha
Kontaktovat uživatele:

17. 2. 2020, 7:27

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
Vsechna prava na chyby vyhrazena (E)
JARA50
Příspěvky: 12
Registrován: 11. 8. 2019, 1:02

17. 2. 2020, 8:26

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.
JARA50
Příspěvky: 12
Registrován: 11. 8. 2019, 1:02

21. 2. 2020, 9:59

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
Odpovědět

Zpět na „MACH všech verzí“