Search the Community
Showing results for tags 'Ruled/Lofted'.
Good Morning All, I have recently been working on automating some rather repetitive steps that we take between NX and MasterCAM. I have the NX part complete but seem to be having a hard time finding much research material online for Mastercam VB Scripting. In UG I could record a macro in VB and learn and tweak from that but I am having a hard time figuring out a good way do do something similar in Mastercam. I have scavenged through the example VBS files and managed to pick out a little of what I needed but it is minimal. The steps I am needing to take are... 1) Draw 2 lines outside of the part. 2) Create a Ruled/Lofted Surface between these two lines. 3) Create Curve at Intersection a) Selecting a Parasolid that is already open. Using the Created Ruled/Lofted Surface as Intersection of Parasolid. Can you please point me to a good resource or example for these steps that I can pick apart a bit? Thanks all! James Here is what I have so far, it isn't much yet... Public Const PlaneLevel = 2 Call Main() Sub Main() Call ResetAll Call CreateOutline Call RepaintScreen(True) End Sub Sub ResetAll() Call RepaintScreen(True) Call ClearPromptLines End Sub Sub CreateOutline Dim CLine Dim intRet Set CLine = New McLn With CLine .X1 = -20 .Y1 = -30 .Z1 = 0 .X2 = -20 .Y2 = 50 .Z2 = 0 intRet = CreateLine(CLine, mcCONSTRUCTION_COLOR_CURRENT, PlaneLevel) .X1 = 20 .Y1 = -30 .Z1 = 0 .X2 = 20 .Y2 = 50 .Z2 = 0 intRet = CreateLine(CLine, mcCONSTRUCTION_COLOR_CURRENT, PlaneLevel) End With Set CLine = Nothing End Sub