Jump to content

Welcome to eMastercam

Register now to participate in the forums, access the download area, buy Mastercam training materials, post processors and more. This message will be removed once you have signed in.

Use your display name or email address to sign in:

setup sheets


JG
 Share

Recommended Posts

Hi everyone,

 

I have read some of the threads on setup sheets and utilizing VB of Excell to augment the standard output.

 

My question is: Does anyone have a method that will output the typical setup info plus a picture of the part, plus allow the output to be edited or added to at a later date using a typical windoze product ?

 

(this allows the floor to add additional info as they see fit)

 

If someone has something they are willing to share I would be externally greatful.

Link to comment
Share on other sites

JG if you lok on the Mian web page for emastercam it has a HTML Set-up Sheet that does what you are asking. It took me about 2 hours to get it to work on the Fadal's but it support JPEG or GIF and you can do a screen/next menu/to clip board then go to paint and paste. Whne you put this JPG or GIF (i recommend JPG better quality) in the same place you put the NC file and a way you g ofrom there. It is very big printed file but for now it will do what I need I have to get all of my access books out to get it to work intertwined. That is somethign that can wait for now.

 

CRazy Millman

Link to comment
Share on other sites

quote:

I be glad to see the interworkings of your brain on that one.

Hrm, uh, I dunno; When I go back and look some of the code I've written, I gotta kick myself right in the nads. It resembles my garage, I guess. I know where everything is, but if you go looking for something eek.gif , lol..

 

'Rekd

Link to comment
Share on other sites

Wel Rekd I dont have a garage anymore being out here so I am of course up the creek without a paddle on that one. Oh what fun it is to live a da?n sh?t hole with people that have to stomp on the floor above me. The last ones above me and I almost went round to round about 3:00 am one morning on a wedensday.

 

I am still trying to find crap from the move here from 6 months ago. I cant find this or that half the time and left alot of the baby clothes and stuff there so now with another girl on the way have to find a way to ship all that here.

 

Crazy Millman

Link to comment
Share on other sites

I must say very nice program.. one question though.. when I select it to display actual cycle time it says 0 hrs 0 mins 0sec... how do you get it to detect the actual cycle time of the tool path... thanks...

 

 

User error... I figured it out.. again though nice program...

 

[ 09-11-2003, 09:41 AM: Message edited by: sr_7626@natl ]

Link to comment
Share on other sites

Rekd,

 

You can export an emf image of the current drawing (see script below), however this is a full screen image, we will be adding a scale factor to the emf function shortly.

 

code:

Call Main

 

'///////////////////////

'// SUBROUTINE

'///////////////////////

Sub Main

 

Dim strFileName

Dim strPathToImage

Dim strDrawingName

 

' -- Build path to where the image will be saved

strPathToImage = GetPathOfThisScript

 

' -- Get the current file name

strFileName = GetCurrentFileName

 

' -- Strip the path

strDrawingName = ParseName(GetCurrentFileName)

 

' -- Replace it

strDrawingName = Replace(strDrawingName, "MC9", "EMF")

 

' -- Build the fullpath

strPathToImage = AddBackSlash(strPathToImage) & strDrawingName

 

' -- Fit screen

Call RepaintScreen(True)

 

' -- Create the file

If DoMetafile(strPathToImage) Then

ShowString "'" & strPathToImage & "' has been created"

Else

ShowString "Unable to create EMF file"

End If

 

End Sub

 

 

'///////////////////////

'// FUNCTION

'///////////////////////

Public Function AddBackSlash(sPath)

 

If Len(Trim(sPath)) > 0 Then

If Right(sPath, 1) <> "" Then

sPath = sPath & ""

End If

End If

 

AddBackSlash = sPath

 

End Function

 

'///////////////////////

'// FUNCTION

'///////////////////////

Public Function ParseName( sPath)

 

Dim strX

Dim intX

 

intX = InStrRev(sPath, "")

 

strX = Trim(Right(sPath, Len(sPath) - intX))

 

If Right(strX, 1) = Chr(0) Then

ParseName = Left(strX, Len(strX) - 1)

Else

ParseName = strX

End If

 

End Function

Link to comment
Share on other sites

Carl Vallance, I'll mail you.

 

Rekd, if you want a high quality scaled screenshot, then the best way is to zoom out from the part and grab that particular portion of the screen. For that I did my own function with MASM. I don't think this is possible with VBS.

If you do a full screenshot and scale it after, the quality is not very good.

 

 

I'm about to add also a tool list for the output.

 

quote:

Gismo, does this only run in V9 ?, I'm running V8.


I'm afraid to say yes.

 

 

cheers.gif

 

[ 09-12-2003, 03:33 AM: Message edited by: Gismo ]

Link to comment
Share on other sites

Join the conversation

You can post now and register later. If you have an account, sign in now to post with your account.

Guest
Reply to this topic...

×   Pasted as rich text.   Paste as plain text instead

  Only 75 emoji are allowed.

×   Your link has been automatically embedded.   Display as a link instead

×   Your previous content has been restored.   Clear editor

×   You cannot paste images directly. Upload or insert images from URL.

 Share

  • Recently Browsing   0 members

    • No registered users viewing this page.

Join us!

eMastercam - your online source for all things Mastercam.

Together, we are the strongest Mastercam community on the web with over 56,000 members, and our online store offers a wide selection of training materials for all applications and skill levels.

Follow us

×
×
  • Create New...