可以参考一下下面的这个,它是划球的,道理和你划柱一样。
/prep7
ET,1,SOLID95 ! 20 节点六面体单元
BLC4, , ,6,1,.03
BLC4, , ,9,3,3 ! 又试了一下,此处将最后的 3 改为 0.6,炸药部分只分为 4 层,可能更好一点
!*
FLST,2,2,6,ORDE,2
FITEM,2,1
FITEM,2,-2
VOVLAP,P51X
!*
FLST,2,4,3
FITEM,2,14
FITEM,2,15
FITEM,2,7
FITEM,2,6
A,P51X
!*
FLST,2,4,3
FITEM,2,15
FITEM,2,16
FITEM,2,8
FITEM,2,7
A,P51X
!*
FLST,3,2,5,ORDE,2
FITEM,3,7
FITEM,3,9
VSBA, 3,P51X
!*
numcmp,all
!*
FLST,2,4,3
FITEM,2,10
FITEM,2,14
FITEM,2,7
FITEM,2,3
A,P51X
VSBA, 3, 17
!*
numcmp,all
!*
k,,18
k,,,18
!*
arc,16,17,1,18
!*
FLST,2,3,3
FITEM,2,2
FITEM,2,16
FITEM,2,17
A,P51X
!*
FLST,2,1,5,ORDE,1
FITEM,2,19
FLST,8,2,3
FITEM,8,2
FITEM,8,17
VROTAT,P51X, , , , , ,P51X, ,-90, ,
!*
VOVLAP,all
!*
numcmp,all
!*
LEXTND,28,10,18,1
!*
LEXTND,13,14,18,1
!*
LEXTND,16,13,18,1
!*
LEXTND,21,15,18,1
!*
FLST,2,4,3
FITEM,2,19
FITEM,2,10
FITEM,2,14
FITEM,2,20
A,P51X
!*
FLST,2,4,3
FITEM,2,20
FITEM,2,14
FITEM,2,13
FITEM,2,21
A,P51X
!*
FLST,2,4,3
FITEM,2,15
FITEM,2,14
FITEM,2,20
FITEM,2,22
A,P51X
!*
FLST,3,3,5,ORDE,2
FITEM,3,23
FITEM,3,-25
VSBA, 5,P51X
!*
FLST,2,4,4,ORDE,2
FITEM,2,35
FITEM,2,-38
LDELE,P51X, , ,1
!*
numcmp,all
!*
FLST,5,9,4,ORDE,6
FITEM,5,33
FITEM,5,35
FITEM,5,37
FITEM,5,-38
FITEM,5,40
FITEM,5,-44
CM,_Y,LINE
LSEL, , , ,P51X
CM,_Y1,LINE
CMSEL,,_Y
!*
LESIZE,_Y1,1.2, , , , , , ,1
!*
FLST,5,7,4,ORDE,5
FITEM,5,29
FITEM,5,-32
FITEM,5,34
FITEM,5,36
FITEM,5,39
CM,_Y,LINE
LSEL, , , ,P51X
CM,_Y1,LINE
CMSEL,,_Y
!*
LESIZE,_Y1,0.8, , ,3, , , ,1
FLST,5,8,4,ORDE,7
FITEM,5,12
FITEM,5,14
FITEM,5,-15
FITEM,5,18
FITEM,5,-19
FITEM,5,22
FITEM,5,-24
CM,_Y,LINE
LSEL, , , ,P51X
CM,_Y1,LINE
CMSEL,,_Y
!*
LESIZE,_Y1,0.6, , ,1, , , ,1
!*
FLST,5,1,4,ORDE,1
FITEM,5,17
CM,_Y,LINE
LSEL, , , ,P51X
CM,_Y1,LINE
CMSEL,,_Y
!*
LESIZE,_Y1,0.6, , ,1, , , ,1
!*
FLST,5,8,4,ORDE,2
FITEM,5,1
FITEM,5,-8
CM,_Y,LINE
LSEL, , , ,P51X
CM,_Y1,LINE
CMSEL,,_Y
!*
LESIZE,_Y1,0.4, , ,1, , , ,1
!*
FLST,5,6,4,ORDE,6
FITEM,5,13
FITEM,5,16
FITEM,5,21
FITEM,5,25
FITEM,5,-26
FITEM,5,28
CM,_Y,LINE
LSEL, , , ,P51X
CM,_Y1,LINE
CMSEL,,_Y
!*
LESIZE,_Y1,0.3, , ,2, , , ,1
!*
FLST,5,4,4,ORDE,2
FITEM,5,9
FITEM,5,-12
CM,_Y,LINE
LSEL, , , ,P51X
CM,_Y1,LINE
CMSEL,,_Y
!*
LESIZE,_Y1, , ,3, , , , ,1
!*
FLST,5,7,6,ORDE,2
FITEM,5,1
FITEM,5,-7
CM,_Y,VOLU
VSEL, , , ,P51X
CM,_Y1,VOLU
CHKMSH,'VOLU'
CMSEL,S,_Y
!*
MSHAPE,0,3d
MSHKEY,1
VMESH,_Y1
MSHKEY,0
!*
CMDELE,_Y
CMDELE,_Y1
CMDELE,_Y2
!*
FLST,3,7,6,ORDE,2
FITEM,3,1
FITEM,3,-7
FLST,3,7,6,ORDE,2
FITEM,3,1
FITEM,3,-7
VSYMM,X,P51X, , , ,0,0
!*
GPLOT
!*
NUMMRG,NODE,0.0001,0.0001, ,LOW
NUMMRG,KP,0.0001,0.0001, ,LOW
WPSTYLE,,,,,,,,0
EPLOT
(以上命令流系转贴) |