rodge ,我的例子的命令流如下,你告诉我怎么让材料循环计算吧:
/PREP7
!*
ET,1,SOLID95
!*
*dim,maxsx,array,27,2
K, ,0,0,5.52,
K, ,4.5,0,5.52,
K, ,4.5,10,5.52,
K, ,0,10,5.52,
K, ,0,0,5.45,
K, ,4.5,0,5.45,
K, ,4.5,10,5.45,
K, ,0,10,5.45,
LSTR,1,2
LSTR,2,3
LSTR,3,4
LSTR,1,4
LSTR,5,6
LSTR,6,7
LSTR,7,8
LSTR,5,8
LSTR,1,5
LSTR,2,6
LSTR,3,7
LSTR,4,8
AL,1,2,3,4
AL,5,6,7,8
AL,1,5,9,10
AL,3,7,11,12
AL,2,6,10,11
AL,4,8,9,12
FLST,2,1,8
FITEM,2,2.25,5,5.52
WPAVE,P51X
PCIRC,0.15,0,0,360,
RECTNG,-0.18,0.18,-0.18,2,
CSYS,0
WPAVE,0,0,0
CSYS,0
!*
FLST,2,2,5,ORDE,2
FITEM,2,1
FITEM,2,8
AOVLAP,P51X
FLST,2,2,5,ORDE,2
FITEM,2,7
FITEM,2,-8
AOVLAP,P51X
FLST,2,8,5,ORDE,3
FITEM,2,1
FITEM,2,-7
FITEM,2,9
VA,P51X
BLOCK,0,5,0,10,5.15,5.45,
BLOCK,0,5,0,10,5,5.15,
BLOCK,0,6.8,0,10,0,5,
FLST,2,4,6,ORDE,2
FITEM,2,1
FITEM,2,-4
VGLUE,P51X
MPTEMP,,,,,,,,
MPTEMP,1,0
MPDATA,EX,1,,40E6
MPDATA,PRXY,1,,0.35
MPTEMP,,,,,,,,
MPTEMP,1,0
MPDATA,EX,2,,200E6
MPDATA,PRXY,2,,0.25
MPTEMP,,,,,,,,
MPTEMP,1,0
MPDATA,EX,3,,1300E6
MPDATA,PRXY,3,,0.25
MPTEMP,,,,,,,,
MPTEMP,1,0
MPDATA,EX,4,,1200E6
MPDATA,PRXY,4,,0.25
TYPE, 1
MAT, 1
REAL,
ESYS, 0
SECNUM,
!*
MSHAPE,1,3D
MSHKEY,0
!*
CM,_Y,VOLU
VSEL, , , , 7
CM,_Y1,VOLU
CHKMSH,'VOLU'
CMSEL,S,_Y
!*
VMESH,_Y1
!*
CMDELE,_Y
CMDELE,_Y1
CMDELE,_Y2
!*
TYPE, 1
MAT, 2
REAL,
ESYS, 0
SECNUM,
!*
VPLOT
CM,_Y,VOLU
VSEL, , , , 5
CM,_Y1,VOLU
CHKMSH,'VOLU'
CMSEL,S,_Y
!*
VMESH,_Y1
!*
CMDELE,_Y
CMDELE,_Y1
CMDELE,_Y2
!*
VPLOT
TYPE, 1
MAT, 3
REAL,
ESYS, 0
SECNUM,
!*
CM,_Y,VOLU
VSEL, , , , 6
CM,_Y1,VOLU
CHKMSH,'VOLU'
CMSEL,S,_Y
!*
VMESH,_Y1
!*
CMDELE,_Y
CMDELE,_Y1
CMDELE,_Y2
!*
VPLOT
TYPE, 1
MAT, 4
REAL,
ESYS, 0
SECNUM,
!*
CM,_Y,VOLU
VSEL, , , , 1
CM,_Y1,VOLU
CHKMSH,'VOLU'
CMSEL,S,_Y
!*
VMESH,_Y1
!*
CMDELE,_Y
CMDELE,_Y1
CMDELE,_Y2
!*
FINISH
/SOL
FLST,2,1,5,ORDE,1
FITEM,2,21
!*
/GO
DA,P51X,ALL,
FLST,2,1,5,ORDE,1
FITEM,2,7
/GO
!*
SFA,P51X,1,PRES,0.7E6
SFGRAD,PRES, ,Z, , ,
/STATUS,SOLU
SOLVE
ASEL,S, , , 2
NSLA,S,1
!
FINISH
/POST1
!*
NSORT,S,X,0,0, ,0
!
*get,maxsx(1,1),sort,0,min
其中,材料1,2,3,4的模量同时循环套嵌,而不用重新划分网格该怎么办啊?写个命令流出来吧
还有我划分网格时提示的警告该怎么处理啊? 谢谢 |