Hello Guest it is March 19, 2024, 06:10:44 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

61
German / Re: Bauteil ausrichten
« on: October 10, 2023, 12:01:48 PM »
Servus,

auf die Schnelle habe ich das hier:

https://www.machsupport.com/forum/index.php/topic,30803.msg215687.html#msg215687

Reply #6 !!

gefunden. Das Macro m1030.m1s schein eine Sonderrolle zu spielen !?
Davon musste ich bis jetzt auch nichts.

Gruß Tom

62
German / Re: Probleme mit Mach3 und Fräse
« on: September 29, 2023, 08:54:47 AM »
Servus Ralph,

die Step Signale wird Du mit einem normalen Voltmeter nicht vernünftig prüfen können,
dazu bräuchtest Du ein Oszilloskop.

Kannst Du Mal Mal Deine Profil Datei (Dein Profilname.xml) hier posten und vielleicht ein Paar Bilder
von der Treiberkarte?

Gruß Tom

63
German / Re: Probleme mit Mach3 und Fräse
« on: September 29, 2023, 06:27:59 AM »
Servus Ralph,

dann gehe ich da aus, das die Definition von den Step/Dir Pin's in den Motorausgängen nicht passt.

Kannst Du irgendwie nachverfolgen, welche Pin's zu welcher Achse gehen?

Gruß Tom

64
German / Re: Probleme mit Mach3 und Fräse
« on: September 28, 2023, 01:12:35 AM »
Hallo Ralph,

das ist schon das erste Problem, die eisten älteren Steuerungen kommen nicht mit den 3,3V klar.

Als Alternative bleibt dann noch ein Motion Controller, aber dann geht es schon
wieder mit Investitionen los.

Gruß Tom 

65
German / Re: Probleme mit Mach3 und Fräse
« on: September 27, 2023, 09:03:35 AM »
Hallo Ralph,

nachdem ich die Steuerung nicht kenne würde ich mit einem Basischeck vom PP Mal anfangen.

Hier ist das ganz gut erklärt:
https://www.youtube.com/watch?v=uglCm_qsojk&t=363s

Wenn Du dir dann sicher bist, das alle Signale am PP richtig rauskommen, dann geht es weiter in die Tiefe.

Gruß Tom

66
VB and the development of wizards / Re: Auto tool zero motor stalls
« on: September 20, 2023, 05:22:06 AM »
try this code:
Code: [Select]
REM Updated 11 Feb 2018
REM Request Material Thickness offset
Offset  = InputBox("Enter Material Thickness offset          Hint: To probe from the Spoilboard surface, enter the nominal thickness of the material. Enter '0' or leave blank if probing from the material surface", "Material Offset", "")

Rem Auto Tool Zero Z- Metric Single pass Version

PlateThickness = 30 'Enter Z-plate thickness here
DownStroke = -33 'Set the down stroke to find probe
DownFeedRate = 20 'Set the down FeedRate
RetractStroke = 10 'Set the retract Stroke
RetractFeedRate = 155 'Set the retract FeedRate


CurrentFeed = GetOemDRO(818) 'Get the current feedrate to return to later
CurrentAbsInc = GetOemLED(48) 'Get the current G90/G91 state
CurrentGmode = GetOemDRO(819) 'Get the current G0/G1 state


If GetOemLed (825)=0 Then 'Check to see if the probe is already grounded or faulty
DoOEMButton (1010) 'zero the Z axis so the probe move will start from here
Code "G4 P2" ' this delay gives me time to get from computer to hold probe in place
Code "G90 G31 Z" &DownStroke &" F" &DownFeedRate 'probing move
While IsMoving() 'wait while it happens
Wend
ZProbePos = GetVar(2002) 'get the exact point the probe was hit
If Abs(ZprobePos) <= Abs(DownStroke)-0.1 Then 'Check if the probe has been found
Code "G1 Z" &ZProbePos 'go back to that point, always a very small amount of overrun
While IsMoving ()
Wend
Call SetDro (2, PlateThickness - offset) 'set the Z axis DRO to whatever is set as plate thickness less the offset value
Code "G4 P0.25" 'Pause for Dro to update.
Code "G1 Z" &PlateThickness + RetractStroke &" F" &RetractFeedRate 'retract
While IsMoving ()
Wend
Code "(Z axis is now zeroed)" 'puts this message in the status bar   
Else
Code "G1 Z0" 'retract to start pos
While IsMoving ()
Wend
Code "(Z-Plate not found, check connection or stroke and try again)" 'puts this message in the status bar
End If
Else
Code "(Z-Plate is grounded, check connection and try again)" 'this goes in the status bar if aplicable
End If

Code "F" &CurrentFeed 'Returns to prior feed rate
If CurrentAbsInc = 0 Then 'if G91 was in effect before then return to it
Code "G91"
End If
If CurrentGMode = 0 Then 'if G0 was in effect before then return to it
Code "G0"
End If
Exit Sub   

it is a bit modifiyed what you have posted.

67
there is no "direct" way to do this, because the is no "event driven" input possibility for screen's.
a work arround would be to use the macropump macro, with is running as a background task, do
do this.

example:
-use in screenset OEMDro(1300) to change a value
-in macropump check OEMDro(1300) cyclic and if it has changed exceute code

example for macropump code:
Code: [Select]
'check OEMDro(1300) for change
If (GetOEMDro(1300)<>GetOEMDro(1301)) Then
  'put here the code witch should be exceuted
  Message "i was here"
End If
'save OEMDro(1300) for next cyclic change
SetOEMDro(1301,GetOEMDro(1300))

Gruß Tom.
Ich schreibe das hier in Englisch, nun ja in meinen bayrischen Englisch,
das es für die Anderen lesbar bleibt.

68
put a transparent button above the DRO

this is just a simple example how you can do it:

Code: [Select]

Dim DROValue As String
DROValue = AskTextQuestion("Please enter new Value:")
SetOEMDRO(800,CDbl(DROValue))
Message "Hello you entered , " & DROValue & " into DRO800!"


if you do a search for "simple numeric keyboard" you will find a code snipped i have posted years ago witch is an
other solution

69
[1] first select function - execute basic script
[2] doubleclick execute Code value, then editor for basic script is comming up
and now you can proramm your basic code to enter the value and execute G-code

70
you can use a Button Standard code 34 -> run basic script

then you can program your own VB-Script within this button.