$
$****************************************       begin
$
&device -pri device 
inmodel
$
$****************************************       pictures
$
&title Plate with Hole
&selec :p -sel *hp@ *ep@ **R@
&pict top -type struct -poin :p -ano points
$
$****************************************       summary
$
&summ
    plate
    cat
end
$
$****************************************       refine ext edge
$
medit
    refine 5   edge *ep3 *ep4
end
$
$****************************************       pictures
$
&subtitle external Edge Refined
&pict top -type struct -poin :p -ano points
$
$****************************************       summary
$
&summ
    point  coor
    plate
end
$
$****************************************       refine ele 
$
medit
    refine 5   ele  qhole
end
$
$****************************************       pictures
$
&subtitle All Edges Refined
&pict top -type struct -poin :p -ano points
$
$****************************************       summary
$
&summ
    point  coor
    plate
end
$
$****************************************       all done 
$
&fini