Hello Guest it is December 03, 2020, 11:50:57 AM

Show Posts

This section allows you to view all posts made by this member. Note that you can only see posts made in areas you currently have access to.


Messages - TPS

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
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
ok ,sorry.

1095
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
Hello Bories,

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

Thomas

1098

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.