Mach3 и команда G31

Mach, популярные и не очень CAD, CAM. Обсуждение и разработка программ для управления станками.
expertboss
Новичок
Сообщения: 3
Зарегистрирован: 23 июн 2023, 11:24
Репутация: 0
Настоящее имя: Александр
Контактная информация:

Re: Mach3 и команда G31

Сообщение expertboss »

Kupfershcmidt писал(а): 02 июл 2022, 21:36
shkrab писал(а): Заранее благодарен!
Автора программы с прошлого года тут не бывало, если только он не сменил позывной...
может у кого есть без автора ... посылал же кому то.. ?
tester551
Новичок
Сообщения: 4
Зарегистрирован: 18 авг 2023, 17:20
Репутация: 0
Контактная информация:

Re: Mach3 и команда G31

Сообщение tester551 »

Написал свой скрипт для измерения, вот если кому надо

Код: Выделить всё

Sub Main()

Const ProbeSafeZ = 2
Const ProbeDepthZ = -1
Const ProbeFeed = 20

Xmax = 50
Ymax = 50
Pstep = 10

Open "C:\Users\user\Desktop\depth.txt" For Output As #1



Xcur = 0
Ycur = 0



XFlag = False 
YFlag = False

			
Code "G0 Z" & ProbeSafeZ
WaitingMove


Code "G0 X0 Y0"
WaitingMove

Do 

	Do 

		Sleep(500)
		Code("G31 Z" & ProbeDepthZ & " F" & ProbeFeed)
		WaitingMove
		
		X = GetOEMDRO(800)
		Y = GetOEMDRO(801)
		Z = GetOEMDRO(802)
		Print #1,X, ",", Y,",",Z
		
	
		Code "G0 Z" & ProbeSafeZ
		WaitingMove
				
		
		If Xcur = Xmax Then
			XFlag = True
		Else 
			Xcur = Xcur + Pstep
			
			If Xcur > Xmax Then Xcur = Xmax
				
			Code "G0 X" & Xcur
			WaitingMove							
						
		End If


	Loop Until XFlag
	
	

	If Ycur = Ymax Then
		YFlag = True
	Else
	
		XFlag = False
		Xcur = 0
	
		Ycur = Ycur + Pstep
		If Ycur > Ymax Then Ycur = Ymax
		
		Code "G0 X0 Y" & Ycur
		WaitingMove			
	 
	End If
		
	
Loop Until YFlag	

Close #1
Code "G0 Z" & ProbeSafeZ 
Code "G0 X0 Y0" 

End Sub
   

Sub waitingMove
	While (IsMoving())
		Sleep(100)
	Wend
End Sub

Фреза2023
Новичок
Сообщения: 5
Зарегистрирован: 07 фев 2023, 09:23
Репутация: 0
Настоящее имя: Ванька
Контактная информация:

Re: Mach3 и команда G31

Сообщение Фреза2023 »

Подскажите пожалуйста, как сделать чтобы мАч3 выполнял каждый раз поиск при команде M31 Z-50 в макросе м03. А то у меня выполняет только первый раз пробу, а последующие команды м3, только поднимает по z, как бы игнорируя м31.
Мой макрос м3:
Code "G31 Z-50" -первую команду м3 выполняет отсюда
While IsMoving ()
Sleep 100
Wend
Code "G92 Z0"
Code "G0 Z 7" -все остальные команды м3 в gcode отсюда
While IsMoving ()
Sleep 100
Wend
DoSpinCW()
Вот и получается, что голова подъезжает, включает м3 находит металл, поднимается и начинает резать, за тем , заканчивает фигуру, выполняет м5 а это заканчивает и поднимает, подъезжая к следующей фигуре, при выполнении м3 она как бы пропускает поиск, сразу начинает с подъема. Поднимает, делает деталь, поднимает, подъезжает к следующей детали, вместо того чтобы искать металл, она опять поднимает, и так на каждой детали.
Помогите пожалуйста, как мне сделать так, что бы при выполнении м3 макроса всегда сначала выполнялся поиск металла???
alexan2611
Новичок
Сообщения: 1
Зарегистрирован: 18 мар 2025, 16:35
Репутация: 0
Настоящее имя: Алексаендр Николаевич
Контактная информация:

Re: Mach3 и команда G31

Сообщение alexan2611 »

Приобрел станок на этом контроллере. Несколько дней танцев с бубном... Очень нуждаюсь в вашей проге! Если не трудно скиньте на alexan.mebel@mail.ru
Буду очень признателен!
Ответить

Вернуться в «Windows / Mach»