I created a sector model, is there a command to make this a full 360 model?


There is no command to do this automatically, however one could write a macro to perform this operation. The macro below, "SCOPY.MAC", is an undocumented and unsupported macro which will copy a meshed sector of any element type to make a full 360 model, including the merging of nodes. Below SCOPY.MAC is an example with solids, shells, and beams which can be used to demonstrate the macro.

!****** Start of SCOPY.MAC ******

/com,Macro scopy.mac to copy a meshed sector to make full 360 model
/com,As always check the results of macro before proceeding.
/com,Macro assumes mesh is identical at sector edges, use line sizing or cyclic symm commands
/com,User must recreate any CEs between mismatched DOF elememts, ie: shell-solid interface
*ask,SECTORANGLE,Angle of sector to be copied,0
NCOPY=360/SECTORANGLE !number of copies

!--------------------------------------------------------------------
!Determine what types of elements are in model
!--------------------------------------------------------------------

*ask,ANYBEAMS,1=Yes 2=No - Are beams in this sector to be copied?,2
*ask,ANYSHELLS,1=Yes 2=No - Are shells in this sector to be copied?,2
*ask,ANYSOLIDS,1=Yes 2=No - Are solids in this sector to be copied?,2

!--------------------------------------------------------------------
!Copy solids
!--------------------------------------------------------------------

*if,ANYSOLIDS,eq,1,then
vsel,s,volu,,all
eslv !select elements attached to volumes
csys,1
vgen,NCOPY,ALL,,,,SECTORANGLE
nummrg,node !tolerances subject to model dimensions
eplo
alls
*endif

!--------------------------------------------------------------------
!Copy shells
!--------------------------------------------------------------------

*if,ANYSHELLS,eq,1,then
aslv,u !unselect areas contained in volumes
csys,1
agen,NCOPY,ALL,,,,SECTORANGLE
!eplo
nummrg,node !tolerances subject to model dimensions
eplo
alls
*endif

!--------------------------------------------------------------------
!Copy beams
!--------------------------------------------------------------------

*if,ANYBEAMS,eq,1,then
lsla,u !unselect lines contained in areas
csys,1
lgen,NCOPY,ALL,,,,SECTORANGLE
nummrg,node !tolerances subject to model dimensions
eplo
alls
*endif



!****** End of SCOPY.MAC ******


!****** Test case for scopy.mac ******

fini
/clear
/VIEW,1,1,1,1

/prep7
et,1,187
et,2,200,5 !for edges of sector

cyl4,0,0,5,0,10,15,5 !0-15 degree sector
cyl4,0,0,5,15,10,30,5 !15-30 degree sector

type,2
csys,1
asel,s,area,,5,6,1
asel,a,area,,12
lesize,all,,,5
amesh,all
type,1
vmesh,all

alls

et,3,63
k,,15,15,0
k,,15,15,5
a,kp(10,15,0),kp(15,15,0),kp(15,15,5),kp(10,15,5)
type,3
*get,amax,area,0,num,max !get highest defined area
amesh,amax

alls

et,4,4
type,4
k,,15,20,0
k,,15,10,5
l,kp(15,15,0),kp(15,20,0)
*get,lmax,line,0,num,max
lmesh,lmax
l,kp(15,15,5),kp(15,10,5)
*get,lmax,line,0,num,max
lmesh,lmax
alls

!Now use SCOPY for 30-degree sector





Show Form
No comments yet. Be the first to add a comment!