Hello Guest it is December 08, 2019, 06:10:08 PM

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

171
General Mach Discussion / Re: Motors stalling /growling
« on: May 21, 2019, 02:41:14 AM »
so what are your final Settings?
how did you do the X/Y test, via Input in MDI line?

172
Screen designer tips and tutorials / Re: lion stop screenset
« on: May 20, 2019, 04:49:13 AM »
create your own, it is not so difficult.

have a search for MachScreen to create the Screen.

i Little searching in the Forum will come up with most of the answers for your questions like here:
https://www.machsupport.com/forum/index.php?topic=39117.0

and if something is not working, post your questions here.

173
General Mach Discussion / Re: Mill or Turn?
« on: May 20, 2019, 04:30:01 AM »
i assume you have checked accurate x-axis moves via gauge and mdi moves.
so what is left? all your cut's are to small so IMHO only two things are left:

-spindle rack get's pulled up by cutting force
-tool get's pulled down by cutting force

just trying to think loud. ;)

174
General Mach Discussion / Re: Mill or Turn?
« on: May 19, 2019, 06:21:06 AM »
just an idea, is your tool cutting realy in the Center of the spindle?

175
so please describe (Inputs Outputs function) what the single things should do.

176
make a description how the toolchange should work, and we will see.

177
i am nor realy sure wther a slave axis can be homed seperatly by VBScript (never used one), but you can try this code in VB Scripter window.

Code: [Select]
DoButton(27) 'reference C
While IsMoving()
Sleep(10)
Wend
SetDro(5,123) '123 is the offsetposition you want

178
VB and the development of wizards / Re: edit script
« on: May 16, 2019, 04:32:59 AM »
put this code:
Code: [Select]
Begin Dialog ButtonSample 16,32,100,30,"Start Scan?"
OKButton 10,8,40,14
CancelButton 50,8,40,14
End Dialog

Dim Dlg1 As ButtonSample
Button = Dialog (Dlg1)
If Button = 0 Then
MsgBox "Scan Canceled!"
Exit Sub
End If

behind the OpenDigfile()

179
VB and the development of wizards / Re: edit script
« on: May 16, 2019, 03:12:12 AM »
some Syntax Errors corrected:

Code: [Select]
Zmin     = Question ("minimum value at which the probe drops:")          'the minimum value at which the probe drops, depends On the part To be probed And the length of the stylus
Zmax     = Question ("altitude Z for the rapid movement of the X axis:") 'altitude Z for the rapid movement of the X axis when the scan reaches the bottom of Xmax and returns to Xiniz
Xmax     = Question ("upper right corner end scan x max:")               'upper right corner end scan
Ymax     = Question ("upper right corner end scan Ymax:")                'upper right corner end scan
StepZsu     = Question ("movement in Z + when the probe touches Z high:")   'step shift in Z + when the probe touches
StepX     = Question ("resolution of the scnsione X:")                    'resolution of the scansione, For Y Any value can be Put, For X the maximum stroke of the stylus must Not be exceeded
StepY     = Question ("resolution of the Y scnsione:")                    'resolution of the scnsione, For Y Any value can be Put, For X the maximum stroke of the stylus must Not be exceeded
AvanzZgiu   = Question ("Z 'axis descent speed-:")                          'speed for the relative axes
AvanzZsu    = Question ("Z + axis climb speed:")                            'speed for the relative axes
AvanzX     = Question ("X-axis speed:")                                    'speed for the relative axes
AvanzY     = Question ("velocity Y axis:")                                 'velocity For the relative axes
Xiniz     = Question ("bottom corner X:")                                 'bottom left corner start of scan
Yiniz     = Question ("bottom angle Y:")                                  'bottom left corner start of scan



180
VB and the development of wizards / Re: edit script
« on: May 16, 2019, 02:21:03 AM »
a quick and easy Version is for example

Zmin=Question ("Enter value for Zmin:")


an other Version would be to put Label's(for the description) and OEMDro's (for the values) to
your Screen and get the values via:

Zmin=GetOEMDro(1300) where 1300 is the dro number witch is used in Screen.