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.


Topics - TPS

Pages: 1 2 3 »
1
G-Code, CAD, and CAM discussions / G43T Mach3
« on: January 31, 2019, 12:13:43 PM »
Hi,

has anybody a document witch describes, or maybe knows what a

G43T+toolnumber

exactly does in Mach3.

2
G-Code, CAD, and CAM discussions / G0 strange movement
« on: January 29, 2019, 11:18:30 AM »
Hi i have a simple Programm:

running on Mach3
tested in R3.043.022
and in R3.043.066

Code: [Select]
N1 ( Lochreihe mit: 2 Loecher)
N2 ( Zentrierbohren mit Werkzeug: 99 )
N3 ( Bohren mit Werkzeug: 114 )
N4 G00 G49 G40 G21 G17 G80 G50 G90
N5 ( Zenrierbohren ----------)
N6 M06 T99
N7 G90 G00 X5 Y10
N8 G00 Z5
N9 S3800
N10 M03
N11 M08
N12 G73 X5 Y10 Z-3 Q1 R5 F300
N13 G91 X7.0711 Y7.0711 L1
N14 G80
N15 G90
N16 G00 Z5
N17 M09
N18 M05
N19 ( Bohren ----------)
N20 M06 T114
N21 G90 G00 X5 Y10
N22 G00 Z5
N23 S1100
N24 M03
N25 M08
N26 G73 X5 Y10 Z-20 Q1 R5 F230
N27 G91 X7.0711 Y7.0711 L1
N28 G80
N29 G90
N30 G00 Z5
N31 M09
N32 M05
N33 M06 T0
N34 M30

if i run the line:

N7 G90 G00 X5 Y10

i get a random z-axis movement

at line:

N21 G90 G00 X5 Y10

witch is exactly the same i have no z-axis movement

if i Switch the lines:

N7 G90 G00 X5 Y10
N8 G00 Z5

to

N7 G90 G00 Z5
N8 G00 X5 Y10

everthing works like expected.

i have no real idea who or what initiates this z-axis monent.

TPS





3
General Mach Discussion / macro on startup/screenset load
« on: January 24, 2019, 05:46:02 AM »
Hi,
i am sure i have read that there is a possibilty of a macrocall on statup or screesetload.
macro has to have a specific Name, and to be at a specific place.

not the Thing with the Initialisation string in General config.

i have searched now for two hours, but cant find it anymore.

maybe someone can remember, seem's i am getting to old. :o

TPS 

4
YES OR NO

any answer would be great.

5
General Mach Discussion / Feed hold
« on: March 16, 2018, 08:57:39 AM »
had a strange Thing today

run a simple Programm for seed Validation

g0x200y200
g0x0y0


then i pressed feed hold during the g0x200y200
when i tryed to start again got he following errormessage:

Fri - 13:53:40 ---Command too long , Block = G0 X21044981090020823000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000.0000 Y-518.5300 Z-205.0500 A-4962710013563463000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000.0000 B0.0000 C0.0000Line 0

Thomas

M3 v .022

6
General Mach Discussion / Mach3 jog
« on: February 20, 2018, 10:55:00 AM »
Hi,

as soon i enable in Config -> Ports&Pins -> Inputs one of the Jog Inputs,
this Input let me jog always, doesn' matter wether jog mode is enabled or not.

General Config persistent Jog mode is disabled.

is there somewere else a config do allow Jogging only when jog mode is on?

Thank You Thomas

7
VB and the development of wizards / file open/save dialog box in Win7 64bit
« on: February 05, 2018, 11:59:45 AM »
after spending o couple of hour's to get a file open/save Dialog working on win7 64bit,
i post the code here in case somebody else is searching for the same Problem

Code: [Select]

Dim Filename As String
Dim Dialog1

    Set Dialog1 = CreateObject("MSComDlg.CommonDialog")
    Dialog1.MaxFileSize = 256
    Dialog1.Filter = "GCode Files (*.tap)|*.tap"
    Dialog1.FilterIndex = 1
    Dialog1.DialogTitle = "select GCode file"
    Dialog1.InitDir = "C:\Mach3\GCode"
    Dialog1.FileName = ""
    save = false
    If save = true Then
        Dialog1.DefaultExt = def
        Dialog1.Flags = &H800 + &H4
        discard = Dialog1.ShowSave()
    Else
        Dialog1.Flags = &H1000 + &H4 + &H800
        discard = Dialog1.ShowOpen()
    End If

FileName = Dialog1.FileName



change the variable "save", to get either a open or save Dialog

if the code causes a error run this code

Code: [Select]
'Make the MSComDlg.CommonDialog class available for use. Required for filedialog function.
function registerComDlg
    Set objRegistry = GetObject("winmgmts:\\.\root\default:StdRegProv")
    objRegistry.CreateKey &H80000001, "Software\CLASSES\Licenses\4D553650-6ABE-11cf-8ADB-00AA00C00905"
    objRegistry.SetStringValue &H80000001, "Software\CLASSES\Licenses\4D553650-6ABE-11cf-8ADB-00AA00C00905", "", "gfjmrfkfifkmkfffrlmmgmhmnlulkmfmqkqj"
end function


in vb scripter window once to registrate MSComDlg.CommonDialog on your System

Thomas


8
Mach Screens / simple numeric keyboard for input in DRO
« on: December 22, 2017, 01:25:36 PM »
Hello,

here a simple solution with "on board" possibilities (VB script) to do Inputs to DRO (touch Screen).

put the following code into a macro in your macrofolder:

Code: [Select]

Global value As String

'TPS 01.12.2017
'numerische Eingabe
Function NumericKeyboard(ByVal DRONum as Integer) As Double
Dim title as String
value = GetOemDRO(DRONum)
title = Header


Begin Dialog UserDialog1 60,60, 105, 180, "Eingabe:"  , .Enable

PushButton 10, 10, 25, 25, "7", .but7
PushButton 40, 10, 25, 25, "8", .but8
PushButton 70, 10, 25, 25, "9", .but9

PushButton 10, 40, 25, 25, "4", .but4
PushButton 40, 40, 25, 25, "5", .but5
PushButton 70, 40, 25, 25, "6", .but6

PushButton 10, 70, 25, 25, "1", .but1
PushButton 40, 70, 25, 25, "2", .but2
PushButton 70, 70, 25, 25, "3", .but3

PushButton 10, 100, 25, 25, ".", .butD
PushButton 40, 100, 25, 25, "0", .but0
PushButton 70, 100, 25, 25, "<-", .butB

TextBox 10, 130, 85, 18, .FText
PushButton 10, 155, 40, 21,"OK", .OK
CancelButton 55, 155, 40, 21
End Dialog


Dim Dlg1 As UserDialog1

Dlg1.FText = CStr(value)
x = Dialog( Dlg1 )

NumericKeyboard = CDbl(Dlg1.FText)
SetOEMDro(DRONum,CDbl(Dlg1.FText))
End Function

Function Enable( ControlID$, Action%, SuppValue%)

Select Case Action%
Case 1

Case 2 'Button wurde gerückt
If ControlID$ = "but0" Then
value = CStr(value) + "0"
DlgText "FText", CStr(value)
Enable =1
End If
If ControlID$ = "but1" Then
value = CStr(value) + "1"
DlgText "FText", CStr(value)
Enable =1
End If
If ControlID$ = "but2" Then
value = CStr(value) + "2"
DlgText "FText", CStr(value)
Enable =1
End If
If ControlID$ = "but3" Then
value = CStr(value) + "3"
DlgText "FText", CStr(value)
Enable =1
End If
If ControlID$ = "but4" Then
value = CStr(value) + "4"
DlgText "FText", CStr(value)
Enable =1
End If
If ControlID$ = "but5" Then
value = CStr(value) + "5"
DlgText "FText", CStr(value)
Enable =1
End If
If ControlID$ = "but6" Then
value = CStr(value) + "6"
DlgText "FText", CStr(value)
Enable =1
End If
If ControlID$ = "but7" Then
value = CStr(value) + "7"
DlgText "FText", CStr(value)
Enable =1
End If
If ControlID$ = "but8" Then
value = CStr(value) + "8"
DlgText "FText", CStr(value)
Enable =1
End If
If ControlID$ = "but9" Then
value = CStr(value) + "9"
DlgText "FText", CStr(value)
Enable =1
End If
If ControlID$ = "butD" Then
   If InStr(1,value,".") = 0 Then
value = CStr(value) + "."
DlgText "FText", CStr(value)
Enable =1
   End If
End If
If ControlID$ = "butB" Then
value = Left(value,Len(value)-1)
DlgText "FText", CStr(value)
Enable =1
End If
If ControlID$ = "OK" Then
Enable = -1
End If
Case 3 'Text verändert
'MsgBox Dlg1.FText
Case Else
End Select

'Wert zurückgeben
If Enable = -1 Then
Enable = value
End If

End Function   



ok lets say you put into C:\mach3\macros\yourprofile\numerickeyboard.m1s

if you put following code into a transparent button over the a-axis dro
the code do edit x-axis would be:

Code: [Select]
Sub Main
call NumericKeyboard(800)

End Sub


#Expand <\..\..\macros\yourprofile\numerickeyboard>


call NumericKeyboard(800)

the number is the OEMDro you want to edit.

Regards Thomas

9
Mach Screens / script by loading screenpage (Mach3)
« on: December 18, 2017, 03:00:56 AM »
Hello,
is there a possibility to run a script automaticly, when a page of a sreenset is opened ?
ok i can strart the script with the button, witch opens the page.

Thank You Thomas

10
Screen designer tips and tutorials / Tranparent Pushbutton - Dro Mach3
« on: December 14, 2017, 12:48:26 PM »
Hi guy's

for the moment i am a Little bit out of ideas (probably im am sitting on the pipe)

I have written a VBScript for numeric Inputs , via transparent button, on a Touchsreen witch is able to to enter values into a specified DRO (i know this Auto-Calculator Option) .

to use it, it is necessary, to put a "transparent Button" over the DRO Display.

for the moment i am hang up, to get the "transpartent button" as the "TOP" Event,
means the DRO is the master, and takes the focus for Input, and the button Event is not triggerd.

hope somebody understands what i am trying to explain in my bad Bavarin english.

Thank You Thomas

PS. if i get this running, it will be shared.
 

Pages: 1 2 3 »