Hello Guest it is April 25, 2024, 12:20:52 AM
Profile Guest

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 - yemil

Pages: 1 2 3 »
1
VB and the development of wizards / Re: Modifing Operator Editable Button Macros
« on: May 03, 2018, 05:38:41 AM »
thanks..

2
VB and the development of wizards / Re: Modifing Operator Editable Button Macros
« on: April 21, 2018, 12:47:47 PM »
i did...

Dim ConfirmReady As String

means   tha ConfirmReady will be letters

and if i want to input  numbers?  like 6..
do i have to tell

Dim ConfirmReady As Integer    ?


3
VB and the development of wizards / Re: Modifing Operator Editable Button Macros
« on: April 21, 2018, 12:05:44 PM »
i would like to add some adjustments as

diameter of tool
and if is Z zeroing or XYZ Zeroing


4
VB and the development of wizards / Re: Modifing Operator Editable Button Macros
« on: April 21, 2018, 11:59:37 AM »
VB Scripter Window ???
the leaning curve has been so steep.........................

but i did it  and  made some adjustments...

here is the script...  and runs  very well


' probe x surface macro
FeedCurrent = GetOemDRO(818)    'Get the current settings, OEM DROs (818)=Feedrate DRO
XCurrent = GetOemDro(800)   'OEM DROs (800)=X DRO
GageX = -11.5                   'Gage Block x 10 plus 1.5
XNew = XCurrent + 300      'probe to the right
YCurrent = GetOemDro(801)   'OEM DROs (801)=Y DRO
GageY = -11.5         'Gage Block Y 10 plus 1.5
Code "G90F200"         'slow feed rate to 200 MM/MIN
SetOemDRO(818,200)
Code "G4 P1"              'Pause 1 second  to position probe plate
Code "G31 X" &XNew
While IsMoving()
Sleep(10)
Wend
Call SetDro (0,GageX)      'DRO(0)=x DRO
XFinalMove = GageX -10
Code  "G0 X" &XFinalMove
YpreOne = YCurrent-30      ' Y positioning
Code "G0 Y" &YpreOne      'X en posicion para medir Y
Code "G0 X20"
' probe y surface macro
YCurrent = GetOemDro(801)   'OEM DROs (801)=Y DRO
YNew = YCurrent + 300      'probe  on y axis
ZCurrent = GetOemDro(802)   'OEM DROs (802)=Z DRO
GageH = GetOEMDRO(1001)   
Code "G90F200"         'slow feed rate to 200 MM/MIN
SetOemDRO(818,200)
Code "G4 P1"
Code "G31 Y" &YNew      'Y Zero
While IsMoving()
Sleep(10)
Wend
Call SetDro (1,GageY)      'DRO(1)=y DRO
YFinalMove = GageY -10
Code  "G0 Y" &YFinalMove
'Z Position
ZpreOne = ZCurrent +15
Code "G0 Z"&ZpreOne
Code "G0 Y20"          'Y en posicion para medir Z
ZCurrent = GetOemDro(802)   'OEM DROs (802)=Z DRO
Znew = ZCurrent-300
Code "G90F200"         'slow feed rate to 200 MM/MIN
SetOemDRO(818,200)
Code "G4 P1"      'Pause 1 second to give time to position probe plate
Code "G31 Z" &ZNew
While IsMoving()
Sleep(10)
Wend
Call SetDro (2,GageH)      'DRO(2)=Z DRO
FinalMove = GageH + 10
Code  "G0 Z" &FinalMove
Code "F" &FeedCurrent        'restore starting feed rate   
SetOemDRO(818,FeedCurrent)

5
VB and the development of wizards / Re: Modifing Operator Editable Button Macros
« on: April 21, 2018, 08:19:21 AM »
no  it did not..
it  goes down slowly ..touches the plate  and then pushes down hard..

this one is working
                            'probe z surface macro
                             FeedCurrent = GetOemDRO(818)    'Get the current settings, OEM DROs (818)=Feedrate DRO
                            ZCurrent = GetOemDro(802)   'OEM DROs (802)=Z DRO
                            GageH = GetOEMDRO(1001)      'OEMDRO(1001)=Gage Block Height
                            ZNew = ZCurrent - 300      'probe down 20 mm

                            Code "G90F200"         'slow feed rate to 200 MM/MIN
                            SetOemDRO(818,200)
                            Rem Code "G4 P1"      'Pause 1 second to give time to position probe plate
                            Code "G31 Z" &ZNew
                            While IsMoving()
                            Sleep(10)
                           Wend
                           Call SetDro (2,GageH)      'DRO(2)=Z DRO
                           FinalMove = GageH + 10
                           Code  "G0 Z" &FinalMove
                           Code "F" &FeedCurrent        'restore starting feed rate   
                           SetOemDRO(818,FeedCurrent)

the problem is  that if i modify this for the other 2 axix  X and Y  they work fine if  put them  SEPARATED

if i join X and Y axis Zeroing macros together ,  the machine just senses the first X axis and set it to zero and then ignores the second  part ( just the Zeroing Y axis) it does the rapid movements


' probe x surface macro
FeedCurrent = GetOemDRO(818)    'Get the current settings, OEM DROs (818)=Feedrate DRO
XCurrent = GetOemDro(800)   'OEM DROs (800)=X DRO
GageX = -11.5                   'Gage Block x 10 plus 1.5
XNew = XCurrent + 300      'probe to the right
YCurrent = GetOemDro(801)   'OEM DROs (801)=Y DRO
GageY = -11.5         'Gage Block Y 10 plus 1.5


Code "G90F200"         'slow feed rate to 200 MM/MIN
SetOemDRO(818,200)
Code "G4 P1"              'Pause 1 second  to position probe plate
Code "G31 X" &XNew
While IsMoving()
Sleep(10)
Wend
Call SetDro (0,GageX)      'DRO(0)=x DRO

XFinalMove = GageX -10
Code  "G0 X" &XFinalMove


YpreOne = YCurrent-30      ' Y positioning

Code "G0 Y" &YpreOne      
Code "G0 X20"

' probe y surface macro
YCurrent = GetOemDro(801)   'OEM DROs (801)=Y DRO
YNew = YCurrent + 300      'probe  on y axis
ZCurrent = GetOemDro(802)   'OEM DROs (802)=Z DRO
GageH = GetOEMDRO(1001)   

Code "G31 Y" &YNew      'Y Zero
While IsMoving()
Sleep(10)
Wend
Call SetDro (1,GageY)      'DRO(1)=y DRO

YFinalMove = GageY -10
Code  "G0 Y" &YFinalMove

'Z Position
ZpreOne = ZCurrent +15

Code "G0 Z"&ZpreOne
Code "G0 Y20"



Code "F" &FeedCurrent        'restore starting feed rate   
SetOemDRO(818,FeedCurrent)

thanks in advance

6
VB and the development of wizards / Re: Modifing Operator Editable Button Macros
« on: April 20, 2018, 07:16:51 AM »
here is my copy of the main screen..

7
VB and the development of wizards / Re: Modifing Operator Editable Button Macros
« on: April 20, 2018, 07:11:01 AM »
Quote from: airnocker on April 20, 2018, 02:06:38 AM

However, could you please point out for me where your code is sensing when the two wires for closing the circuit touch?  I still do not see any evidence of this.


mmmmm...
as far as today... my learning curve  for this has been , 
by learning in forums and watching youtube videos  ,
 the machine came with no manuals , and the modified version of mach3 have some different configuration

to be onest   .............I have no clue

i added this commands by taking some notes  and modifying some scripts found elsewhere..
they only sended this script ,

'probe z surface macro
FeedCurrent = GetOemDRO(818)    'Get the current settings, OEM DROs (818)=Feedrate DRO
ZCurrent = GetOemDro(802)   'OEM DROs (802)=Z DRO
GageH = GetOEMDRO(1001)      'OEMDRO(1001)=Gage Block Height
ZNew = ZCurrent - 300      'probe down 20 mm

Code "G90F200"         'slow feed rate to 200 MM/MIN
SetOemDRO(818,200)
Rem Code "G4 P1"      'Pause 1 second to give time to position probe plate
Code "G31 Z" &ZNew
While IsMoving()
Sleep(10)
Wend
Call SetDro (2,GageH)      'DRO(2)=Z DRO

FinalMove = GageH + 10
Code  "G0 Z" &FinalMove
Code "F" &FeedCurrent        'restore starting feed rate   
SetOemDRO(818,FeedCurrent)

---------------------------------------------------------------------------
sensing the closing cicuit ?    i have been trying to learn what every command does or what it is for....but i also cant find it..

8
VB and the development of wizards / Re: Modifing Operator Editable Button Macros
« on: April 20, 2018, 01:18:23 AM »
third video   z zeroing

9
VB and the development of wizards / Re: Modifing Operator Editable Button Macros
« on: April 20, 2018, 01:17:28 AM »
video 2  y zero and prepares for z zero

10
VB and the development of wizards / Re: Modifing Operator Editable Button Macros
« on: April 20, 2018, 01:16:36 AM »
video  1  x zero   and prepares for  y zero

Pages: 1 2 3 »