!   test_vmat_attr.mac
!
mod_assemb_prep
!
mat_select,'al6061','c410'
!
a=10
!
csys,0
!
k,,0,0
k,,a,0
k,,a,a
k,,0,a
!
create_area
!
ara_create_part,0,90,a/3
ara_create_part,0,90,2*a/3
!
ara_create_part,0,0,a/3
ara_create_part,0,0,2*a/3
!
extrude_aset,a
cm,vset1,volu
vatt,c410
!
vsymm,x,all
init_entity_num
cmsel,u,vset1
vatt,al6061
!
init_entity_num
vdele,1,5,2,1
!
init_entity_num
!
create_cs,0,'CScirc0',0,a/2,a,a/2,0,-90,0
!
equilat_poly,'o',0.75*a/2,3,1,
!


!*go,:skip

!vsel,s,volu,,9
cmsel,s,vset1
vmat_attr
cut_tool,a
!vmat_attr
!


:skip

numbers_toggle,8
toolbar
vplot