Inch Metric

!    change current part units from inch to metric
!    or metric to inch, ie swap the current units
a1$ = "This macro will change the units of the current part"
a2$ = "from inch to metric, or metric to inch, scaling the"
a3$ = "geometry and solids accordingly"
message "%a1$\n%a2$\n%a3$"
check part_open, "You must have a part open to run this macro"
get_part_data units, iunits
if iunits=1 then goto inch
yesno "This part is Metric, Do you want to convert it to Inch ?", iyesno, "Inch Metric Macro"
if iyesno=0 then stop "Finished - no action taken"
!    convert from metric to inch
!    ---------------------------
scale = 1/25.4
iunits= 1
goto scale
!    convert from inch to metric
!    ---------------------------
:inch
scale = 25.4
iunits= 0
:scale
set_part_data units, iunits	!    change the part units
!    any solids will have been scaled by changing the
!    part units, now scale the geometry
select_all_geo
scale_geo scale
yesno "Scale the stock ?", iyesno, "Inch Metric Macro"
if iyesno=0 then redraw
if iyesno=0 then stop "Finished - stock size not changed"
!    get the current stock
!    ---------------------
get_part_data stock_x1, x1
get_part_data stock_y1, y1
get_part_data stock_z1, z1
get_part_data stock_x2, x2
get_part_data stock_y2, y2
get_part_data stock_z2, z2
!get_part_data stock_z1, z1	!    you would use these variables
!get_part_data stock_z2, z2	!    for a turned part
!get_part_data stock_rad, rr
!    change the current stock
!    ------------------------
set_part_data stock_x1, x1*scale
set_part_data stock_y1, y1*scale
set_part_data stock_z1, z1*scale
set_part_data stock_x2, x2*scale
set_part_data stock_y2, y2*scale
set_part_data stock_z2, z2*scale
!   get_part_data stock_z1, z1	!    you would use these variables
!   get_part_data stock_z2, z2	!    for a turned part
!   get_part_data stock_rad, rr
zoom_view 0
message "Finished"