Use Saved Process

From Macros Wiki
Jump to: navigation, search
!    create geometry and machine it using a saved process
 
a1$ = "This macro will create a shape and rotate it."
a2$ = "Then it will use a saved process to machine the part."
a3$ = "It will set the tool side and the start and end markers"
 
message "%a1$\n%a2$\n\n%a3$"
dialog "GeoSavedProcess.dlg"
 
!    a1 = incline angle
!    a2 = included angle
!    ww = width
!    ll = length
!    xs = start point
!    ys = start point
 
degrees  !    switch all trig functions to degrees
 
d2 = (ll * tan(90-a2))
w2= (ww-d2-d2)  !    length of short end of shape
 
new_part "Example.vnc"
set_part_data mdd_name, "VMill3a"  !    3 axis vertical mill
set_part_data units, 1  !    inches
 
!    set the stock size
!    ------------------
 
set_part_data stock_x1, xs-ll
set_part_data stock_y1, ys-ll
set_part_data stock_z1, 0
set_part_data stock_x2, xs+ll
set_part_data stock_y2, ys+ll
set_part_data stock_z2, 1
 
set_view top
zoom_view 0
 
if messages=1 then message "Create contour, without rotation"
 
contour [
start xs, ys
line xs+ll, ys+d2
line xs+ll, ys+d2+w2
line xs, ys+ww
line xs, ys
]
 
iref = ContourRef
 
if messages=1 then message "select contour"
 
clear_select
select_shape iref  !    select the shape
 
if messages=1 then message "Rotate to inclination angle and Shrink Wrap"
 
rotate_geo xs,ys,a1
 
shrink_wrap
redraw
 
if messages=1 then message "Set markers, load process and create ops"
 
set_markers 1, 1, 0.5, 1, 0.5
 
load_process "GeoSavedProcess.prc"
 
calc_process !    do it
 
clear_select !    deselect all
 
if messages=1 then message "Select ISO view"
 
set_view iso
 
if messages=1 then message "Zoom out"
zoom_view 0  !    unzoom
zoom_view 0.8  !    zoom out
redraw
 
if messages=1 then message "Set the stock size"
 
get_part_data stock_x1, x1
get_part_data stock_y1, y1
get_part_data stock_x2, x2
get_part_data stock_y2, y2
 
if messages=1 then message "Current Stock\nXmin=%x1 Ymin=%y1\nXmax=%x2 Ymax=%y2"
 
xx = x2 - x1
yy = y2 - y1
xc = (x1 + x2) / 2
yc = (y1 + y2) / 2
 
!    add 10% to the stock in X and Y
 
x1 = xc - (xx * 0.6)
x2 = xc + (xx * 0.6)
y1 = yc - (yy * 0.6)
y2 = yc + (yy * 0.6)
 
!    set stock Z according to process 1 Z data
 
get_proc_data 1, surf_z, z2
get_proc_data 1, tip_z, z1
 
if messages=0 then goto set_part_data
 
message "Check the Z values from process 1"
 
debug z1
debug z2
 
message "Change the stock size"
 
:set_part_data
 
set_part_data stock_x1, x1
set_part_data stock_x2, x2
set_part_data stock_y1, y1
set_part_data stock_y2, y2
set_part_data stock_z1, z1-0.1
set_part_data stock_z2, z2-0.1
 
redraw
 
if messages=1 then message "Finished"