mod_assemb_prep
!
csys,0
!
k,,0,0
k,,10,0
k,,10,10
k,,0,10
!
create_area
!
local,11,1,5,5,0
!
*do,i,0,270,90
    k,,3,i,0
*enddo
!
create_lines,1
!
lsel,s,line,,lm-3,lm,1
cm,lset1,line
!
init_entity_num
!
asbl,am,lset1,,delete,keep
!
lplot