Messages

1091

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   

1092

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.

1093

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 ?

1094

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

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

ok ,sorry.

1095

General Mach 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.

1096

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

1097

General Mach 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

1098

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.

1099

General Mach Discussion / Re: Probing - what would i need?

« on: April 05, 2018, 01:41:51 PM »

ok had some time, made a english Version (well bad bavarian english).


if you come to teh TouchInner() TouchOuter() and
specially to the TouchTwisted() give me a shout,
i think they Need explantion, because they are complex.

Thomas

1100

General Mach Discussion / Re: Probing - what would i need?

« on: April 05, 2018, 10:56:37 AM »

here is my X/Y probing libary, sorry it's in german

to use it copy the file to c:\mach3\macros\your Profile Name


to do a left lower Corner probe the code in the button would be:

Code: [Select]

Sub Main()
'probe left lower corner
Call TouchLU
End Sub

#Expand <\..\..\macros\your Profile name\ProbeFunktionen>  ##

i love this #Expand functionality, because you edit your button only one time,
and you can do all the changes on code easily in the libary file without changing Screen and so on.