Messages

111

VB and the development of wizards / Re: Set Coordinates to SoftMin after Reference-Drive

« on: June 03, 2023, 09:47:18 AM »

if you have a look to the DRO list:

https://www.machsupport.com/forum/index.php?action=dlattach;topic=6657.0;attach=18779

you will find them from 150 upwards

112

General Mach Discussion / Re: Can someone give me a hand?

« on: June 01, 2023, 03:41:37 AM »

you can also easy calculate the calculate the step's/per.

example:

steppers have 200 pulses per revolution. ( 360 degrees divided by 1.8 degrees = 200 )
Micro stepping = 10. So 200 X 10=2000
Motor to screw gearing is 1-1. So 2000 X 1=2000
Screw lead is .200 of an inch.
screw will have to turn 5 rounds to move the nut 1".
1.0 divided by 0.200=5.
So 2000 X 5=10000.

113

General Mach Discussion / Re: Can someone give me a hand?

« on: May 31, 2023, 05:26:51 AM »

try this code:

Code: [Select]

G00 G49 G40.1 G17 G80 G50 G90 G61
G20
(2 1/2 Axis Pocketing)
M6 T1
M03 S2400
G00 Z0.1250
X-0.0089 Y-0.0607
G01 Z0.0500  F25.0
Z0.0250  F10.0
X-0.0239 Y-0.0577 Z0.0223  F2.7
X-0.0442 Y-0.0442 Z0.0180
X-0.0577 Y-0.0239 Z0.0137
X-0.0625 Y0.0000 Z0.0094
X-0.0577 Y0.0239 Z0.0051
X-0.0442 Y0.0442 Z0.0008
X-0.0239 Y0.0577 Z-0.0035
X0.0000 Y0.0625 Z-0.0078
X0.0239 Y0.0577 Z-0.0121
X0.0442 Y0.0442 Z-0.0164
X0.0577 Y0.0239 Z-0.0207
X0.0625 Y0.0000 Z-0.0250
G17
G02X-0.0625I-0.0625J0.0000 F15.0
X0.0625I0.0625J0.0000
G01 X0.1250
G03X-0.1250I-0.1250J0.0000
X0.1250I0.1250J0.0000
G01 X0.1875
G02X-0.1875I-0.1875J0.0000
X0.1875I0.1875J0.0000
G01 X0.2500
G03X-0.2500I-0.2500J0.0000
X0.2500I0.2500J0.0000
G01 X0.3125
G02X-0.3125I-0.3125J0.0000
X0.3125I0.3125J0.0000
G01 X0.3750
G03X-0.3750I-0.3750J0.0000
X0.3750I0.3750J0.0000
G01 X0.3529 Y-0.0383 Z0.0192  F2.7
Z0.0442  F25.0
G00 Z0.1250
M5 M9
M30


114

General Mach Discussion / Re: Macro for measure all Tool in toolrack Issue/Problem.

« on: May 29, 2023, 10:29:23 AM »

ok example (in mm):

G90 mode
G1 X100 will move the X-Axis to 100mm in workpice coordinates

G91 mode
G1 X100 will move the X-Axis + 100mm, if it is at 50mm in workpice coordinates it will go to 150mm in workpice coordinates


for a test you can enter G90 in MDI line an run than your macro.

115

General Mach Discussion / Re: Macro for measure all Tool in toolrack Issue/Problem.

« on: May 29, 2023, 08:37:56 AM »

i think your machine was in incremental distance mode (G91) and not in absolute distance mode (G90)
when you run the macro.

116

Brains Development / Re: Execution M00 for Brains

« on: May 20, 2023, 01:16:55 PM »

no, you have to create a macrofile in your macrofolder (normaly C:\Mach3\macros\ your profile name) with
the name M123.M1S, plain Textfile (notepad or simular), then copy the posted code into the file.

the GCode will call the Macro:

g1y-20
g0y-15
M123
g0a40

and the code in the macro will "wait"/"pause" until Input1  goes OFF and ON again.

117

Brains Development / Re: Execution M00 for Brains

« on: May 20, 2023, 10:18:31 AM »

so you will only need a simple macro.

for example m123.m1s

Code: [Select]

If IsActive (Input1) Then
      Sleep(100) 'wait for input to go off
End If
Sleep(100)
If Not IsActive (Input1) Then
      Sleep(100) 'wait for input to go on again
End If


and GCode would look like:

Code: [Select]

m3
m7
f300
g0a0
g1y-20
g0y-15
m123
g0a20


g1y-20
g0y-15
m123
g0a40

.....

then macine wil go to position an wait for Input1 to be OFF and ON again

118

Mach Screens / Re: simple numeric keyboard for input in DRO

« on: May 20, 2023, 10:14:11 AM »

not tested

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, 195, 180, "Input:"  , .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

PushButton 100, 10, 25, 25, "X", .butX
PushButton 100, 40, 25, 25, "Y", .butY
PushButton 100, 70, 25, 25, "Z", .butZ
PushButton 100, 100, 25, 25, "A", .butA

PushButton 130, 10, 25, 25, "F", .butF
PushButton 130, 40, 25, 25, "S", .butS
PushButton 130, 70, 25, 25, "M", .butM
PushButton 130, 100, 25, 25, "Sp", .butSp

PushButton 160, 10, 25, 25, "G", .butG

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


Dim Dlg1 As UserDialog1

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

'NumericKeyboard = CDbl(Dlg1.FText)
If x <> 0 Then
'SetOEMDro(DRONum,CDbl(Dlg1.FText))
Code Dlg1.FText
End If
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$ = "butX" Then
value = CStr(value) + "X"
DlgText "FText", CStr(value)
Enable =1
End If
If ControlID$ = "butY" Then
value = CStr(value) + "Y"
DlgText "FText", CStr(value)
Enable =1
End If
If ControlID$ = "butZ" Then
value = CStr(value) + "Z"
DlgText "FText", CStr(value)
Enable =1
End If
If ControlID$ = "butA" Then
value = CStr(value) + "A"
DlgText "FText", CStr(value)
Enable =1
End If
If ControlID$ = "butF" Then
value = CStr(value) + "F"
DlgText "FText", CStr(value)
Enable =1
End If
If ControlID$ = "butS" Then
value = CStr(value) + "S"
DlgText "FText", CStr(value)
Enable =1
End If
If ControlID$ = "butM" Then
value = CStr(value) + "M"
DlgText "FText", CStr(value)
Enable =1
End If
If ControlID$ = "butSp" Then
value = CStr(value) + " "
DlgText "FText", CStr(value)
Enable =1
End If
If ControlID$ = "butG" Then
value = CStr(value) + "G"
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   







119

Brains Development / Re: Execution M00 for Brains

« on: May 19, 2023, 02:13:12 PM »

OK inthis case you will need two signal's

-excenter in top position
-excenter in bottom position

-how will the excenter drive be controlled? simple On/OFF by relay?

-what will do the feed forward, if there is more then one stroke at a position ? Y-Axis?

-has it to do a small step backward's when the stroke goes up?

question's and more question's.

120

Brains Development / Re: Execution M00 for Brains

« on: May 18, 2023, 04:14:57 AM »

Hello Fred,

how is the stroke driven ? Hydraulic or excenter drive or?

usualy there is more then one stroke per a position,but does not matter ?

so the sequence would be

-ckeck stroke is up
-Y-axis to a save positon for turn
-turn A-axis
-Y-axis to the first position
-stroke down
-Y-axis back
-stroke up
-Y-axis to the next position
-stroke down
-Y-axis back
-stroke up

and so on until Y-axis depth is reached
then if necessary the same for next a position.