Messages

941

General Mach Discussion / Re: Problem with Mach3 Image when loading up G code.

« on: May 06, 2020, 03:43:42 AM »

it is working here

try to Change Display mode and the Regen Toolpath.

942

Screen designer tips and tutorials / Re: Is there a way to make an OEM DRO read-only?

« on: May 05, 2020, 10:08:28 AM »

i assume you are using MachScreen from Klaus

if you left click on the dro you get a small window with all the controls witch are located at this place.
now select the transparent button, witch is normaly at the  bottom of the list, hold left mouse button
down and shift the selected line upwards in the list. it ust be higher as the dro.

943

Mach Screens / Re: Touchscreen buttons

« on: May 04, 2020, 06:08:15 AM »

not directly, you have to add some more Buttons (G,F,and so on) and modify the code

Code: [Select]

SetOEMDro(DRONum,CDbl(Dlg1.FText))
   

to

Code: [Select]

Code Dlg1.FText

it should do something simular.

944

Mach Screens / Re: Touchscreen buttons

« on: May 04, 2020, 05:15:03 AM »

here: https://www.machsupport.com/forum/index.php?topic=36213.msg247828#msg247828

i posted some code to do it with vb script.

945

Screen designer tips and tutorials / Re: Is there a way to make an OEM DRO read-only?

« on: May 03, 2020, 04:07:21 AM »

put a transparent button with no code over the dro.

946

VB and the development of wizards / Re: infrared screen

« on: May 03, 2020, 04:05:26 AM »

try this

Code: [Select]

   Sub Main()
      If  GetOEMLED(804) Then ' is run
        If IsActive(INPUT1)And (GetLed(116) = true) Then
          DoOemButton(1004)      ' 1004 DoOemButton stop
        End If
      End If     
   End Sub 




947

General Mach Discussion / Re: Problem with Mach3 Image when loading up G code.

« on: May 02, 2020, 02:48:50 AM »

can you pls. post one of the gcode files?

948

VB and the development of wizards / Re: yet another lathe turret macro needing assitance

« on: April 30, 2020, 02:17:33 AM »

Code: [Select]

Dim Num_Tools As Integer
Dim Ang_Move As Integer
Dim Req_Tool As Integer
Dim Current_Tool As Integer
Dim Lock_Move As Integer
Dim CW_Feed As Integer
Dim CCW_Feed As Integer
Dim Moves As Integer


Num_Tools    = 12 'number of tools on turret
Ang_Move     = 360/Num_Tools 'angular rotation per tool
Req_Tool     = GetSelectedTool()
Current_Tool = GetCurrentTool()
Lock_Move    = 15 'distance to move back onto paw to lock
CW_Feed      = 100
CCW_Feed     = 50

'Start tool change

If Req_Tool < 1 Then
  Message"Tool number too low"
  Code "M30"
End If

If Req_Tool = Current_Tool Then
  'do nothing
Else
  'do tool change
  If Req_Tool > Current_Tool Then
    Moves = (Req_Tool - Current_Tool) * Ang_Move
  End If
  If Req_Tool < Current_Tool Then
    Moves = (Num_Tools - Current_Tool + Req_Tool) * Ang_Move
  End If 
End If

'move to safe position
Code "G0 G53 X-.25 Z-.25"
Code "G04 P0.5"
'index turret
Code "G91 G94"
Code "G01 A" & Moves + 10 & "F" & CW_Feed
Code "G01 A-" & Lock_Move & "F" & CCW_Feed
While IsMoving()
Sleep(10)
Wend

SetCurrentTool Req_Tool
SetUserDRO 1500 , Req_tool
Code "G90"
Code "F" & Current_Feed




949

General Mach Discussion / Re: Gage Block height problem

« on: April 29, 2020, 10:25:09 AM »

i never thought that there is something wrong with the script, i only wanted to see witch OEMDro is used.

there is a lot Information here on the Forum about Win7 updates.

you should see in System tray witch was the last installed update.

btw. you did not add any other device like handwheel or something like this witch may use OEMDro(1001)

for a quick fix, you can edit your script and enter a fixed plate thickness for test:

Code: [Select]

GageH = 15.0   'OEMDRO(1001)=Gage Block Height


950

General Mach Discussion / Re: Gage Block height problem

« on: April 29, 2020, 06:05:27 AM »

OK your script uses OEMDRO(1001) for the Gage Block height.

OEMDRO(1001) is on Offset page left upper Corner.

what is going on if you enter there the 15mm?