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!

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