Przy okazji udało się wyeliminować opóźnienie z tematu wątku dzięki koledze karpik74
W machu było w ms w kodzie w sec. Dzięki za pomoc - prosta rzecz a nieraz trudno na nią wpaść

Panowie, jak już pisałem zastosowałem makro i procesor podane wyżej i jest OK.
Palnik odpala nad materiałem i zjeżdża w dół wypalając bez opóźnień. Więc temat opóźniena w paleniu został na podstawie Waszych rad rozwiązany.

Pojawił się za to nowy problem a mianowicie palnik po odpaleniu zjeżdża w materiał, paląc się stoi w pozycji Z~0 kilka sekund wypalając materiał po czym podnosi się delikatnie i wraca na Z=0 by po ok 1 sec wystartować z posuwem - wypalając zadany element.
Czyli wygląda że detekcja jest wykonywana jedynie wg mnie stoi za długo jarząc się zanim ruszy. Pytanie jak to skorygować ?

Prędkość przebijania mam ustawione 600mm/min.

Po zastosowaniu powyzszego procesora i makra palnik włącza sie nad materiałem czyli problem opóźnienia rozwiązany. Jednak prawdopodobnie wymaga porawy parametrów ponieważ :
palnik odpala ponad materiałem, schodzi w dół dociskając blachę i stoi w miejscu parę sekund
następnie podnosi się trochę w górę i znów schodzi w materiał na ok 1-2 sek po czym podnosi się i zaczyna ruch.
gdzie i co poprawić ?

DOHC - Skonfigurować sygnał ARC ok to rozumiem że przypisąć go w sygnałach input pod Probe , tak ? Jak mam dopisać kod do procesora ? Jak już wspominałem ciemny jestem

Snajperman-s1 - już próbowałem tak zrobic i bez zmian, po zmianie dyszy tak samo.

adam Fx - prawdopodobnie sygnał ARC rozwiąże sprawę. chciałbym użyc poniższego procesora i makro znalezione na forum - będą dobre ?
Do tego sygnał ARC Ok przypisac do PROBE w input signals ?
Kod:
function OnAbout(event)
ctrl = event:GetTextCtrl()
ctrl:AppendText("plasma THC300 post processor\n")
ctrl:AppendText("\n")
ctrl:AppendText("Modal G-codes and coordinates\n")
ctrl:AppendText("Comments enclosed with ( and )\n")
ctrl:AppendText("M03/M05 turn the torch on/off\n")
ctrl:AppendText("Incremental IJ\n")
ctrl:AppendText("The torch is referenced at cut start and every 500mm of movement thereafter\n")
ctrl:AppendText("Designed for use with Mach2 and Campbell Designs THC300\n")
ctrl:AppendText("Post variables:\n")
ctrl:AppendText("refdistance - set the distance between each reference\n")
end



-- revision 3/2/07
-- Removed final safety move. This is now done in SheetCam

-- revision 7/10/05
-- Added new arc handling

-- created 27/10/04
-- Based on plasma1.post



function OnInit()

post.SetCommentChars ("()", "[]") --make sure ( and ) characters do not appear in system text
post.Text (" (Filename: ", fileName, ")\n")
post.Text (" (Post processor: ", postName, ")\n")
post.Text (" (Date: ", date, ")\n")
if(scale == metric) then
post.Text (" G21 (Units: Metric)\n") --metric mode
else
post.Text (" G20 (Units: Inches)\n") --inch mode
end
post.Text (" G53 G90 G40\n F1\n S500\n")

dist = 9999999
refdistance = 500 * scale
switchoffset = -0.08
bigarcs = 1 --stitch arc segments together
minArcSize = 0.05 --arcs smaller than this are converted to moves
end

function OnNewLine()
post.Text ("N")
post.Number (lineNumber, "0000")
lineNumber = lineNumber + 10
end


function OnFinish()
post.Text (" M05 M30\n")
end

function OnRapid()
if(math.hypot(endX-currentX , endY-currentY) < 0.001 and endZ < currentZ) then return end
dist = dist + math.hypot(endX-currentX , endY-currentY)
post.ModalText (" G00")
post.ModalNumber (" X", endX * scale, "0.0000")
post.ModalNumber (" Y", endY * scale, "0.0000")
post.ModalNumber (" Z", endZ * scale, "0.0000")
post.Eol()
end

function OnMove()
dist = dist + math.hypot(endX-currentX , endY-currentY)
post.ModalText (" G01")
post.ModalNumber (" X", endX * scale, "0.0000")
post.ModalNumber (" Y", endY * scale, "0.0000")
post.ModalNumber (" Z", endZ * scale, "0.0000")
post.ModalNumber (" F", feedRate * scale, "0.###")
post.Eol()
end

function OnArc()
dist = dist + math.hypot(endX-currentX , endY-currentY)
if(arcAngle <0) then
post.ModalText (" G03")
else
post.ModalText (" G02")
end
post.NonModalNumber (" X", endX * scale, "0.0000")
post.NonModalNumber (" Y", endY * scale, "0.0000")
post.ModalNumber (" Z", endZ * scale, "0.0000")
post.Text (" I")
post.Number ((arcCentreX - currentX) * scale, "0.0000")
post.Text (" J")
post.Number ((arcCentreY - currentY) * scale, "0.0000")
post.ModalNumber (" F", feedRate * scale, "0.0###")
post.Eol()
end


function OnPenDown()

post.Text ("\n G00 Z20\n")-- ustawienie palnika ok 20mm nad materiał
post.Text ("\n M03\n")-- Załączenie plazmy

post.Text ("\n G31 Z-10 F300\n")-- szukanie materiału z prędkością 300 do pozycji Z=-10
post.Text ("\n G92 Z3\n")-- Zerowanie osi Z + przykładowa korekcja
post.Text ("\n G00 Z6\n")-- podniesienie palnika 6mm nad materiał
post.Text ("\n G04 P1000\n")-- czas przebijania materiału 1000ms/1s
post.Text ("\n G00 Z1\n")-- obniżenie palnika 1mm nad materiał
end



function OnPenUp()
post.Text (" M05\n")

end


function OnNewOperation()
post.Text (" (Process: ", operationName, ")\n")
if (plungeRate <= 0) then
post.Warning("WARNING: Plunge rate is zero")
end
if (feedRate <= 0) then
post.Warning("WARNING: Feed rate is zero")
end
end

function OnComment()
post.Text(" (",commentText,")\n")
end

function OnToolChange()
post.Text (" M06 T")
post.Number (tool, "0")
post.Text (" (", toolName, ")\n")
end

function OnNewPart()
post.Text(" (Part: ",partName,")\n");
end

function OnDrill()
OnRapid()
OnPenDown()
endZ = drillZ
OnMove()
OnPenUp()
endZ = safeZ
OnRapid()
end



A tu makro do macha M300 pod ARC OK PROBE ze strony Proma Elektronika

Kod:
HeightOfDetect = 10
SpeedOfDetect = 300
Offset = 5
HeightOfPierce = 5
HeightOfCut = 1
Delay = Param1()

Dim MaterialPos As Double

If GetOEMDro(186)>HeightOfDetect Or GetOEMDro(186) Then code "G00 Z" & HeightOfDetect
While IsMoving()
Wend

DoSpinCW()
sleep(200) message("Detecting of material pos.")
code "G31 Z-10 F" & SpeedOfDetect
While IsMoving()
Wend
If GetOEMDro(186)=-10 Then
DoSpinStop() message("No material detected")
code "G00 Z" & HeightOfDetect
While IsMoving()
Wend
1: GoTo 1
Else
MaterialPos = GetOEMDro(186) - offset
message("Material detected pos = " & MaterialPos)
If Delay>200 Then
code "G00 Z" & MaterialPos + HeightOfPierce
While IsMoving()
Wend
End If
Sleep(Delay+1)
code "G00 Z" & MaterialPos + HeightOfCut
While IsMoving()
Wend
End If

Mam taki kod na przykład:

N0010 (Filename: Stojak Kangur_XJ_A.tap)
N0020 (Post processor: Mach3 plasma.scpost)
N0030 (Date: 2017-02-24)
N0040 G21 (Units: Metric)
N0050 G53 G90 G91.1 G40
N0060 F1
N0070 S500
N0080 (Part: BarBracketXJFSwamper)
N0090 (Operation: Na zewnątrz, 0, T1: Plazma, 0,0591 inch szczelina)
N0100 M06 T1 F1000.0 (Plazma, 0,0591 inch szczelina)
N0110 G00 Z38.1000
N0120 X44.7970 Y177.5818
N0130 Z3.0000
N0140 M03
N0150 G04 P0.8
N0160 G01 Z2.0100 F600.0
N0170 G03 X40.7666 Y175.3691 I-0.9088 J-3.1216 F1000.0
N0180 X40.7505 Y175.0000 I4.2334 J-0.3691
N0190 G01 Y145.0000
N0200 G03 X45.0000 Y140.7505 I4.2495 J0.0000
N0210 G01 X134.8928
N0220 G03 X138.4048 Y147.3926 I0.0000 J4.2495
N0230 G01 X117.9669 Y177.3926
N0240 G03 X114.4549 Y179.2495 I-3.5120 J-2.3926
N0250 G01 X45.0000
N0260 G03 X40.7666 Y175.3691 I0.0000 J-4.2495
N0270 M05
N0280 G00 Z38.1000
N0290 X44.0017 Y260.1797
N0300 Z3.0000
N0310 M03
N0320 G04 P0.8
N0330 G01 Z2.0100 F600.0
N0340 G03 X40.7505 Y256.9285 I0.0000 J-3.2512 F1000.0
N0350 G01 Y225.0000
N0360 G03 X45.0000 Y220.7505 I4.2495 J0.0000
N0370 G01 X80.3917
N0380 G03 X83.9037 Y227.3926 I0.0000 J4.2495
N0390 G01 X48.5120 Y279.3427
N0400 G03 X40.7505 Y276.9502 I-3.5120 J-2.3926
N0410 G01 Y256.9285
N0420 M05

W linii N0150, po M03 jest podobna komenda jak podałeś, czyli wartosć 0.8 zamienić na 3 na przykład ? To w Mach-u już dokonywać zmian ?

adam Fx pisze:

stalmasz pisze:Powód jest taki że źródło najpierw włącza gaz po chwili pąd dzieje się tak za każdym razem po zakończeniu cyklu chłodzenia palnika . Możesz sobie dorobić przycisk którym będziesz załączał palnik przed pierwszym paleniem . Niektóre plazmy tak mają , ma to wydłużyć życie dysz i elektrod . Lub wymienić źródło .

lub dodać zwłokę czasową w programie

pankracy pisze:Być może to brak zwłoki właśnie ale nie wiem gdzie ją ustawic...

Albo dopisać ręcznie na początku konturu albo zmienić postprocesor w CAM

[ Dodano: 2017-02-25, 17:51 ]
G04 Przerwa czasowa z parametrem P (czas ) np g04 p3

Jak ustwić zwłokę czasową w programie ?
ręcznie doklepać wiersz w g-kodzie (g04 p3) ? w machu juz ?
Ew. z jakie procesora korzystać ?

Być może to brak zwłoki właśnie ale nie wiem gdzie ją ustawic...
Dodam że palnik tak jakby się włączał tzn powietrze idzie tylko zajarzenie łuku następuje po chwili tak jak napisałem przy pierwszym razie póżniej już ok.

Mam podłączone THC150 i tam jest arc ok ale pewnie nie o to chodzi...
znalazłem coś takiego:
https://www.weldingsuppliesfromioc.com/ ... kit-9-8311
tylko piszą że nie nadaje sie do Cutmaster 42.

Witam,
Mam następujący ( jeden z wielu problem z wypalarką.
Przy starcie zaczyna wypalać po ok 2 sekundach pracy / 2 cm. Problem pojawia się tylko przy pierwszym wypaleniu. Wczytuję g-kod na wyciecie np. 5 kwadratów to pierwszy z nich ma niedopalony początek na dł. jw. Pozostałe już pali normalnie / w całości. Może ma ktoś pomysł co może być przyczyną ?
Używam sheetcam, Mach3, plazma Cutmaster42 (ThermalDynamics)