Hello Guest it is March 29, 2024, 10:02:57 AM

Author Topic: New Wizard  (Read 6620 times)

0 Members and 2 Guests are viewing this topic.

vmax549

*
New Wizard
« on: May 10, 2007, 09:02:24 PM »
Hi ROn, If you are interested we sure could use a wizard to do Coordinate Base Rotation using the probe to calculate the angle change. Brian started one but it did not use the probe. I have a crude version that I use but it is ugly(;-)

Also we could use a wizard to probe a 2d shape and create the Gcode file.... It would be a cross between the teach wizard and a probing solution for 2d shapes. I have the process worked out but the wizard programming is beyond me. (;-)



I have many more but those are ones I use all the time.

(;-) TP

Offline poppabear

*
  • *
  •  2,235 2,235
  • Briceville, TN, USA
    • View Profile
Re: New Wizard
« Reply #1 on: May 10, 2007, 09:40:26 PM »
If you look on the "conversational Wizard" Screen that I put up, on one of the pages I put a Base rotation calculation that take into affect quadrants and will post out the correct G68 code for you.

Just open up the Button and look at the script, you will see the code you need for that.

Scott
fun times
Re: New Wizard
« Reply #2 on: May 14, 2007, 06:58:24 PM »
Yes, Brian and I have talked about a rotation wizard. It should be fairly simple. I have done a set of buttons that I use to pickup any edge of my vise, or to set Z depth. I intend to make them into a wizard, but just havent got the 'round tuit' yet.

vmax549

*
Re: New Wizard
« Reply #3 on: June 10, 2007, 11:32:01 PM »
Scott, where would I find the wizard you speak of?  (;-) TP

Offline TDAY

*
  •  165 165
    • View Profile
    • Home CNC Stuff
Re: New Wizard
« Reply #4 on: June 24, 2008, 11:16:25 AM »
Ron,got idea for new "simple" wizard.A Line to Line mill wizard,that would have the option to put a Radius or angle at the end of line. That is similar to the Multi-Hole wizard ,except there would also be a Z axis ,Angle,and Radius DRO to enter.Also the M1 function i asked about in the other post.
"I try to put forth the effort,before asking a dum question"
http://homecncstuff.elementfx.com

Offline poppabear

*
  • *
  •  2,235 2,235
  • Briceville, TN, USA
    • View Profile
Re: New Wizard
« Reply #5 on: June 25, 2008, 08:51:01 PM »
Hey Ron, adn vmax549,

Here is how I did G68 rotation calcs, from the Convo wizard..... in the VB and wizards thread, page 4 in screen designer.

you could pick, the first Rotation point, or get fancey and probe it what ever, or just transfer in the current X1 Y1 coor. for point 1,
which is the corner of the Vice or whatever.
Then you could Jog, or probe, or transfer in the second point X2, Y2.
note:   x1 and x2 cannot be equal......
note:   y1 and y2 cannot be equal......


Use 5 UserDROs,

The following was in a G68 calc angle button:

'***********start calc, button script*********************************
Sub Main() 
'G68 angle calc
SetUserLed(1039,1)   'this led was flipped by a button, to signify using this function. to append it to the teach file in the Addoffset button at bottom.

x1=GetUserDRO(1081)  'put whatever userDROs you want here.
y1=GetUserDRO(1082)
x2=GetUserDRO(1095)
y2=GetUserDRO(1096)

D=1
pi = 4 * Atn(1)

If x2-x1=0 Then
Message("X2 cannot = X1!!")
Exit Sub
End If

If y2-y1=0 Then
Message("y2 cannot = y1!!")
Exit Sub
End If

If y2=0 Then
Message("y2 cannot = 0!!")
Exit Sub
End If

If x2=0 Then
Message("X2 cannot = 0!!")
Exit Sub
End If

If y2>y1 And x2>x1 Then
D=D*1
End If

If y2>y1 And x2<x1 Then
D=D*-1
End If

If y2<y1 And x2<x1 Then
D=D*1
End If

If y2<y1 And x2>x1 Then
D=D*-1
End If

a=y2-y1
b=x2-x1
ang=(180/pi) * Atn(a/b)

If D>0Then
SetUserDRO(1094,ang)
End If

If D<0Then
SetUserDRO(1094,ang)
End If

End Sub
Main

'********End Calc button script***********

The following was in a "Add Offsets button" that if the Use coordinate rotation button LED was on, (for to use it)
Then, this code was "Appended" to the teach file. I just took out the G68 stuff and did not put in all the other
stuff from that page............again open it up in screen designer if you want to see more crap..........

'*******Add Offsets button (with out Append and teach file stuff)**********

A=GetUserDRO(1081)
B=GetUserDRO(1082)
R=GetUserDRO(1094)

If GetUserLED(1039) then
Code "G68 A" & A & " B" & B & " R" & R
End If

'**********End Add Offsets button**********************

Scott
fun times