És a hosszkorrekció:

Videót nem rakok, semmi extra: odamegy, megnyomja, hátramegy.

A hosszmérést egy M mondattal hívjuk meg, ez lehet egyébként majdnem bármi, nálunk M976, a lényeg hogy ezen a néven legyen a makrók között.

...
T1 M6 lefut a szerszámcsere
M976 hosszt mérünk
M5 S25000 stb.
...

VB Script: Copy + Paste és koordináta helyesbítés után használható:



CurrentFeed = GetOemDRO(818) 'Az aktualis elotolasi sebesseget elmenti hogy a vegen visszaallithassa
PlateThickness = 7.350 'a legfontosabb adat kb ugy ertelmezheto hogy a hosszkorrekcios szenzor kapcsolasi pontja es a Z nullpont (pl G54) kozotti tavolsag
'allits be egy erteket ellenorizd majd meres utan korrigald

If GetOemLed (825)=0 Then 'ellenorzi hogy nem ad e a sznzor folyamatosan jelet ha kell lehet itt is negalni (1) vagy az inputoknal

Code "G4 P2" ' varakozas igazabol folosleges
Code "G00 G53 X-17 Y22" 'az aktualis z magassagon elmegy a merofej fole koordinatat igeny szerint atirni
Code "G00 G53 Z-35" 'megkozeliti a merofejet
Code "G31 Z-20 F250" 'Z-ben lemegy max 20mm-t a megadott elotolassal
While IsMoving()
Wend
ZProbePos = GetVar(2002) 'a szenzor eleresenek koordinatajat eltarolja
Call SetOEMDro (802, PlateThickness) 'ne egeszen ertem hogy mit csinal talan valami munkadarab vastagsagot beallit ezzel krigalja a szerszamhosszt
'G54-nel tovabbiakban semmi jelentossege a beirt z erteknek
Code "G4 P0.25" 'kivaras a koordinatak frissitesenek idejere
Code "G00 G54 Z60" 'Eltavolodunk a szenzortol Lehetne G53-ban is
While IsMoving ()
Wend
Code "(Z axis is now zeroed)" 'uzenet az allapotsorba
Code "F" &CurrentFeed 'visszaallitja az eredeti elotolast
Else
Code "(Z-Plate is grounded, check connection and try again)" 'ha a szenzor allandoan jelet ad ez a hibauzenetet irja ki
Exit Sub
End If

...

Az előbbi makrónak az "M6Start" nevet kell adni!!!!!!!!!!!!!!!!!!!!!

Előzmény: tomktom, 2011-09-21 14:49:00 [6539]

Nem rég szóba került az automata szerszámcsere kérdése. Akkor említettem, hogy mi azzal használjuk a Mach3-at, de linken kívül nem sokat segítettem. Az alábbiakban magyar kommentekkel bemásolom az általunk használt programot, és videót a működéséről. Hamarosan majd csinálok egy ugyan ilyet a hosszkorrekcióról, az már többeket fog érdekelni.

A szerszámcseréről tudni kell, hogy lerakás előtt sűrített levegővel kifúvatjuk a szerszámtárat. A levegőbefúvó a főorsó alatt van, és kb. a szerszám hegyére irányul, ezért megy először a szerszámtár fölé, mert akkor pont belefújunk a patronba. A szerszámtár saját fejlesztés.

>>> Video <<<

A VB Script: Copy + Paste és használgató (persze paraméterezés után)



'Szerszamvalto makro (linearis vagy matrix tar)
'minden koordinata gepi rendszerben ertendo
Sub Main()

CurrentFeed = GetOemDRO(818) 'Az eppen aktualis elotolast eltarolja, hogy a vegen visszaallithassa
tool = GetSelectedTool()
SetCurrentTool( tool )
'Valtozo definialasa
PlusszNulla = 0
OldTool = GetOEMDRO (1200) 'Az elozo szerszamot tartolja, hozza kell adni a settins kepernyohoz
OldToolClean = GetOEMDRO (1200) & PlusszNulla 'segedkoordinatat allit be a bentlevo szerszmnak megfeleloen egy nullat a szeszam szama utan ir

x = GetToolChangeStart( 0 )
y = GetToolChangeStart( 1 )
z = GetToolChangeStart( 2 )
a = GetToolChangeStart( 3 )
b = GetToolChangeStart( 4 )
c = GetToolChangeStart( 5 )
tool = GetSelectedTool()
NewTool = tool
'Szerszamvalto makro (linearis vagy matrix tar)
'Valtozok definialasa
MaxToolNum = 3 'Szerszamtar kapacitasa
ToolDown = -96 'Z Pos szerszam megfogas es lerakas
ToolUp = -40 'Z Pos magassag a szerszamok kozti gyorsmenethez
ToolOut = -88 'Z Pos lassu mozgas magassaga
ToolSd = -60 'Z Pos lassu mozgas magassaga ahol a befogo a szerszamra csuszik
ToolRapid = 2000 'Feedrate gyorsjarat sebessege
ToolSlow = 500 'Feedrate lassujarat sebessege
ToolBlow = -100 'Z Pos kifuvatas pozicioja
'ellenorzi hogy az van-e az orsoban mint amit meghivtunk
If NewTool = OldTool Then
Exit Sub
End If
'ellenorzi hogy volt e szerszam az orsoban
If OldTool = 0 Then
GoTo SzerszamFelvetel 'egy hivatkozasra ugrik
End If
While NewTool > MaxToolNum
NewTool = Question ("Enter New Tool Number up to " & MaxToolNum)
Wend
Code "G00 G53 Z" & ToolUp 'Bekezdo mozgas, elmegy a gyorsjarat magassagara
While IsMoving()
Wend
'ures patron tisztitasa kulon nem kapcsolok tulnyomast mert programbol egyebkent is allandoan megy
Call MovePos(OldToolClean) 'elmegy tisztitasi pozicioba
While IsMoving()
Wend
Code "F" & ToolRapid 'gyorsjarat
Code "G01 G53 Z" & ToolBlow
Code "G04 P1" 'kivaras
Code "F" & ToolRapid 'gyorsjarat
Code "G01 G53 Z" & ToolUp 'atallasi magassag
While IsMoving()
Wend
'regi szerszam lerakasa
Call MovePos(OldTool) 'elmegy a regi szerszam poziciojahoz
While IsMoving()
Wend
Code "F" & ToolRapid 'gyorsjarat
Code "G01 G53 Z" & ToolOut 'a szerszamtar ele kozvetlenul
Code "F" & ToolSlow 'lassu jarat
Code "G01 G53 Z" & ToolDown 'a lerakasi magassagig
Code "G4 P.5" 'kivaras
While IsMoving()
Wend
ActivateSignal(Output14) 'Patront nyit
Code "G4 P.5" 'Kivaras
Code "F" & ToolSlow 'lassan
Code "G01 G53 Z" & ToolOut 'elmozdul a szerszamrol (ragadas, szorulas)
Code "F" & ToolRapid 'majd gyorsan
Code "G01 G53 Z" & ToolUp 'leall rola
'uj szerszam felvetele
SzerszamFelvetel: 'program ugrasi pozicio
ActivateSignal(Output14) 'Patront nyit
Call MovePos(NewTool) 'elmegy az uj szerszm poziciojahoz
While IsMoving()
Wend
Code "F" & ToolRapid 'gyorsan
Code "G01 G53 Z" & ToolSd 'elmegy a szerszam vegeig
Code "F" & ToolSlow 'lassan
Code "G01 G53 Z" & ToolDown 'rall a szerszamra
Code "G4 P.5" 'kivaras
While IsMoving()
Wend
DeActivateSignal(Output14) 'Patront zar
Code "G4 P.5" 'Kivaras
While IsMoving()
Wend
Code "F" & ToolSlow 'szerszammal lassan kijon
Code "G01 G53 Z" & ToolOut 'a tarbol
Code "F" & ToolRapid 'szerszammal gyorsan eltavolodik
Code "G01 G53 Z" & ToolUp 'a tartol
Call SetOEMDRO (1200,NewTool)
SetCurrentTool( NewTool )
Code "G00 X" & x & " Y" & y 'Visszamegy a csere kezdeti pontjara
Code "F" &CurrentFeed 'Visszaallitja az eredeti elotolasi sebesseget
End Sub

Sub MovePos(ByVal ToolNumber As Integer)

Select Case ToolNumber
Case Is = 1 'T01 pozicioja
Xpos = -18.1830
YPos = 68.2600
Case Is = 2 'T02 pozicioja
Xpos = -18.1830
YPos = 98.2600
Case Is = 3 'T03 pozicioja
Xpos = -18.1830
YPos = 128.2600
Case Is = 10 'T01 patrontisztito pozicioja
Xpos = 0
YPos = 68.2600
Case Is = 20 'T02 patrontisztito pozicioja
Xpos = 0
YPos = 98.2600
Case Is = 30 'T03 patrontisztito pozicioja
Xpos = 0
YPos = 128.2600
End Select

Code "G00 G53 X" & XPos & " Y" & YPos
Code "F" &CurrentFeed 'Visszaallitja az eredeti elotolasi sebesseget
End Sub
Main

Most hagyom, ennél nagyobb problémám ne legyen a géppel.
A 2.63-al sok bajom volt. Pl. start után többször megfagyott.

Előzmény: Kulcsar Zoltan, 2011-09-19 12:12:00 [6537]

Á , nem jo ha küldök mert mást is elállitunk vele ( port lábak stb ) .

Probáld ujra telepiteni , vagy a 2.63-at tedd fel .

Előzmény: Kulcsar Zoltan, 2011-09-19 12:10:00 [6536]

Küldjek egy xml -t ? Csak a motor tuningot kel beállitani a Tiedhez .

Előzmény: Nemes János, 2011-09-19 12:06:00 [6535]

Teljesen jó. A 3.42-esnek lehet valami bibije.

Előzmény: Kulcsar Zoltan, 2011-09-18 21:27:00 [6533]

Az biztos jó, de mindjárt kipróbálom.

Előzmény: Kulcsar Zoltan, 2011-09-18 21:27:00 [6533]

Tugyja a fene már annyi van , én megáltam a 2.63-nál a léptetöt forgatja ez is szines Mi kel még

Kimásoltad a G kodot amit a #6528 ba tettem és ki is probáltad ?

Előzmény: Nemes János, 2011-09-18 21:01:00 [6531]

Eredetileg én is a 2.63-at használtam.A hibát nekem a 3.41,vagy 3.42 csinálta.(ez rövid ideig volt csak a gépen)Most egy idő óta megint a 2.63 van telepítve.Lehet,hogy ezzel meg minden rendben is lenne...Holnap,ha lesz időm,kipróbálom...

Előzmény: Nemes János, 2011-09-18 21:01:00 [6531]

Én a 3.42-est használom. Érdekes, a többi varázslónál nem tapasztaltam még hibát.

Előzmény: Kulcsar Zoltan, 2011-09-18 20:36:00 [6530]

Szia

Lehet benne valami mert én is a 2.63 verziot használom.

Előzmény: huntata, 2011-09-18 19:45:00 [6529]

Érdekes nekem is ezt csinálja, de a 2.63-al érdekes tökéletes!!

Előzmény: Nemes János, 2011-09-18 11:19:00 [6516]

KI probáltam és nálam tökéletesen középen van .

Másold és adj neki " tap " kiterjesztést és probáld a Mach3 ba


F800
G00 Z5
G00 X10.35 Y0
G00 Z1
G00 Z5
G00 X10.35 Y0
G01 Z0.5 F800
G01 Z-0.5 F400
G03 X10.35 Y0 I-10.35 J0 F800
G00 Z5
G00 X0 Y0
M30

Előzmény: Nemes János, 2011-09-18 14:09:00 [6527]

Megnéztem, abba van.

Előzmény: svejk, 2011-09-18 12:42:00 [6526]

I-J mode pipa absolute-ban legyen.

Előzmény: svejk, 2011-09-18 12:37:00 [6525]

Setup-ban a kör leírásának a módja rendben van?

Előzmény: Nemes János, 2011-09-18 12:30:00 [6523]

Érdekes mert nekem ha a tengelyek 0,0,0 akkor a szerszámot a kör középpontjába teszi.

Előzmény: Nemes János, 2011-09-18 12:30:00 [6523]

Próbáltam de ugyan az...

Előzmény: VViktor, 2011-09-18 11:42:00 [6519]

Ja igen az meg a másik, hogy a mérete se annyi amennyinek kellene leni.

Előzmény: VTamás, 2011-09-18 11:35:00 [6518]

Hát ezaz!

Előzmény: Sir-Nyeteg, 2011-09-18 11:34:00 [6517]

Igy van , és frissitsd a képernyöt rajta .

Előzmény: VViktor, 2011-09-18 11:42:00 [6519]

János mielőtt nekiállsz szerkeszteni Kör kivágást állítsd a tengelyeket nullára.

Előzmény: Nemes János, 2011-09-18 11:19:00 [6516]

Én ezzel a varázslóval párszor ráfáztam.Hol kisebb lett a kör,hol nagyobb.Azt azóta sem tudom,hogy miért?
Másik progiban készített kör viszont rendben van.
Erre a műveletre tehát nem szeretem használni a Mach3-at...

Előzmény: Nemes János, 2011-09-18 11:19:00 [6516]

Ha minden igaz, akkor az a kereszt a maró helyzete, nem a kör középpontját mutatja. Szerintem.

Előzmény: Nemes János, 2011-09-18 11:19:00 [6516]

Üdv!
Valamit rosszul csinálok vagy ez mach3 hiba?
Kört szerettem volna kivágni, de a kör középpontját nem tudtam beállítani.
___KÉP___
Mi lehet a probléma?

igy látszik inkább a használando szoftverek milyen programozási nyelven irodnak az a leghatékonyebb matematikai muveletek össegzési alapján ezért még a leghatékonyabb programozoi nyelv még a borland delphi !

Előzmény: Kulcsar Zoltan, 2011-09-18 09:03:00 [6514]

Szia

Nem is az a gond , hanem az hogy Win2000 és XP fut a Mach3 .Azoknak meg gép igényük van .
P-I és P-II processor még nem készült 1Ghz ben

Előzmény: elektron, 2011-09-17 10:30:00 [6512]

én már commodore64-el is megcsináltam!
az csak 0.95 MHz-es volt.
utána meg 40 MHz-es 486-on is.

Előzmény: elektron, 2011-09-17 10:30:00 [6512]

Az a furcsa, hogy ugyanezt majdnem megcsinálták anno Z80 processzorral 4 MHz-en ....

Előzmény: Kulcsar Zoltan, 2011-09-17 06:56:00 [6510]

köszönöm a reagálást mindenkinek, ma megyek és veszek valamit,de nem adok tizezernél többet érte azt már elhatároztam.

Előzmény: Kulcsar Zoltan, 2011-09-17 06:56:00 [6510]

Arra nem az igaz , de arra kitér hogy 1Ghz processor és 512Mb memoria.

P-III 800Mhz 384 Mb (256+128 ) ez amit itthon a cnc-re használok már 4 éve .

Előzmény: csewe, 2011-09-17 06:51:00 [6509]

arra nem tér ki a lerírás,hogy P1-es vagy P2-es gép a minimum.
Lehet, hogy P1-essel is elmegy?

Előzmény: Kulcsar Zoltan, 2011-09-17 06:43:00 [6507]

igen,de csak sirnyeteg reagált

Előzmény: Kulcsar Zoltan, 2011-09-17 06:43:00 [6507]

Szia

KOrán keltél .

Pc minimum

Hasonlot kérdeztél tegnap 19:16 kor is

Előzmény: csewe, 2011-09-17 05:37:00 [6506]

HELÓ!!!!
Mi az a leggyengébb konfiguráció,amin még biztosan elmegy a mach, léptecses gépnél.
Tapasztalatokat kérnék.

azért is a régebbi tipusokhoz húzok, mert ha újra kell telepíteni,nem kell kismillió drivert felrakni,hogy egyáltalán működjö rajta valami,hanem a xp alapból felismer mindent.

Előzmény: csewe, 2011-09-16 20:45:00 [6504]

ja , és a kompakt gépekkel szinpatizálok, de ha nemlessz kompakt akkor meg fogok elégedni egy állóházassal.

Előzmény: csewe, 2011-09-16 20:42:00 [6502]

Ezzel már szépen megy a Mach3. Az ára is baráti.

Előzmény: svejk, 2011-09-16 20:39:00 [6501]

kösz,de nekem már hétfön kellene,mert a talis gépet szeretném vele tesztelni/használni.

Előzmény: svejk, 2011-09-16 20:39:00 [6501]

P4 2,8 GHz 512 MB 40 GB álló házas gépet tudok vinni Fehérvárra 11 ezerért.

Előzmény: csewe, 2011-09-16 19:30:00 [6500]

inkább a régebbi tipusokkal kapcsolatban érdeklődnék,mert mos kellene beruháznom,és talán egy p2-es még elfogadható lehet a mach-nak.
én egy tizest akarok csak rászánni.

Előzmény: Sir-Nyeteg, 2011-09-16 19:19:00 [6499]

Egyik gépem: P3 800mHz, 196Mb RAM.
Viszont nincs semmi más telepítve rá.

Előzmény: csewe, 2011-09-16 19:16:00 [6498]

azt szeretném kérdezni,hogy mik a tapasztalatok,mi az a minimális hardver(PC) amin még biztonságosan megy a mach léptecses gépnél.

Elkészül egy újabb plugin verzió, ebben már az MPG1-et is kezeli, és az Index bemeneten állítaható hány réses optotárcsát használunk. Bővebb információ a weboldalamon.

Előzmény: Egyújabbgépépítő, 2011-09-11 11:09:00 [6495]

Szerintem ennek érdemes lenne új topikot nyitni, már csak a várható tapasztalatcsere miatt is.

Akkor indulhat az új lista
NewUser 1db

Előzmény: Polgárdi Balázs, 2011-09-11 07:50:00 [6491]

Köszönöm !

Előzmény: Polgárdi Balázs, 2011-09-11 07:50:00 [6491]

Köszönöm.

Előzmény: Polgárdi Balázs, 2011-09-11 07:50:00 [6491]