Zauważyłem pewną nieprawidłowość w działaniu SheetCama. Być może wynika to z tego, że program, który posiadam jest bez licencji (chyba demo)

Mianowicie ...SheetCam nie generuje prędkości palenia przy każdym wpaleniu, po wpisaniu identycznej wysokości przebicia i cięcia. Jeżeli te dane się różnią, program generuje odpowiednią prędkość przy każdym wpaleniu.

Nie ma znaczenia czy się wstawia mostki czy nie. Wydaje mi się kolego Olędzki, że to był przypadek. Spróbuj wstawić inne wartości w wysokości palenia i przebicia.

Mach jest programem wykonawczym ...to co dostaje w kodzie to to wykonuje. Jeżeli w kodzie nie będzie odpowiedniej prędkości przed wpaleniem to weźmie pod uwagę pierwsze F

Dla zobrazowania:
[youtube][/youtube]

dudziak4 pisze:To spróbuj Lech10 dodać w sheetcamie mostki łączące detal z arkuszem blachy to zobaczysz że zwykłe Makro na opuszczenie i wyzerowanie palnika się nie spisze.
Do pierwszego mostka będzie ok później już nie.

Nie operuje w SheetCamie. Proszę podpowiedz jak się dodaje mostki ...chciałbym to sprawdzić.

Postprocesor jest w 100% poprawny i wykorzystywany w praktyce.
Pobaw się ustawieniami w SheetCam-ie.

[ Dodano: 2017-01-08, 10:34 ]
Ten postprocesor był powprawiany kilka razy dla różnych potrzeb np. do MyPlasm THC, z detekcją pływającą głowicą.
Chyba, że coś przypadkowo usunąłeś z procka. Spróbuj na nowo zainstalować lub sprawdź ten z zał.

Niestety nie mam postprocesora do makra prokopcia.

ARC OK jest to wykrycie łuku przez THC, program nie ruszy do puki palnik nie odpali pilota lub zatrzyma program jak łuk zgaśnie. Jeżeli podłączysz dobrze MyPlasma THC to tak będzie działać. Oczywiście możesz wyłączyć THC z poziomu Macha lub makrem w kodzie.

Potrzebujesz post procesor dla SheeCama ...czy już wszystko jest ok ?

[ Dodano: 2016-06-28, 21:52 ]
Opuszczaj powoli palnik do załączenia czujnika (dalej nie powinien iść). Wyzeruj Macha i podnoś aż palnik zejdzie z czujnika i będzie "muskał" materiał. To co pokaże ci Mach wpisujesz edytując makro M300 "korekta czujnika" z "-". Zapisujesz poprawione makro. Zawsze możesz tam sobie to poprawić. Za każdym razem palnik po włączeniu czujnika bedzie podnosił się o tą korektę i zerował ...od tego momentu wchodzą dalsze wiersze kodu ...czyli wysokość przebicia, itd.

Rozumiem, że chcesz wykrywać materiał łukiem pilotującym? ...makro na stronie Proma-Elektronika

Moje makro M300 jest do detekcji pływającą głowicą z czujnikiem na PROBE i wygląda tak:

message"Uruchomienie palnika...."


Code "G31 z-30 F1000" ' opuszczanie osi Z do wspolrzednej -30 - w tym czasie powinna nastapic aktywacja czujnika
While IsMoving()
Wend

Call setdro(2,0)

Code "G92 z-1.5" ' korekta czujnika
While IsMoving()
Wend

End''koniec makra

Nie wiem jakie masz THC? Musisz wziąć pod uwagę, że jak na końcu nie wyłączysz THC lub nie masz anty-nurkowania to przy pauzie palnik będzie miał więcej czasu żeby pójść w materiał, kolizję.

Poprawiony z pauzą na końcu.

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.ModalText (" G00")
post.ModalNumber (" X", endX * scale, "0.0000")
post.ModalNumber (" Y", endY * scale, "0.0000")
post.Eol()]]
if (preheat > 0) then
post.ModalText (" G00")
post.ModalNumber (" Z", cutHeight * scale, "0.0000")
post.Eol()
post.Text(" M801\n G04 P 0.5\n M802\n G04 P0.1\n M902")
post.Text ("\n G04 P")
post.Number (preheat,"0.###")
post.Eol()
end
post.ModalText (" M300\n G00")
post.ModalNumber (" Z", pierceHeight * scale, "0.0000")
post.Text ("\n M03\n")
if (pierceDelay > 0) then
post.Text (" G04 P")
post.Number (pierceDelay,"0.###")
post.Eol()
end
end


function OnPenUp()
post.Text (" M05\n")
if (endDelay > 0) then
post.Text (" G04 P")
post.Number (endDelay,"0.###")
post.Eol()
end
end


function OnNewOperation()
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

snajperman poprawiłem tą pauzę ...już nie pamiętam?

Przykro mi ...gdybym miał ...ściągnąłem demo na potrzeby przeróbki postprocesora.

To jest postprocesor Mach dla SheetCama-a.
Realizacja detekcji pływającą głowicą (palnikiem) z czujnikiem na probe, z makrem dla Mach-a- M300 (G31 z korektą czujnika G92 Z-?). Do pobrania w oddzielnym temacie.

Plik wkleić do C:\Program Files\SheetCam TNG\Posts

...ewentualnie- skopiować poniższe, edytować dowolny post w SheetCamie- zamienić tym, zapisać.

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.ModalText (" G00")
post.ModalNumber (" X", endX * scale, "0.0000")
post.ModalNumber (" Y", endY * scale, "0.0000")
post.Eol()]]
if (preheat > 0) then
post.ModalText (" G00")
post.ModalNumber (" Z", cutHeight * scale, "0.0000")
post.Eol()
post.Text(" M801\n G04 P 0.5\n M802\n G04 P0.1\n M902")
post.Text ("\n G04 P")
post.Number (preheat,"0.###")
post.Eol()
end
post.ModalText (" M300\n G00")
post.ModalNumber (" Z", pierceHeight * scale, "0.0000")
post.Text ("\n M03\n")
if (pierceDelay > 0) then
post.Text (" G04 P")
post.Number (pierceDelay,"0.###")
post.Eol()
end
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


Dajcie znać czy działa u was poprawnie