Hello Guest it is March 28, 2024, 08:28:25 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 - penmaker1

Pages: 1 2 3 »
1
Nice screen set!  I hope it remains this clean and does not get a cluttered as the current 1024.set is.

2
Finished Screens / Re: Mach3 Aqua
« on: July 22, 2009, 07:34:18 AM »
Very nice screen set Ger.  I resized it to 800 x 600 using ScreanTweak for my LCD with touch panel in the shop, It look awesome on that display,

Thanks for your hard work on this.

John Guenther
'Ye Olde Pen Maker'
Sterling, Virginia

3
Richard,

Thanks, that is great news.  I did figure out how to get rid of the quotes on start date and time using the mid function.

   StartTime = Mid(TextLine,2,8) ' get start time.

   StartDate = Mid(TextLine,2,10) ' get start date.   

worked for me.

Thanks again,

John Guenther
'Ye Olde Pen Maker'
Sterling, Virginia

4
Thanks Richard,

I found a timediff function posted somewhere in the internet that I have incorporated in the M1003 macro, I am now getting what I need from the macro and I have the format coming out like I want it to.

I will be posting the revised macro later today.  I ran 72 parts o the lathe Friday and yesterday with the macros running and got the output I needed.  I will be running some more on the lathe and mill today, once I am satisfied with the output I will update my original post with the corrected versions of the macros.  I still have not figured out how to stop it from enclosing the entire output line in quotes but I can live with that.

Thanks to everyone who replied and made suggestions, they were appreciated.

John Guenther
'Ye Olde Pen Maker'
Sterling, Virginia


5
I took the macro's posted by Scott and modified them slightly to produce a running job log.  The output file is compatible with Microsoft Excel.  I did this becuase I need to be able to track total time for a job with multiple parts in varying quantities for each part.

It still works Scott originally posted it with the exception that the resulting output from the M1003 macro is not destroyed with each run.

'****************************
'M1002.m1s  Store Start time point

Dim StartTime As String               
Dim StartDate As String               

StartTime = Time(Now)
StartDate = Date()

Open "TimeFile" For Output As #1   ' Open to write file.
Write #1, StartTime
Write #1, StartDate
Close #1

Code "G4 P0.5"
While IsMoving
Wend

Sec = Second(StartTime)
Min = Minute(StartTime)
Hr = Hour(StartTime)
Dy = Day(StartDate)

SetVar(100,Sec)
SetVar(101,Min)
SetVar(102,Hr)
SetVar(103,Dy)
'***************************** 

Here is the M1003 macro:

'*****************************
'M1003.m1s  Get End Time point and calc, and post file

Dim StartTime As String
Dim StartDate As String
Dim EndTime As String
Dim EndDate As String
Dim File As String
Dim Days

EndTime = Time(Now)
EndDate = Date()
SecEnd = Second(EndTime)
MinEnd = Minute(EndTime)
HrEnd = Hour(EndTime)
DyEnd = Day(EndDate)

SecStart = GetVar(100)
MinStart = GetVar(101)
HrStart = GetVar(102)
DyStart = GetVar(103)

File = FileName()

Open "TimeFile" For Input As #1   ' Open file.   
   Line Input #1, TextLine      ' Read line into variable.
   StartTime = TextLine      ' get start time.
   Line Input #1, TextLine      ' Read line into variable.
   StartDate = TextLine      ' get start date.   
Close #1                  ' Close file.

Code "G4 P0.5"
While IsMoving
Wend

If HrEnd<HrStart Then
   Hr=((24-HrStart)+(24-(24-HrEnd)))
ElseIf (HrEnd>HrStart and MinEnd>MinStart) Then
   Hr=(HrEnd-HrStart)
Else
   Hr = 0
End If

If MinEnd<MinStart Then
   Min=((60-MinStart)+(60-(60-MinEnd)))
ElseIf (MinEnd>MinStart And SecEnd>SecStart) Then
   Min=(MinEnd-MinStart)-1
Else
   Min=(MinEnd-MinStart)   
End If

If SecEnd<SecStart Then
Sec=((60-SecStart)+(60-(60-SecEnd)))
Else
Sec=(SecEnd-SecStart)
End If

If (DyEnd-DyStart)= 0 Then
Days = 0
End If

If ((DyEnd-DyStart)=1) And (HrEnd<HrStart) Then
Days = 0
End If

If ((DyEnd-DyStart)=1) And (HrEnd>HrStart) Then
Days = 1
End If

If ((DyEnd-DyStart)>1) Then
Days = (DyEnd-DyStart)
End If

Kill "TimeFile"

Open "CostEstimate.csv" For Append As #2   ' Open to write file.
Write #2, File & " " & "," & StartDate & "," & StartTime & "," & EndDate & "," & EndTime & ","& Days & "," & Hr & ":" & Min & ":" & Sec
Close #2

Code "G4 P0.5"
While IsMoving
Wend

'*****************************

The only thing I am not pleased with is the CostEstimate.csv file has some double quotation marks in it that can be a problem for Excel to deal with.  I would also like to be able to get rid of the AM and PM designations on the two time fields but have not been able to determine if VBscript will allow me to do that.  Some or all of these problems are either due to the Cypress Enable scripting package or to my lack of knowledge in this area.

Any help or comments will be welcomed.

John Guenther
'Ye Olde Pen Maker'
Sterling, Virginia

6
Hi Scott,

This works very well, I made a couple of minor changes to get what I need.  It now keeps appending to the CostEstimate file and I changed the output format to be more useable with Excel or some other spread sheet.  Now I just need to add the M1002 and M1003 macro calls to my TurboCADCAM configuration so that they are automatically added to each part file. 

Thank you for making the macros available.

John Guenther
'Ye Olde Pen Maker'
Sterling, Virginia

7
Flash Screens / Re: New Flash Docs?
« on: November 13, 2008, 07:11:52 AM »
Why not simply a wiki... Fills continuously and doesn't (well... should not...) get out of sync with the releases and or product updates.
Lemo


Thanks for your suggestion, I will discuss the wiki idea with Brian and see what he thinks.  I imagine it will be an initial document and perhaps a wiki as well.

John Guenther
'Ye Olde Pen Maker'
Sterling, Virginia

8
Hi Scott,

I am on R3.041, I tried the 3.042.001 version but went back to R3.041.

I will check it on the shop computer just to be sure.

Thanks for the reply.

John Guenther
'Ye Odle Pen Maker'
Sterling, Virginia

9
I got a reply from MachMotion last week, I think on Thursday or Friday (I am not at home so I can't get the exact date) saying it would be a few days before they got everything uploaded and that the screen set would have a selling price of $199.00.  I did not inquire as to whether that price included updates and bug fixes.

John Guenther
'Ye Olde Pen Maker'
Sterling, Virginia

10
Hey Scott,

Thanks for the reply, the lathe flash screens is what prompted the question.  At any rate, I also asked on the Yahoo group and Art replied back tellling me to rename the screen to Mach3Lathe.lset.swf which I did and it worked.  Art said that the .lset is what triggers turn mode in Mach3.

At any rate, it worked and it appears to be in turn mode, at least when yoiu click on Wizards you get the proper list for Turn.

John Guenther
'Ye Olde Pen Maker'
Sterling, Virignia

Pages: 1 2 3 »