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 |
||
|