因为这个模型很有规律,可以先对一个面进行划分,我是先将面分为12分,将有缺口的一个面再分为5个面,其它2个面,对面分网可要记住对齐啊!然后沿弧线进行拉伸一段,再在圆柱坐标系下进行copy即可。命令流仅供参考!!!
/PREP7
ET,1,SHELL63
ET,2,SOLID45
R,1,0.001, , , , , ,
RMORE, , , ,
RMORE
RMORE, ,
MPTEMP,,,,,,,,
MPTEMP,1,0
MPDATA,EX,1,,207e6
MPDATA,PRXY,1,,0.3
PCIRC,0.4,1,-15,15,
RECTNG,0,0.6,-0.05,0.05,
PCIRC,0.4,1,165,195,
asba,1,2
LPLOT
K, ,0.6,0.5,,
K, ,0.6,-0.5,,
K, ,1.5,0.05,,
K, ,1.5,-0.05,,
K, ,-0.6,1,,
K, ,-0.6,-1,,
LSTR, 17, 18
LSTR, 5, 8
LSTR, 7, 15
LSTR, 6, 16
GPLOT
ASBL, 3, 3
FLST,3,3,4,ORDE,3
FITEM,3,5
FITEM,3,7
FITEM,3,-8
ASBL, 4,P51X
FLST,5,2,4,ORDE,2
FITEM,5,6
FITEM,5,12
CM,_Y,LINE
LSEL, , , ,P51X
CM,_Y1,LINE
CMSEL,,_Y
!*
LESIZE,_Y1, , ,3, , , , ,1
!*
FLST,5,4,4,ORDE,4
FITEM,5,3
FITEM,5,10
FITEM,5,27
FITEM,5,29
CM,_Y,LINE
LSEL, , , ,P51X
CM,_Y1,LINE
CMSEL,,_Y
!*
LESIZE,_Y1, , ,8, , , , ,1
!*
FLST,5,6,4,ORDE,6
FITEM,5,13
FITEM,5,-14
FITEM,5,23
FITEM,5,25
FITEM,5,-26
FITEM,5,28
CM,_Y,LINE
LSEL, , , ,P51X
CM,_Y1,LINE
CMSEL,,_Y
!*
LESIZE,_Y1, , ,6, , , , ,1
!*
FLST,5,4,4,ORDE,4
FITEM,5,15
FITEM,5,-16
FITEM,5,22
FITEM,5,24
CM,_Y,LINE
LSEL, , , ,P51X
CM,_Y1,LINE
CMSEL,,_Y
!*
LESIZE,_Y1, , ,6, , , , ,1
!*
FLST,5,7,5,ORDE,4
FITEM,5,1
FITEM,5,-3
FITEM,5,5
FITEM,5,-8
CM,_Y,AREA
ASEL, , , ,P51X
CM,_Y1,AREA
CHKMSH,'AREA'
CMSEL,S,_Y
!*
MSHKEY,1
AMESH,_Y1
MSHKEY,0
!*
CMDELE,_Y
CMDELE,_Y1
CMDELE,_Y2
FLST,2,2,5,ORDE,2
FITEM,2,1
FITEM,2,-2
ACLEAR,P51X
APLOT
FLST,5,3,4,ORDE,3
FITEM,5,9
FITEM,5,11
FITEM,5,19
CM,_Y,LINE
LSEL, , , ,P51X
CM,_Y1,LINE
CMSEL,,_Y
!*
LESIZE,_Y1, , ,15, , , , ,1
!*
FLST,5,2,4,ORDE,2
FITEM,5,17
FITEM,5,-18
CM,_Y,LINE
LSEL, , , ,P51X
CM,_Y1,LINE
CMSEL,,_Y
!*
LESIZE,_Y1, , ,8, , , , ,1
!*
FLST,5,2,4,ORDE,2
FITEM,5,20
FITEM,5,-21
CM,_Y,LINE
LSEL, , , ,P51X
CM,_Y1,LINE
CMSEL,,_Y
!*
LESIZE,_Y1, , ,6, , , , ,1
!*
FLST,5,2,5,ORDE,2
FITEM,5,1
FITEM,5,-2
CM,_Y,AREA
ASEL, , , ,P51X
CM,_Y1,AREA
CHKMSH,'AREA'
CMSEL,S,_Y
!*
MSHKEY,1
AMESH,_Y1
MSHKEY,0
!*
CMDELE,_Y
CMDELE,_Y1
CMDELE,_Y2
!*
EPLOT
nummrg,kp
nummrg,node
CSYS,1
FLST,3,2,5,ORDE,2
FITEM,3,1
FITEM,3,-2
AGEN,6,P51X, , , ,30, , ,0
FLST,3,2,5,ORDE,2
FITEM,3,1
FITEM,3,-2
AGEN,6,P51X, , , ,-30, , ,0
numcmp,kp
numcmp,node
LPLOT
K, ,1,0,,
K, ,1,30,0.2,
L, 79, 80
LPLOT
nummrg,kp
numcmp,kp
numcmp,node
nummrg,node
nummrg,node
nummrg,kp
nummrg,node
NPLOT
KPLOT
LPLOT
TYPE, 2
EXTOPT,ESIZE,0,0,
EXTOPT,ACLEAR,0
!*
EXTOPT,ATTR,0,0,0
MAT,1
REAL,1
ESYS,0
!*
esize,,4
FLST,2,27,5,ORDE,2
FITEM,2,1
FITEM,2,-27
VDRAG,P51X, , , , , , 94
nummrg,kp
nummrg,node
EPLOT
VPLOT
FLST,3,27,6,ORDE,2
FITEM,3,1
FITEM,3,-27
VGEN,12,P51X, , , ,30,0.2, ,0
EPLOT
FINISH
! /EXIT,NOSAV |