CNC eszterga építő iskola

[svejk]

Én tudtam hogy tudod, de Pál barátunk látod nem győzött itt kivárni. Pedig itt talán jobb helye lenne a témának.

[robroy007]

Laci nem lehetne egy értelmezzük a makró kódokat topicot nyitni? [#confused][#vigyor2]
 
mert megmondom az őszintét én se a G kódok felől kezdtem el a cnc megismerését hanem a progi kiszámolta helyettem
 
ja és programozni se sikerült megtanulnom eddig
 
de ettől függetlenül ha tudom mi mit jelent már képes vagyok némi bővítésre a sorok között [#vigyor3]

[000000000]

 
Ez nem makró hanem egy szkript ami a gép működéséhez kell.  
Ez fordítja le a masinának ha például kérsz tőle egy T202 akkor az adott szerszámtára pozicionálja és a 2-es szerszám paramétereivel dolgozzon.
Nem sok köze van a G kódokhoz maximum annyi hogy elküldi a gépet váltás előtt egy pozícióba hogy nem törje össze darabot vagy a késeket.

[000000000]

 
Lehet tudni milyen mechanika tartozik ehhez a szkript-hez?
Csak a megértése végett hogyan működik.

[svejk]

Aki érti, kommentezhetné...

[D.Laci]

Tomktom már rakot be egy komentezet  vb scriptet.
Mach3 CNC vezérlő program  
© tomktom   2011. szept. 21. 14:49 | Válasz | #6539  
 
Berakom ide:
http://www.youtube.com/watch?v=GlqPOZwvAQA" TARGET=_fnew>video a müködésröl
 
'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  
 
 

[D.Laci]

A tiédhez próbáltam valami alapot összeütni.
A teljes megiráshoz szükség lenne a mechanikát látni hogy mikor mit csinál, igy látatlanban elég nehéz.

[000000000]

 
Köszönöm az eddigi fáradozásaidat!
Megpróbálom leírni ennek a kilincsműves forgatónak a működését ami talán segítene megérteni.
Adott egy 8 táras revolver késtartó amit egy pneumatikus henger alakzárasan reteszelni tud 8 pozícióban.
amikor kireteszel akkor záródik a kilincsmű amihez egy másik munkahenger tartozik és ennek az végállástól végállásig mozgatásával 1 tár pozíciót ugrik.
Ha előbb kireteszel és utána tol egyet és visrosszeteszel aztán a toló munkahenger visszaáll alap pozícióba akkor jobbra fordul egyet.
Ha viszont előbb tol és aztán kireteszel és utána aztán toló munkahenger visszaáll alap pozícióba majd reteszel akkor balra fordul egyet.
Időzítésben ez olyan ez a két kimenet mint egy AB kvadratúra enkóder két 90 fokkal eltolt jelei.
Remélem érthető volt amit leírtam.

[5z7aew5x]

A végigolvasáson rajta vagyok, bár helyenként elég nehezen haladok mert egy kicsit zavaros néha.
A fórum használata nem gond, tudom, hogyan műxik, (máshol is fórumozok) de szerintem sok téma nincs eléggé széttagolva mint például ez sem. Így 553-ban több hozzászólást is felhoztam...
Egy kcsit grafomán vagyok, így közel az ötvenhez, nekem belefér, hogy mindenkit megtiszteljek egy mexólítással, de az biztos, hogy progi sorokat nem fogok beilleszteni.
[#integet2]

[svejk]

Nem egyszerű ez a fórum az biztos
De mi már megszoktuk.
Mindegy mit, csak írj sokat!!

[Farkas Ádám]

http://www.youtube.com/watch?v=YKb2g5xalEk&feature=endscreen&NR=1" TARGET=_fnew>Ezt csak úgy kedvcsinálónak

[svejk]

Ilyen még úgy sem volt...
Síkágyas és revolverfejes.

[5z7aew5x]

Én is mexokom...
Nem hagyom abba az írást ne aggódj...
 
off...off

[5z7aew5x]

Na ezt az előbb én is láttam. Az enyém is ilyesmi lesz.[#integet2]

[Farkas Ádám]

Találtam a szekrényben két új csigaáttételt (nem tudom ki tette oda).
Szóval gondolkodtam lehetne-e használni szerszámbefogónak. Elég robosztus vas öntvény, de mégis jó méret ehhez a projekthez.
http://cnctar.hobbycnc.hu/Adam/kis/DSC04502.JPG" border=0>
Egy kérdésem lenne a kihajtása 20mm, belerakok egy 20-as rudat és arra ráaplikáklom a késtartót, nem-e lesz  gyenge a nyaka mármint ez a 20-as kihajtás. Amikor forgácsol nem-e ezen fog rugózni a kés?
http://cnctar.hobbycnc.hu/Adam/kis/DSC04503.JPG" border=0>
Kíváncsiak kedvéért kinyitottam:
http://cnctar.hobbycnc.hu/Adam/kis/DSC04504.JPG" border=0>
 
Van egy halvány kottanása, de ezt szerintem a következő megoldható problema.
Két dologra gondoltam:
1. Az a kicsit visszatekerős megoldás ami egy rugo+lemezzel reteszel. (habár ez nem valami pontos)
2. Vagy pozícióba állás után elég lenne csak a holtjátékot elnyomni ütközésig, valami rugós dologgal.