JSarge81
-
Posts
7 -
Joined
-
Last visited
Content Type
Profiles
Forums
Downloads
Store
eMastercam Wiki
Blogs
Gallery
Events
Posts posted by JSarge81
-
-
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!
- 2
-
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
Hotkey Rechain All?
in Industrial Forum
Posted
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.