Hello Guest it is March 28, 2024, 08:26:15 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.


Topics - ozwes007

Pages: 1 2 »
1
VB and the development of wizards / OEM/User/otherwise knowledge
« on: August 11, 2015, 08:10:50 AM »
Can any one explain the difference of these commands in a wizard AND is there a difference if you place a DRO on the Global Page 0
GetOEMDRO(1051)
GetOEMDRO(800)
GetDRO(0)
Call GetDRO(0)
GetUserDRO(1051)

and then the Set Command of the same.

The reason i'm asking, is i'm having all sorts of bother getting and setting the X DRO values in a wizard.
If i put 5 second waits in they will work occasionally.If i put a Message Prompt they will always get and set.
its driving me around the twist.
Page 0 has the DRO on it
Page 1 seems to work all the time
Page two works when it feels like it.

Wes

2
VB and the development of wizards / OnFormLoad
« on: July 17, 2015, 01:57:59 AM »
does anyone now if it is possible to use a VB OnFormLoad or similar on a wizard. Im looking at changing some parameters in a wizard depending on setup and was wondering if this was possible and if so how do we attach it to the form.

Wes

3
General Mach Discussion / Need confirmation
« on: June 29, 2015, 10:14:41 PM »
Just need to verify what is happening in the wizards

Background info - X and Y axis are set at 480 steps per Unit(mm) - resolution is 0.0020833 of a mm.
Input is JogVal=0.20833

When i code this
Code "G31  Y" & JogVal & " F" &ProbeFeed

Output to DRO and movement is 0.20833

However if the code is
Code "G31Y" & JogVal & " F" &ProbeFeed
Notice the missing space between G31Y.....

Output to DRO and movement is 0.20625

This appears to only occur in Wizards, inputting this in the MDI brings the same value to movement and DRO 0.20833

Could any one verify that this occurs for them as well please.

Wes

4
General Mach Discussion / Register Your Country?
« on: June 22, 2015, 08:38:07 PM »
Hi All,
Does anyone think it would be worthwhile Setting up Country and under that County/Town/State specific Forums for people wanting to meet others in there area?

Or do you think that it would be stalkerish? allow for undesirables to case for burglary?

Just asking, as I'm interested in meeting like minded people to discuss issues specific to our region. i.e. parts suppliers, material suppliers etc etc.

Wes

5
General Mach Discussion / Little Number Macro
« on: June 22, 2015, 04:03:38 AM »
Hi Guys and Girls,

Just a little number Macro that I used to find an error that was creeping into my Maths while using Mach3.
It shows the difference between different types of Numbers.
To view some of the more exotic things try numbers like 35649879.654987243553


Macro - Just cut and paste the below code into the VB editor in Mach3 and save as Maths.m1s or whatever you like ;-)

Sub Main
Dim Msg, X, Y

X = InputBox("Enter a Number")

Y = Abs(X)
Msg = "The Absolute Value[Abs(X)] is " & Y
MsgBox Msg,64,"The Absolute Value of " & X  'Display Message

Y = Round(X,2)
Msg = "The Rounded Value[2 decimal places] is " & Y
MsgBox Msg,64,"The Rounding Value of " & X  'Display Message

Y = Format(X,"00##.###000000")
Msg = "The Format Value[00##.###00000] is " & Y
MsgBox Msg,64,"How to Format the Value of " & X  'Display Message

Y = Format(X,"Fixed")
Msg = "The Format Value[Fixed] is " & Y
MsgBox Msg,64,"The Formatted Fixed Value of " & X  'Display Message

Y = Format(X,"General Number")
Msg = "The Format Value[General Number] is " & Y
MsgBox Msg, 64,"The General Number Value of " & X  'Display Message

Y = Format(X,"Standard")
Msg = "The Format Value[Standard] is " & Y
MsgBox Msg,64,"The Standard Value of " & X  'Display Message

Y = Format(X,"Percent")
Msg = "The Format Value[Percent] is " & Y
MsgBox Msg,64,"The Percentage Value of " & X  'Display Message

Y = Fix(X)
Msg = "The Fixed Value[Fix(X)] is " & Y
MsgBox Msg,64,"The Fixed Value of " & X  'Display Message

Y = Hex(X)
Msg = "The Hexidecimal Value[Hex(X)] is " & Y
MsgBox Msg,64,"The Hexidecimal Value of " & X  'Display Message

Y = Oct(X)
Msg = "The Octagonal Value[Oct(X)] is " & Y
MsgBox Msg,64,"The Octagonal Value of " & X  'Display Message

Y = Int(X)
Msg = "The Interger Value[Int(X)] is " & Y
MsgBox Msg, 64,"The Integer of " & X  'Display Message

Y = Log(X)
Msg = "The Natural Log Value[Log(X)] is " & Y
MsgBox Msg,64,"The Log of " & X  'Display Message

Y = Sqr(X)
Msg = "The Square Root Value[Sqr(X)] is " & Y
MsgBox Msg,64,"The Square Root of " & X  'Display Message

Y = Val(X)
Msg = "The Numeric Value[Val(X)] is " & Y
MsgBox Msg,64,"The Value of " & X  'Display Message

End Sub


Wes

6
General Mach Discussion / Mach3 Major Bug?
« on: June 21, 2015, 08:30:31 PM »
Hello all,
I am trying to pass a value from a script to Mach3. The Value is 13.846153846154. However, instead of passing this value it passes 13.8567. The value is the actual position that Mach will go to based on the Steps per Unit defined in the Motor tuning section. Now the issue is, this would be fine if it was a one off amount and wasn't used in additive functions or for that matter any arithmetic based function in your program. I use these passed values in a number of intense mathematical on the run equations that are duplicated upwards of 3-400 times per program.
The error that is generated due to this incorrect passing of value gets to the point that Mach3 is becoming useless as a program in any real accurate program cutting of parts.

My Question is.... Is this the correct way Mach3 passes values? or Am I missing something in the setup or the script writing in passing Values.

I use a few of the included Wizards to generate internal Polygon Shapes and have found that theses also generate the error in accumulated movements.
And No backlash has long since been eliminated ;-)

Wes

7
General Mach Discussion / Keypad as a Pendant - sort off
« on: June 05, 2015, 12:02:57 AM »
Hi Guys
just a little something I use for my machine. A Keypad!
I have altered the Std 1024 Screenset as I don't use speeds other then Manually changing them.
On an external Num Keypad I have setup / and * as my Rapid feed plus and minus
the Home and End Keys I use for Jog Feed rate and + and - for Normal feed rate(as set by GCode).
I have included some Photos and the 1024xtg set file I use.

Wes

8
General Mach Discussion / Tool Table in CSV Format
« on: May 18, 2015, 08:37:14 AM »
If you want a tool table to import this may help. It has a generic listing I made of Drills and Mills upto an Inch and 20MM with both metric and Imperial dimensions of each.
Just cut and shut in Excel to get what you need then make a macro to import them into Mach3 tool Table.
And no i haven't made a macro as yet :-[ I believe there may be one somewhere. If any one finds it post it here and we can all use it.
Feel free to add to the list if you want.

These are the various formats to extract the data so the reverse will get it in. These are simply info I have collected from this Forum. So kudos to the guys who put them up.

G Code Example :

G10 L1 P~ X~ Z~ (Description)

P = Tool Number
X = Diameter
Z = Offset

Macro Example:

'Macro ToolTable Report
'newer version will poll up To 225 tools And skip Any tool With a description of "empty"
' overwrite file = C:\Documents and Settings\All Users\Desktop\ToolInfo.txt
textFilePath = "C:\mach3\ToolInfo.txt"
Set objFSO = CreateObject("Scripting.FileSystemObject")
Set objTextFile = objFSO.CreateTextFile(textFilePath)
Do Until num=225
num=num+1
N = GetToolDesc(num)
D = GetToolParam(num,1)
L = GetToolParam(num,2)
WD= Gettoolparam(num,3)
WL= Gettoolparam(num,4)
If N <>"Empty" Then
objTextFile.WriteLine("*Tool"& num &"  * "& N &" *Diameter: "& D &" *Length: "& L &" *Wear Diam"&WD &" *WearLength"&WL & Chr(13) & Chr(10))
Else
End If
Loop
objTextFile.Close
Dim sCOMMAND As String
 sCOMMAND="print c:\mach3\toolinfo.txt"
 Shell("c:\windows\system32\cmd.exe /c" & sCOMMAND)
End   

VB Example

Option Explicit

Dim Response As Integer

Dim Path As String

Dim ToolNumber As Integer

Dim ToolDiameter As Double

Dim ToolLength As Double

Dim ToolDescription As String

Dim i As Integer

'Note the GetMainFolder is incorrect I beleive
Path = GetMainFolder & "myTools.txt"

Open Path For Output As #1

Print #1, "Mach3 Tooltable printout" & Date() & " " & Time(Now)

Print #1, ""

Print #1, "Tool:" & Chr(9) & "Diam:" & Chr(9) & "Length:" & Chr(9) &
"Description:"

For ToolNumber = 1 To 250

ToolDiameter = GetToolParam(ToolNumber, 1)

ToolLength = GetToolParam(ToolNumber, 2)

ToolDescription = GetToolDesc(ToolNumber)

Print #1, ToolNumber & Chr(9) & ToolDiameter & Chr(9) & ToolLength & Chr(9)
& ToolDescription

Next

Response = MsgBox("Your file is at the following location: " & Path, 0)

Close #1


Wes

9
VB and the development of wizards / Center Probe Wizard
« on: May 11, 2015, 02:31:03 AM »
Hi Guys,
After mucking around with a few wizards, I decided to make my own. ;D

This wizard will get inside centres and outside centres for spigots in ellipse, rectangle, square or regular polygons.

The help file is pretty self explanatory.

This only a beta version so feedback is appreciated.

Usual thing, unzip it to your c:\Mach3\Addons folder

Regards
Wes

10
General Mach Discussion / What is a Brain?
« on: April 25, 2015, 10:50:44 PM »
Can some one put a sticky in the Brain section, describing what a Brain is and its function within Mach3?  Please.

Pages: 1 2 »