Use Saved Process

!    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"