[Khoe - Chia sẻ] Auto Z Marco Mach3

[Nam CNC]

qua nhà nhìn thấy đã đời rồi giờ lên đây sỉ vả , mấy cha mất nết , cái cách cùi bắp vậy mà hiệu quả nha , đúng cái cách thằng Gamo post hình luôn đó , nhưng em không có chu mỏ đẹp như em đó đâu.

[hoangmanh]

đây là marco mình viết cho mach3

CurrentFeed = GetOemDRO(818) 'Get the current feedrate to return to later
CurrentAbsInc = GetOemLED(48) 'Get the current G90/G91 state
CurrentGmode = GetOemDRO(819) 'Get the current G0/G1 state

Code "G91 G28 Z0."

While IsMoving() 'wait while it happens
Wend

Code " G91 G28 A0 C0"

While IsMoving() 'wait while it happens
Wend


Code "G54 G90 G0 X80.347 Y-29.898"

While IsMoving() 'wait while it happens
Wend

If GetOemLed (825)=0 Then 'Check to see if the probe is already grounded or faulty
DoOEMButton (1010) 'zero the Z axis so the probe move will start from here

While IsMoving() 'wait while it happens
Wend

Code "G4 P1" ' this delay gives me time to get from computer to hold probe in place
Code "G90 G31Z-200. F2500" 'probing move, can set the feed rate here as well as how far to move

While IsMoving() 'wait while it happens
Wend

ZProbePos = GetVar(2002) 'get the exact point the probe was hit
Code "G4 P0.5" 'Pause for Dro to update.
Code "G0 Z" &ZProbePos 'go back to that point, always a very small amount of overrun

While IsMoving() 'wait while it happens
Wend

Call SetDro (2, 60.35) ' PROBE THICKNESS
Code "G91 G1 Z5.F2500"

While IsMoving() 'wait while it happens
Wend

DoOEMButton (1010) 'zero the Z axis so the probe move will start from here

While IsMoving() 'wait while it happens
Wend

Code "G4 P1" ' this delay gives me time to get from computer to hold probe in place
Code "G90 G31Z-10. F100" 'probing move, can set the feed rate here as well as how far to move

While IsMoving() 'wait while it happens
Wend

ZProbePos = GetVar(2002) 'get the exact point the probe was hit
Code "G4 P0.5" 'Pause for Dro to update.
Code "G0 Z" &ZProbePos 'go back to that point, always a very small amount of overrun

While IsMoving ()
Wend

Call SetDro (2, 60.473) ' PROBE THICKNESS
Code "G91 G1 Z" & 99.527 & "F2500"

While IsMoving ()
Wend

Code "G90 G94 G54 "

While IsMoving ()
Wend

Else
End If

[QuyND]

đây là marco mình viết cho mach3

Cái code của em lúc vừa mua về nó cũng tựa tựa như vậy ấy ạ. Lần probe đầu tiên thấy nó xuống chậm quá em sốt ruột. Nên em viết thêm 1 đoạn ngắn là nó sẽ hỏi chiều dài xấp xỉ của dao (A), sau đó tự lưu giá trị đó lại vào bản tool table. Mach3 sẽ lấy giá trị đó để biết chiều dài dao, sau đó sẽ lao xuống touchprobe max speed, tới khi khoảng cách còn tằm 5mm sẽ đi chậm lại để bắt đầu probe chiều dài của dao. Lần sau chương trình có gọi dao đó thì chỉ hỏi là chiều dài dao này là A đúng không, mình bấm enter phát là tự probe.