Beispielskripten

MOP Automate VB and Python scripts

This script will automate the process of opening a source file, insert machining operations, set various properties and produce g-code.

These scripts demonstrate:

• opening a CAD file (.dxf in this example)
• drawing some extra shapes into the drawing
• setting machining options
• Call asynchronous CAD functions such as
• Edit -> Join and Edit -> Convert to polyline
• creating a machining operation from objects in a drawing layer
• setting machining operation properties
• saving a drawing and creating g-code

Python version:

# # mop-automate.py # from CamBam.CAM import * from CamBam.UI import CamBamUI from CamBam.Values import * # TO CHANGE... source_file = "C:\\CamBam\\cbfiles\\aluskids.dxf" out_filename = "C:\\dump\\test.cb" # Open a source file # note: the second parameter '1' opens the file synchronously rather than in a worker thread CamBamUI.MainUI.OpenFile(source_file,1) # The 'doc' global variable is always the CADFile before any file opens, # so we create a new varialbe pointing to the newly opened active file... newdoc = CamBamUI.MainUI.ActiveView.CADFile # draw some shapes... poly=Polyline() poly.Add(8,5,0) poly.Add(22,5,0) poly.Add(25,15,0) poly.Add(15,25,0) poly.Add(5,15,0) poly.Closed=1 newdoc.Add(poly) circle=Circle() circle.Center=Point3F(-30,15,0) circle.Diameter=15 newdoc.Add(circle) # set any machining options required... newdoc.MachiningOptions.PostProcessor = "Mach3-CutViewer" newdoc.MachiningOptions.FastPlungeHeight = 0.1 # Select All... CamBamUI.MainUI.ActiveView.SelectAllVisibleGeometry() # Convert to polylines... PolylineUtils.PolyLinesConvert(CamBamUI.MainUI.ActiveView) # The gui operation runs in a worker process, so wait for the # thinking message to disapear... while CamBamUI.MainUI.ActiveView.CurrentEditMode is not None: app.Sleep(1) # Edit - Join PolylineUtils.JoinPolyLines(CamBamUI.MainUI.ActiveView,0.001) # wait for the thinking message to disapear... while CamBamUI.MainUI.ActiveView.CurrentEditMode is not None: app.Sleep(1) # create a profile mop # Use all the drawing objects from the first layer... profile=MOPProfile(newdoc,newdoc.Layers[0].Entities.ToArray()) # Use all the drawing objects from the last layer... # profile=MOPProfile(newdoc,newdoc.Layers[newdoc.Layers.Count-1].Entities.ToArray()) # Use all the drawing objects from a layer with a specific name... # profile=MOPProfile(newdoc,newdoc.Layers["LAYER_03"].Entities.ToArray()) # Set the profile style property... profile.Style="cutout" # Other properties are based on the generic CBValue class # Some examples of how these properties should be set... profile.ToolDiameter = CBValue[float](0.8) profile.InsideOutside = CBValue[InsideOutsideOptions](InsideOutsideOptions.Inside) # add the machine op to the drawing... CamBamUI.MainUI.InsertMOP(profile) # save the current drawing... newdoc.Save(out_filename) # create g-code output CAMUtils.GenerateGCodeOutput(view)

VB-Script Version:

' ' mop-automate.vbs ' sub main

' TO CHANGE... dim source_file = "C:\CamBam\cbfiles\aluskids.dxf" dim out_filename = "C:\dump\test.cb"

' Open a source file ' note: the second parameter '1' opens the file synchronously rather than in a worker thread CamBamUI.MainUI.OpenFile(source_file,1)

' The 'doc' global variable is always the CADFile before any file opens, ' so we create a new varialbe pointing to the newly opened active file... dim newdoc = CamBamUI.MainUI.ActiveView.CADFile

' draw some shapes... dim poly = new Polyline() poly.Add(8,5,0) poly.Add(22,5,0) poly.Add(25,15,0) poly.Add(15,25,0) poly.Add(5,15,0) poly.Closed=True newdoc.Add(poly)

dim circle = new Circle() circle.Center = new Point3F(-30,15,0) circle.Diameter=15 newdoc.Add(circle)

' set any machining options required... newdoc.MachiningOptions.PostProcessor = "Mach3-CutViewer" newdoc.MachiningOptions.FastPlungeHeight = 0.1

' Select All... CamBamUI.MainUI.ActiveView.SelectAllVisibleGeometry()

' Convert to polylines... PolylineUtils.PolyLinesConvert(CamBamUI.MainUI.ActiveView) ' The gui operation runs in a worker process, so wait for the ' thinking message to disapear... while not CamBamUI.MainUI.ActiveView.CurrentEditMode is nothing app.Sleep(1) end while

' Edit - Join PolylineUtils.JoinPolyLines(CamBamUI.MainUI.ActiveView,0.001) ' wait for the thinking message to disapear... while not CamBamUI.MainUI.ActiveView.CurrentEditMode is nothing app.Sleep(1) end while

' create a profile mop ' Use all the drawing objects from the first layer... ' dim profile = new CamBam.CAM.MOPProfile(newdoc,newdoc.Layers(0).Entities.ToArray()) ' Use all the drawing objects from the last layer... ' dim profile = new CamBam.CAM.MOPProfile(newdoc,newdoc.Layers(newdoc.Layers.Count-1).Entities.ToArray()) ' Use all the drawing objects from a layer with a specific name... dim profile = new CamBam.CAM.MOPProfile(newdoc,newdoc.Layers("LAYER_03").Entities.ToArray())

' Set the profile style property... profile.Style = "cutout"

' Other properties are based on the generic CBValue class ' Some examples of how these properties should be set... ' Note: CBValue(of type) syntax not working in current release ' as extra .dlls need to be referenced in the VB script host. ' user alternative syntax...

dim td = profile.ToolDiameter td.SetValue(0.8) profile.ToolDiameter = td

dim io = profile.InsideOutside io.SetValue(CamBam.CAM.InsideOutsideOptions.Inside) profile.InsideOutside = io

' add the machine op to the drawing... CamBamUI.MainUI.InsertMOP(profile)

' save the current drawing... newdoc.Save(out_filename)

' create g-code output CamBam.CAM.CAMUtils.GenerateGCodeOutput(view)

end sub