Hello Guest it is October 25, 2021, 11:30:11 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

871
FAQs / Re: parallel port to serial
« on: July 11, 2019, 08:06:11 AM »
have a look to the Motors for a type, then can can a look for a stepper Controller like leadshine and power supply.

872
General Mach Discussion / Re: macro help
« on: July 11, 2019, 03:10:35 AM »
i think if the Toollenght of the specific tool witch is used in each spindle gets touched in this spindle, it should
be no Problem, because it Looks like the machine has only one z-axis.


the example code i posted will be in M3 and M5 macro (Spindle on/off) and has nothing to do with postprocessor.

873
General Mach Discussion / Re: turn manual tool change
« on: July 10, 2019, 03:03:44 PM »
some typicaly code for M6Start would be:

-turn spindle off
-turn cooling off
-go to a save place for toolchange
-anounce the new tool to System for all the the new offsets

some typicaly code for M6End would be:

-turn spindle on
-turn cooling on
-go back to a place where it it save to restart


if you try to use the search function of the Forum you will find many examples for toolchange
(wheel Needs not to be redefined)



874
General Mach Discussion / Re: turn manual tool change
« on: July 10, 2019, 02:59:12 PM »
you do not have to split anything. if you select Manual tool Change
first M6Start.M1s will be executed (after the M6T*********x) in GCode),
and if you press Start  M6End.M1S will be executed.

witch code has to be in M6Start or M6End depends on your machine/and/or how the toolchange will be done.

875
General Mach Discussion / Re: Another Newbie Help
« on: July 10, 2019, 02:53:54 PM »
not realy sure what you mean with Setup coordinate System.

normaly you Zero X/Y to a lower left Corner of the raw part you whant to cut,
and Zero Z to the top of your surface, and then you can start to do simple cut's. 

876
German / Re: Bauteil ausrichten
« on: July 10, 2019, 02:49:42 PM »
Du kannst Dir alle diese Funktionen einfach in ein file in c:\mach3\macros\dein profilname kopieren.

sagen wir mal das file heisst: ProbeFunktionen.M1S

dann machst Du einen Button mit VB Script.

hier wäre der Code für ein einfaches Antasten X+ 100mm

Code: [Select]
Sub Main()

Probe 100,0,0
end sub

#Expand <\..\..\macros\Dein Profilname\ProbeFunktionen>

der Vorteil der #Expand Anweisung liegt darin, das Du deine Funktionen "bündeln" kannst, um diese immer
wieder aus unterschiedlichen Situationen heraus aufrufen kannst, und, wenn Du einen Fehler behebst, ist dieser
für alle Aufrufe behoben.

OK momentan ist das alles vielleicht ein bisschen viel, aber im Laufe der Zeit wird es immer einfacher, und der
Vorteil der Bündelung von Funktionen wird deutlich klarer.

Gruß Tom



877
German / Re: Bauteil ausrichten
« on: July 10, 2019, 02:41:21 PM »
ok ich habe die Funktion Probe mal allgemeingültig umgeschrieben:

Code: [Select]
'Antastfunktion
Public Function Probe(X as Double, Y as Double , Z as Double)
Dim axisreverse,axisprobe,probedist

'prüfen ob Probe bereits aktiv
If GetOEMLed(825) Then
MSGBox "Probe aktiv",vbOK + vbCritical ,"Fehler !"
DoButton(21)
End
End If
'Antasten immer mit Konturdrehung 0 Grad
Code "G69"


'Softwarelimits ggf. ausschalten
Dim SoftLimitswhereon As Boolean
If GetOEMLed(23) Then
DoOEMButton(119)
SoftLimitswhereon = True
Sleep(250)
End If


'Meldungen ausgeben
IF X > 0 Then
Message("Probe X+")
axisprobe = "X+"
axisreverse = "X-"
probedist = X
End if
IF X < 0 Then
Message("Probe X-")
axisprobe = "X-"
axisreverse = "X+"
probedist = X
End if
IF Y > 0 Then
Message("Probe Y+")
axisprobe = "Y+"
axisreverse = "Y-"
probedist = Y
End if
IF Y < 0 Then
Message("Probe Y-")
axisprobe = "Y-"
axisreverse = "Y+"
probedist = Y
End if
IF Z > 0 Then
Message("Probe Z+")
axisprobe = "Z+"
axisreverse = "Z-"
probedist = Z
End if
IF Z < 0 Then
Message("Probe Z-")
axisprobe = "Z-"
axisreverse = "Z+"
probedist = Z
End if
Sleep(200)


'1.Versuch
Message "1. Antastung"
Code "G31 " & axisprobe  & probedist & " F200"

While IsMoving()'warten bis Probe fertig
Sleep(20)
Wend

Message "Probe 1.Kontakt bei: " &GetVar(2000) &"," &GetVar(2001) &"," &GetVar(2002) &"," &GetOemDro(83) &"," &GetOemDro(84) &"," &GetOemDro(85)
Sleep(200)

'Probe freifahren
Message "Probe freifahren"
While GetOEMLed(825)
Code "G91 G01 " &axisreverse &"0.1 F600"
While IsMoving()'warten bis Probe fertig
Sleep(20)
Wend
Wend
Code "G90"

'2.Versuch
Message "2. Antastung"
Code "G31 " & axisprobe  & probedist & " F2"

While IsMoving()'warten bis Probe fertig
Sleep(20)
Wend

Message "Probe 2.Kontakt bei: " &GetVar(2000) &"," &GetVar(2001) &"," &GetVar(2002) &"," &GetOemDro(83) &"," &GetOemDro(84) &"," &GetOemDro(85)
Sleep(200)

'Softlimits ggf. wieder einschalten
If ((Not GetOEMLed(23)) And (SoftLimitswhereon = True)) Then
Sleep(500)
DoOEMButton(119)
End If

Message "Probe " &Left(axisprobe,1) &" erfolgreich."

End Function


aber bitte vorsichtig testen, da ich das nur runtergeschrieben habe, ohne (mangels Möglichkeit) es zu testen.

878
General Mach Discussion / Re: Another Newbie Help
« on: July 10, 2019, 02:36:00 PM »
I have recently completed the CNC router which was in the WoodSmith magazine.  I am new to the CNC world, so please be patient with me.  I have the all the motors wired and the all three axis move.  I have tuned the motors (velocity, accelration, etc.).  Now, I'm kind of stuck.  What would be the next items I need to set-up before I actually try cutting something?  I am not using limit switches at this time, I was planning on using soft limits until I get a little more familiar with things.  Does anyone know of a tutorial than provides the chain of events you need to go through?

the next step would be to have control over the spindle (or you turn it manualy on/off ?)

for the first cut i allways do a simple circle, Sounds easy, but a circle tell's you everything about your machine.
why will be the next question?

-on a circle you will see, if you have, backslash by watching the four quadrants (you will see steps a 12 o clock, 3 o clock, 6 o clock or 9 o clock)

-checking the Diameter of a circle with a gauge on a couple of angles, will tell you everything about your X/Y geometry, because
if X and Y are not 100% in angle you will get different Diameters.

to get a simple perfect circle can be a hard road.

879
FAQs / Re: parallel port to serial
« on: July 10, 2019, 02:58:57 AM »
maybe a Little bit offtopic, but as Craig said i prefer CSMIO.

when i look for the CSMIO/IP-M it is 229.-€

-Mach3/Mach4 pluging
-real 0-10V Analog Output for spindle
-two analog Inputs for override potis
-all connetors included
-slave axis

ok, no backslash compensation, but IMHO backslash should be solved at the "beginnig" not at the "end".

PS. not getting anything from CSMIO for Promotion  ;)

880
General Mach Discussion / Re: macro help
« on: July 10, 2019, 02:41:26 AM »
in this case i would work with two workoffset. for example:

G54 = spindle 1
G55 = spindle 2

and modify the GCode to activate the G54/G55 whenever the entire spindle is used.

to Switch on the wright spindle M3 should be modified. example:

Code: [Select]
If GetOEMDro(46) = 1 Then 'G54 is selected
DeactivateSignal(OUTPUT2) 'Turn off Spindle 2
ActivateSignal(OUTPUT1)   'Turn on Spindle 1
End If

If GetOEMDro(46) = 2 Then 'G55 is selected
DeactivateSignal(OUTPUT1) 'Turn off Spindle 1
ActivateSignal(OUTPUT2)   'Turn on Spindle 2
End If

code for M5 would be:

Code: [Select]
DeactivateSignal(OUTPUT2) 'Turn off Spindle 2
DeactivateSignal(OUTPUT1) 'Turn off Spindle 1