Shape Markers

From Macros Wiki
Jump to: navigation, search

!
! create a contour
!

message "This macro will create a simple contour"

! start a new part
! ----------------

new_part "Example.vnc"
set_part_data mdd_name, "VMill3a"            ! 3 axis vertical mill
set_part_data units, 1                                ! inches

dialog "CreateContour.dlg"

! l1 = long length
! l2 = short length
! h1 = long height
! h2 = short height
! r1 = large fillet
! r2 = small fillet

! set the stock size to 25% larger than part all around
! -----------------------------------------------------

set_part_data stock_x1, -l1*0.25
set_part_data stock_y1, -h1*0.25
set_part_data stock_z1, 0
set_part_data stock_x2, l1*1.25
set_part_data stock_y2, h1*1.25
set_part_data stock_z2, 1

set_view top
zoom_view 0  ! unzoom
redraw

contour [
start r1, 0
line l1-r1, 0
arc l1-r1, r1, l1, r1, ccw
line l1, h2-r2
arc l1-r2, h2-r2, l1-r2, h2, ccw
line l2+r2, h2
arc l2+r2, h2+r2, l2, h2+r2, cw
line l2, h1-r2
arc l2-r2, h1-r2, l2-r2, h1, ccw
line r1, h1
arc r1, h1-r1, 0, h1-r1, ccw
line 0, r1
arc r1, r1, r1, 0, ccw
]
ishape = ContourRef

clear_select

circle 0.5, 0.3, 1
ishape = CircleRef

redraw
shrink_wrap
load_process "process1.prc"
select_shape ishape
set_markers 1, 1, 0.4, 1, 0.8, 1