может у кого есть без автора ... посылал же кому то.. ?Kupfershcmidt писал(а): ↑02 июл 2022, 21:36Автора программы с прошлого года тут не бывало, если только он не сменил позывной...
Mach3 и команда G31
- 
				expertboss
 - Новичок
 - Сообщения: 3
 - Зарегистрирован: 23 июн 2023, 11:24
 - Репутация: 0
 - Настоящее имя: Александр
 - Контактная информация:
 
Re: Mach3 и команда G31
- 
				tester551
 - Новичок
 - Сообщения: 4
 - Зарегистрирован: 18 авг 2023, 17:20
 - Репутация: 0
 - Контактная информация:
 
Re: Mach3 и команда G31
Написал свой скрипт для измерения, вот если кому надо
			
			
									
									
						Код: Выделить всё
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
Подскажите пожалуйста, как сделать чтобы мАч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 макроса всегда сначала выполнялся поиск металла???
			
			
									
									
						Мой макрос м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
Приобрел станок на этом контроллере. Несколько дней танцев с бубном... Очень нуждаюсь в вашей проге! Если не трудно скиньте на alexan.mebel@mail.ru
Буду очень признателен!
			
			
									
									
						Буду очень признателен!