How to post every operation to another NC-file?

[MCHulk]

Does anybody here know, how to post automaticly every selected operation in the operation manager to a unique NC-file?

For example, if i have 10 operations in the operation-manager, i need 10 NC-files.

How should i modify my post, so that i get the files?

 

Thanks in advance,

MCHulk

[Hardmill]

Change your NCI destination in the ops manager.

 

PEACE

[Allan Brown]

Without filling in all the cracks...

 

At every toolchange and null tool change (if op_id <> prv_op_id):

 

counter = counter + 1

snamesub = snamcnc + no2str(counter)

newsub

subout = 1

[Mick from CNC Software Inc.]

This script will iterate all operations in current drawing and post. I believe SP2 is required to run this script.

 

code:

---

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

'//

'// Author: Mick George [email protected]

'// Date: 11/11/2003 09:34 PM

'// File Name: NC for each OP.vbs

'//

'// Description:

'//

'// Comments: I should be playing threewave...

'//

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

 

Const DEF_MY_POST = "MPFAN.PST"

 

 

' -- Start Script

Call Main()

 

 

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

' Sub Declaration

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

Sub Main()

 

 

Dim intOpsCount, intThisOp

Dim strPost

 

' -- Pass a null string to tell MC we want this files ops

intOpsCount = GetOperationCount(vbNullString)

 

' -- Any operations?

If intOpsCount > 0 Then

 

' -- Set our post

strPost = GetPathFromExtension("PST") & DEF_MY_POST

Call SetPostName(strPost)

 

' -- Iterate our operations

For intThisOp = 1 To intOpsCount

' -- Post each operation

If Not RunPost(intThisOp, GetOperationNameFromID(vbNullString, intThisOp), False) Then

ShowString "Failed to create NC for operation " & intThisOp

End If

Next

 

Else

ShowString "Nothing to post"

End If

 

 

End Sub

---

[Hardmill]

Hey Mick,

Do I need to define my post in the script.

I keep getting an error.

Its not finding the post.

 

PEACE

[Mick from CNC Software Inc.]

HardMill,

 

Create a new script and add the following and run it and tell me what it displays.

 

code:

---

Showstring GetPostName 

---

[Hardmill]

Points to my post dir.

c:mcam9millpost

 

PEACE

[Mick from CNC Software Inc.]

Ok I think you need to set your post name, edit my example with your post name and give that a try.

[Hardmill]

I'm a complete noob in this arena, where do

i add it.

I kinda figured something like that.

 

PEACE

[Mick from CNC Software Inc.]

 

code:

---

' -- Change this

Const DEF_MY_POST = "MPFAN.PST"

 

' -- To point to your post

Const DEF_MY_POST = "PUT_POST_NAME_HERE.PST"

---

[Hardmill]

I found it!!!

Thats cool Mick.

Thank you soooo much!!

 

PEACE

[Rekd™]

code:

---

Const DEF_MY_POST = "MPFAN.PST"

---

Replace MPFAN.PST with the name of your post.

 

'Rekd

[Rekd™]

'Rekd teh a minute late and a Const short

[Mick from CNC Software Inc.]

Evening Rekd

 

Well time for bed, later guys.

[Rekd™]

Hi ya, Mick!

 

Thanks for the script

 

G'nite!

 

'Rekd

[Hardmill]

Thanks anyhoo 'Rekd, This stuff is cool.

MORE INPUT

 

PEACE

[Rekd™]

quote:

---

This stuff is cool.

MORE INPUT

---

You know what kills me? These guys get paid to do this stuff all day. What a life.

 

'Rekd

 

[ 11-12-2003, 12:00 AM: Message edited by: Rekd ]

[Hardmill]

That would definetly be cool

I'm sure this is going to be fun.

 

PEACE

[Mick from CNC Software Inc.]

quote:

---

These guys get paid to do this stuff all day

---

I'm making up time for those 16+ years of Manual/CNC machining

[crazy^millman]

Ok Mick sorry to come in late here BTW cool script. Could you just use the neat script for Folder calls to defalut to the post area to grab the post you want for the post and have both scripts tied together or is that to complicated.

 

I am thinking I would like to be able to make a button script like the toolbar that look likes this. then I could just do things from here I know it would have to do this in such a way as too go from ops but I guess more wishful thinking than anything.

 

Crazy Millman teh VB is on my things to do list.

[Rekd™]

You'd have to create it in a .dll (ocx?) file and call that from the script.

 

'Rekd

 

[ 11-12-2003, 08:19 PM: Message edited by: Rekd ]

[Rekd™]

BTW, I believe there's a tutorial somewhere in the help files, I'll look tomarrow. It's pretty cool to be able to create your own dialog boxes to use INSIDE Mastercam.

 

'Rekd

 

[ 11-12-2003, 08:31 PM: Message edited by: Rekd ]

[crazy^millman]

Hummmmmmmm I can just imagine the possiblities.

Thanks alot Rekd.

 

Crazy Millman

[Rekd™]

Here it is..

 

code:

---

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

'//

'// Author: Mick George [email protected]

'// Date: 15/12/2002 11:00 AM

'// File Name: Calling VB DLL Example

'//

'// Description: Shows how to call a VB ActiveX Project (DLL)

'//

'// Comments: You will need to install and register the ActiveX DLL in order to use it.

'// e-mail me if you need help doing this. Place the DLL in the same folder as this script.

'// This script shows how to load a dialog and take user input and get it for this script.

'// Open the VB Project and run it, then run this script from Mastercam to see how this works.

'//

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

 

 

' -- Start Script

Call Main()

 

 

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

' Sub Declaration

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

Sub Main()

 

On Error Resume Next

 

Dim objExampleDLL

Dim FSO

Dim fsoFile

Dim strText

Dim blnCheck

Dim blnOption

 

 

' -- Create an instance of our DLL

Set objExampleDLL = CreateObject("mcTestClass.CMainFrontEnd")

 

' -- Make sure we are OK to go

If Err Then

If objExampleDLL Is Nothing Then

ShowString "Could not load DLL"

Err.Clear

Exit Sub

Else

ShowString "An error has occured " & Err.Description

Err.Clear

' -- Refresh the screen

Call RepaintScreen(True)

Exit Sub

End If

End If

 

If Not ClearScreen() Then

' -- Refresh the screen

Call RepaintScreen(True)

Exit Sub

End If

 

' -- Clear memory

Call NewMC(False)

 

' -- Show the dialog

With objExampleDLL

 

Call .RunMain

 

' -- Make sure we are ok to go

If .OkToProcess Then

 

' -- Refresh the screen

Call RepaintScreen(True)

 

Set FSO = CreateObject("Scripting.FileSystemObject")

 

If FSO.FileExists("C:CMainFrontEnd.txt") Then

 

Set fsoFile = FSO.OpenTextFile("C:CMainFrontEnd.txt")

 

strText = fsoFile.ReadLine

blnCheck = fsoFile.ReadLine

blnOption = fsoFile.ReadLine

 

fsoFile.Close

 

' -- Safely unload the dll

.ShutDown

 

ShowString "Text = " & strText

 

If blnCheck = 1 Then

ShowString "Checkbox was selected"

Else

ShowString "Checkbox was NOT selected"

End If

 

If blnOption = "True" Then

ShowString "Checkbox was selected"

Else

ShowString "Checkbox was NOT selected"

End If

 

 

Else

ShowString "Could not find file C:CMainFrontEnd.txt"

Exit Sub

End If

 

Else

' -- User cancelled?

End If

 

End With

 

If Err Then

ShowString "Error raised in Sub Main() " & Err.Description

End If

 

' -- Clean up

Set objExampleDLL = Nothing

Set fsoFile = Nothing

Set FSO = Nothing

 

 

End Sub

 

 

 

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

' Function Declaration

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

Function ClearScreen()

 

ClearScreen = True

 

' -- See if there is a drawing active

If ChainAll(False,False,mcCHAIN_ALL_NUMBERED_LEVELS , mcCHAIN_ALL_NAMED_LEVELS) = True Then

 

' -- Ask to clear screen

If Not askYesNo("Current drawing will be cleared, do you want to continue?") Then

ClearScreen = False

End If

End If

 

 

End Function

---

It's in your "/VB/Visual Basic Example" folder

 

'Rekd

[crazy^millman]

Ok cool beans Rekd I left you a voice message need to come by to check this bad boy out. I am now getting the why didnt we do this 6 months ago and wow it is fast and holly sh?t how did it changes tools that fast. It rocks I have also set the pst up to do G154.1 which is now the new G110 so when I do 1 in the work offset I get G154.1 P1 and so on and son I am using the Mpmaster and have the G187 you showed my ealrier in the post I am now going to put all the Canned cycles like the Engraving and other things in here see where they kick but on here. I will say I am suprised about this machine it rocks.

 

Crazy Millman