Hello Guest it is March 29, 2024, 06:45:04 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 - jjlrperformance@gmail.com

Pages: 1
1
Thanks,
That was it, it also allowed me to simply the process as well. only thing I have to figure out is how to get the spindle to start moving back to the work coordinates while the spindle is spinning up, (dwell setup in spindle acceleration time) rather than starting up in the tool change position then dwelling then moving to the work coordinates.
Anyone with any ideas there?
For posterity and those looking to copy here is my M6Start.ms1;
DoSpinStop()                     ' Make sure the spindle is OFF
Code"M09"                        ' Make sure the coolant is OFF
OldTool = GetOEMDRO (1224)  'Tool In spindle DRO You must add this to your settings screen
'x = GetToolChangeStart( 0 ) ' Get x tool change start position
'y = GetToolChangeStart( 1 ) ' Get y tool change start position
'z = GetToolChangeStart( 2 ) ' Get z tool change start position
tool = GetSelectedTool() ' tool to be changed to
NewTool = tool
If NewTool = OldTool Then 
        Exit Sub   
End If
Code "G53 G0 Z0" 'Move Z to 0 In machine Coordinate
While IsMoving ' wait for z to move
Wend
Code "G53 G0 X-290 Y101" 'Move to Tool Setter in Machine Coordinate
While IsMoving ' wait for z to move
Wend

Call SetUserDRO (1224,NewTool)
SetCurrentTool( NewTool )  ' input new tool into tool in spindle dro
Code "G43 H" & tool        ' Call tool offsets for new tool
' Verify Tool Change Complete message box
Dim Msg, Style, Title, Help, Ctxt, Response,MyString
Msg = "Please Insert Tool  : " & "   (   "  & GetSelectedTool( ) & "   )   " & " " &  GetToolDesc(NewTool)
'Msg = "Please Insert Tool  Number " & " ( "  & GetSelectedTool() & " ) " & "    " & GetToolDesc(Tool) ' Define message
Style = vbYesNo + vbCritical + vbDefaultButton2   ' Define buttons
Style = 0 + 48 + 0   ' Define buttons.
Title = "Tool Change Requested"   ' Define title
Help = "DEMO.HLP"   ' Define Help file
Ctxt = 1000   ' Define topic       
 'context.       
 ' Display message.
Response = MsgBox(Msg, Style, Title, Help, Ctxt)
 If Response = vbOk Then   ' User chose Ok   
MyString = "Ok"   ' Perform some action
End If
'Show user the current tool description
Message "Tool  #   " & GetCurrentTool() & " :  " & GetToolDesc(GetCurrentTool) & "  Installed  " & "   Returning to Tool Change Start Position"
Code "G53 G00 Z-0"
'Code "G00 X" & x  & "Y" & y & "Z" & z 'Move back to where the tool change was prompted
While IsMoving
Wend
End     

2
Good day,

I am in the Process of creating a macro to set my tool change position; First the information

Tool Setter Machine Coordinate X-290 Y101 Z-10
The tool height setter sits 2.99mm above the machine bed at the above X-Y coordinates.

What I want the machine to do when M06 is called is to retract to G53 G0 Z0
Then Rapid to G53 G0 X-290 Y101
Then once at the above G53 Z-10

The problem I am having is the machine tries to do some of these movements together I am not able to figure out exactly why.

M6Start;
"
DoSpinStop()                     ' Make sure the spindle is OFF
Code"M09"                        ' Make sure the coolant is OFF
OldTool = GetOEMDRO (1224)  'Tool In spindle DRO You must add this to your settings screen
'x = GetToolChangeStart( 0 ) ' Get x tool change start position
'y = GetToolChangeStart( 1 ) ' Get y tool change start position
'z = GetToolChangeStart( 2 ) ' Get z tool change start position
tool = GetSelectedTool() ' tool to be changed to
NewTool = tool
If NewTool = OldTool Then 
        Exit Sub   
End If
Code "G53 G0 Z0" 'Move Z to 0 In machine Coordinate
Code "G53 G0 X-290 Y101" 'Move to Tool Setter in Machine Coordinate
Code "G53 G0 Z-11" 'Move Z to -10 For Tool Change Position


Call SetUserDRO (1224,NewTool)
SetCurrentTool( NewTool )  ' input new tool into tool in spindle dro
Code "G43 H" & tool        ' Call tool offsets for new tool
' Verify Tool Change Complete message box
Dim Msg, Style, Title, Help, Ctxt, Response,MyString
Msg = "Please Insert Tool  : " & "   (   "  & GetSelectedTool( ) & "   )   " & " " &  GetToolDesc(NewTool)
'Msg = "Please Insert Tool  Number " & " ( "  & GetSelectedTool() & " ) " & "    " & GetToolDesc(Tool) ' Define message
Style = vbYesNo + vbCritical + vbDefaultButton2   ' Define buttons
Style = 0 + 48 + 0   ' Define buttons.
Title = "Tool Change Requested"   ' Define title
Help = "DEMO.HLP"   ' Define Help file
Ctxt = 1000   ' Define topic       
 'context.       
 ' Display message.
Response = MsgBox(Msg, Style, Title, Help, Ctxt)
 If Response = vbOk Then   ' User chose Ok   
MyString = "Ok"   ' Perform some action
End If
'Show user the current tool description
Message "Tool  #   " & GetCurrentTool() & " :  " & GetToolDesc(GetCurrentTool) & "  Installed  " & "   Returning to Tool Change Start Position"
Code "G00 Z15"
'Code "G00 X" & x  & "Y" & y & "Z" & z 'Move back to where the tool change was prompted
While IsMoving
Wend
End   
"

I am pretty sure the problem lies in the bold above, but can not figure out the best way to get my desire result.

Then after Cycle start This returns the machine to the work coordinates before the tool change.

M6End;
"
'REM The default script here moves the tool back To m6start If Any movement has occured during the tool change..

'x = GetToolChangeStart( 0 )
'y = GetToolChangeStart( 1 )
'z = GetToolChangeStart( 2 )
'a = GetToolChangeStart( 3 )
'b = GetToolChangeStart( 4 )
'c = GetToolChangeStart( 5 )
'If(IsSafeZ() = 1) Then
'   SafeZ = GetSafeZ()
'   If  SafeZ  > z Then StraightTraverse x, y,SafeZ, a, b, c
'      StraightFeed  x, y,  z  , a, b, c
'Else
'Code"G00 X" & x & "Y" & y
'end if
"

Appreciate your help here.

3
The Error continues to occur on line N206 the error;
---Radius to end of arc differs from radius to start , Block = N206 G03 Y19.42 I-12.717 J9.71
Line 208

4
ok So I have a part a simple 2.5d part that I want to cut, but I can not get the program to run properly I am running .62 of Mach3.
Solidworks Cam 2020 I have tried several post processors and they all give similar problems.
So I attach it here I would appreciate someone telling me what if anything to amend in my post processor, or my post settings for this file. At this point I am at a loss.

Thanks for Taking a look!

5
General Mach Discussion / Re: Mach3 Post Processor for Solidworks Cam
« on: November 20, 2020, 12:19:20 AM »
I found one that works with 3 axis for Milling Figured I would post it here to share. You will still need to do some tweaking to meet the needs of your machine.

6
General Mach Discussion / Mach3 Post Processor for Solidworks Cam
« on: November 19, 2020, 11:39:13 PM »
Does anyone have a Mach3 post processor for SolidWorks Cam 2019+?

I searched both solidworks forums and here and have found generic ones, that output G80 code that Mach3 does not seem to like. I have not yet been able to figure it out. But since I am working on threadmilling that G80 is important piece of the code.

Thanks!

7
General Mach Discussion / Mach3 combined Tool and Work Offset probes
« on: November 10, 2020, 11:26:38 PM »
Good day,

I have been searching through the forum for days and have found bits and pieces of what I am looking for but nothing that I have been able to cobble together just yet.

Mach3-Mill
The spindle uses an ER style collet so fixed tool offsets cannot be setup, each time the tool stickout will be slightly different.
I have a z-height tool offset probe(sensor) that I plan to affix next to the Milling table (fixed X/Y coordinates) to calculate z-height of the tool's tip relative to Machine Coordinates.
Then I have a ruby tipped touch probe that I plan to use to touch off the work offset z reference plane, as well as the x/y in separate operation.

I would like this offset to then be stored as the work coordinate tool z-height.
I would then place in the correct tool for the first operation, which would again touch off the tool offset probe. Which will be stored in the machine before beginning the G-code for that tool.

Basically I would like to use;
Z-Tool length Setter with Probe to determine current probe length (stickout)
Then use probe to determine current z work coordinate have the difference calculated and stored, as well as the x-y work coordinate to set the work-origin.
Then use the first tool (in G-Code) with the Z-tool length setter to determine tool length (stickout) have that calculated against previously stored work offset and stored. (this process would be repeated for each subsequent tool in the g-code) for each manual tool change.

I know that wiring both will need to be through a switch for each separate operation as Mach3 seems to only support 1 probe at any time. I have found macros that do 1/4-1/3 of what I am looking to do. I have not been able to resurrect my grade 10 programming skills in VB from 20 years ago as much as I would have liked.

I have searched and searched, either what I am looking to do is not something that is commonly done and there is a better way (to which I am open to suggestions) or those who have done this are capable of doing it without help on here. Or the terms I am using to search are not yielding the guidance I seek.

Any input would be appreciated.

Pages: 1