Mach3 и команда G31

[expertboss]

Заранее благодарен!

Автора программы с прошлого года тут не бывало, если только он не сменил позывной...

может у кого есть без автора ... посылал же кому то.. ?

[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