Hello Guest it is November 17, 2019, 08:10:36 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

571
G-Code, CAD, and CAM discussions / Re: Using a macro to "ref all home"
« on: August 16, 2018, 03:09:07 PM »
witch motioncontroler areyou using?

572
G-Code, CAD, and CAM discussions / Re: Using a macro to "ref all home"
« on: August 16, 2018, 02:32:04 AM »
i tested on my testsystem witch is PP, no motioncontroler.

573
G-Code, CAD, and CAM discussions / Re: Using a macro to "ref all home"
« on: August 15, 2018, 01:18:24 PM »
ok tested this here

code M12 macro
Code: [Select]
DoButton( 24 )
DoButton( 23 )
DoButton( 22 )
DoButton( 25 )

DoOEMButton(133)
DoOEMButton(134)
DoOEMButton(135)

gcode file:
Code: [Select]
G21                           
G90                           
G53 Z0               
G0 G54 Y-79                     
M12                 
G0 Y-79                     
T1 M6 S3250 M3
G43 H1 Z15               
G1 F250

without any Problem, maybe somebody else can do the test as well, to doublecheck.
   

574
G-Code, CAD, and CAM discussions / Re: Using a macro to "ref all home"
« on: August 15, 2018, 04:44:44 AM »
have you tryed to run your M12 Version with

Config -> General Config -> Ignore M calls while loading    enabled?

575
VB and the development of wizards / Re: edit REF ALL HOME macro
« on: August 14, 2018, 01:50:34 PM »
Speak ("  zero   macchina") 'Avviso Vocale
   Message "************   ZERO MACCHINA ************"
   Sleep (1000) ' pausa di 1 secondi
   
   DoButton(24)
   RefCombination(3)
   'DoButton(23)
   'DoButton(22)
   'DoButton(25)
   While IsMoving()
   Sleep(100)
   Wend
   SetParam("XRefPer", GetParam("XRefPer")/15)
   SetParam("YRefPer", GetParam("YRefPer")/15)
   SetParam("ZRefPer", GetParam("ZRefPer")/15)
   'SetParam("ARefPer", GetParam("ARefPer")/15)
   DoButton(24)
   RefCombination(3)
   'DoButton(23)
   'DoButton(22)
   'DoButton(25)
   While IsMoving()
   Sleep(100)
   Wend
   SetParam("XRefPer", GetParam("XRefPer")*15)
   SetParam("YRefPer", GetParam("YRefPer")*15)
   SetParam("ZRefPer", GetParam("ZRefPer")*15)
   'SetParam("ARefPer", GetParam("ARefPer")*15)
   Speak ("zero macchina completato") 'Avviso Vocale

576
VB and the development of wizards / Re: 4 Way Lathe ATC Macro
« on: August 14, 2018, 08:53:33 AM »
Looks like you whant to wait until PLC has changed tool, and reports it in OEMDro(2001) ?

if so you have to use something like this




While newtoolNumber <> TurretTool
    TurretTool = getoemdro(2001)
    Sleep(100)

WEND

577
General Mach Discussion / Re: Best Screenset for Mach3?
« on: August 09, 2018, 12:48:29 PM »
simular question: what is the best Color for a car to buy!?

578
text = userlabelXX

579
you have to use in Screen a Label with description Userlabel10 (just an example).


in VBScript you have to set userlabel like:

myString="hello world"

SetUserLabel(10, myString)

580
General Mach Discussion / Re: Spindle On and Off- Please help
« on: July 26, 2018, 03:08:53 AM »
if you tell us witch BOB you are using, and what is cobbected on the BOB,
someone may be able to help.