Messages

1791

General Mach Discussion / Re: Lathe tool offsets, tool table, surfeit of splash screens

« on: April 07, 2018, 02:55:22 AM »

so it Looks like you have no tool change selected in Config -> General Config,
or no code in M6Start macro.

for a Minimum you Need

 tool = GetSelectedTool()
 SetCurrentTool( tool )

in M6Start

1792

VB and the development of wizards / Re: centerpiece full (change)

« on: April 06, 2018, 11:30:31 AM »

courious, because the messagebox Shows only the coordinates where the probe was hit and the Diameter of the probe.


from the data it Looks like 70mm not 80mm  


when you watch axis dro's are they about +- 38mm when the probe is hit ?

1793

VB and the development of wizards / Re: centerpiece full (change)

« on: April 06, 2018, 11:10:54 AM »

can you mofify the code:

msgbox  "YPos2: " &YPos2 & " YPos1: " &YPos1 & "Tooldiamter: " &CurrentToolDiameter   


to:

msgbox  "XPos2: " &XPos2 & " XPos1: " &XPos1 & "Tooldiamter: " &CurrentToolDiameter   

1794

VB and the development of wizards / Re: VB / LUA evaluation- no license key

« on: April 06, 2018, 10:41:47 AM »

i have tested this code here:

Code: [Select]

tool = GetSelectedTool()
Dim UsersName As String
UsersName = AskTextQuestion("Please enter your name:")
Message "Please change tool now" & UsersName & "!"
MsgBox "Current tool at start of change is "    & GetSelectedTool()
SetCurrentTool( tool )

run fine.

post a copy of your M6Start as an attachment, probably there are characters you do not see
in a normal text Editor.

1795

VB and the development of wizards / Re: centerpiece full (change)

« on: April 06, 2018, 10:35:22 AM »

can you please change the following oices of code:

 Code "G90 G0 Y" &YCenter
    While IsMoving ()
    Wend
    Call SetDro (1,0.000)
    While IsMoving ()
    Wend
    Call SetUserDro (1152,YPos2 - YPos1 - CurrentToolDiameter)

    Code "G4 P0.25"

to

 Code "G90 G0 Y" &YCenter
    While IsMoving ()
    Wend
    Call SetDro (1,0.000)
    While IsMoving ()
    Wend
    Call SetUserDro (1152,YPos2 - YPos1 - CurrentToolDiameter)
msgbox  "YPos2: " &YPos2 & " YPos1: " &YPos1 & "Tooldiamter: " &CurrentToolDiameter  
    Code "G4 P0.25"

and Report the displayed values?
 

Where do you set the probe Diameter ? screenshot ?

1796

VB and the development of wizards / Re: VB / LUA evaluation- no license key

« on: April 06, 2018, 08:45:35 AM »

ok ,sorry.

1797

Mach4 General Discussion / Re: New people welcome !! Come in here and introduce your self!

« on: April 06, 2018, 04:22:47 AM »

Hi Bories,

place threads about your question into the related subforums.

1798

VB and the development of wizards / Re: centerpiece full (change)

« on: April 06, 2018, 03:20:29 AM »

try to Change this:

CurrentToolDiameter = GetOemDRO(43) 'gets the current tool Diameter

to:
CurrentToolDiameter = GetOemDRO(22) 'gets the current tool diameter

1799

Mach4 General Discussion / Re: New people welcome !! Come in here and introduce your self!

« on: April 06, 2018, 02:33:27 AM »

Hello Bories,

welcome here, about your xhchb04 start a thread in a particular section, new People welcome, is not the right place.

Thomas

1800

VB and the development of wizards / Re: VB / LUA evaluation- no license key

« on: April 06, 2018, 02:18:51 AM »

In General Config 'Tool Change' is 'Stop Spindle wait for cycle start'

you have to enable Auto Tool Changer, then M6Start and M6End will be executed.