13 hours ago, jeff.D said:

Depending on the operation types you're dealing with, you may be able to do this with a Net-Hook that's configured to launch from a keyboard shortcut.

Any suggestions on a good place to research or find up to date tutorials for that? I've made a few scripts but seem to always spin my wheels when looking for reliable/up to date Net-Hook stuff.

Good Morning All!

There are a couple dozen product types that we have established templates we just File/Save as, import a new stock/part profile, and get to re-chaining.

I am a bit of a hotkey junkie and was wondering if there was a way to hotkey (Geometry -> Chain Manager -> Rechain All) to save a few clicks per operation?

Some of these parts have 1k+ operations so this would be a fairly nice ease of use tweak for me!

Thanks!

We had recently stumbled upon a heck of a time saver.

Some of our programs could take up to an hour to regenerate (roughly 4k operations, so many pecked grooves!  :P).

That time was cut down to a few minutes by editing common parameters, and toggling all of the tool displays to OFF.

Wish we would have found this a few years ago!

This worked great. Thanks for the pointers Roger!

Good Morning,

 

Could you attach your script and a file and I will take a look,

 

Thanks

Sub ImportDXF()

If RingType = 2 then

ShowString("Select DXF File")

Runmastercamcommand "DoPattern"

End if

Call SetLevelVisibleByNumber(1, False)

SelectAll

Call SetEntityLevel(6)

Call RepaintScreen(True)

UnselectAll

End Sub

Good Afternoon All,

When I import a DXF it seems to always import onto layer 7. Standard practice here is to then move the imported geometry into layer 6. I have written a little VB Script that doesn't seem to be working quite right.

It imports, Toggles Layer 1 off (stuff I don't want to move on that layer), and selects all.

From my digging the "Call SetEntityLevel(6)" line should move the stuff to layer 6 but it doesn't seem to be working.

Also, after moving, what do I call to delete/remove layer 7?

Any pointers?

Thanks in advance!

James

Sub ImportDXF() If RingType = 2 then  ShowString("Select DXF File")  Runmastercamcommand "DoPattern" End if  Call SetLevelVisibleByNumber(1, False) SelectAll Call SetEntityLevel(6) Call RepaintScreen(True) UnselectAllEnd Sub

Good Afternoon All,

First time poster here. I am trying to speed up a task that is repeated multiple times a day by using VBS. I've had some luck picking apart the examples and using what I need for some but am not finding much for Creating Ruled/Lofted Surfaces and Creating Curve at Intersection.

So my usual routine is...

1) Create 8 Levels

2) Import Parasolid

3) Save as a MasterCam File

4) Rotate the View

5) Change the WCS

6) Draw a couple lines

7) Create a Ruled/Lofted Surface Between the Lines

8) Create a Curve at the intersection of the Lofted Surface from the model

9) Delete everything but the New Curve

I have 1-6 knocked out but cannot seem to find much on 7-9. Can anyone help me with the last few steps? Or maybe point me in the direction of some more examples I can pick apart?

Thanks!

James

Here is what I have for step 6 that I'd like to make a surface between...

Sub CreateOutline() '//////////////////////////////////////////////////////////////////////////////// 'Create Upper/Lower Lines For Slicing '//////////////////////////////////////////////////////////////////////////////// Dim CLine Dim intRet Set CLine  = New McLn   With CLine  .X1 = 10  .Y1 = -40  .Z1 = 0  .X2 = 10  .Y2 = 40  .Z2 = 0  intRet = CreateLine(CLine, mcCONSTRUCTION_COLOR_CURRENT, 1)  .X1 = -15  .Y1 = -40  .Z1 = 0  .X2 = -15  .Y2 = 40  .Z2 = 0  intRet = CreateLine(CLine, mcCONSTRUCTION_COLOR_CURRENT, 1) End With       	 Set CLine = Nothing Call RepaintScreen(True)End Sub