不好意思 现又重新做了一遍 命令贴上来:
/COM, Magnetic-Edge
!*
/PREP7
!*
ET,1,SOLID117
!*
!*
MPTEMP,,,,,,,,
MPTEMP,1,0
MPDATA,MURX,1,,1.05
MPDATA,MURY,1,,1.05
MPDATA,MURZ,1,,1.05
MPTEMP,,,,,,,,
MPTEMP,1,0
MPDATA,MURX,2,,5000
MPDATA,MURY,2,,5000
MPDATA,MURZ,2,,5000
MPTEMP,,,,,,,,
MPTEMP,1,0
MPDATA,MGXX,1,,
MPDATA,MGYY,1,,10000
MPDATA,MGZZ,1,,
/prep7
BLOCK,0,3,0,1,0,3,
BLOCK,0,3,1,5,0,3,
BLOCK,0,12,5,6,0,3,
BLOCK,9,12,-3,5,0,3,
BLOCK,0,12,-3,-4,0,3,
BLOCK,0,3,0,-3,0,3,
/PNUM,KP,0
/PNUM,LINE,0
/PNUM,AREA,0
/PNUM,VOLU,1
/PNUM,NODE,0
/PNUM,TABN,0
/PNUM,SVAL,0
/NUMBER,0
!*
/PNUM,ELEM,0
/REPLOT
!*
FLST,2,6,6,ORDE,2
FITEM,2,1
FITEM,2,-6
VGLUE,P51X
CM,_Y,VOLU
VSEL, , , , 1
CM,_Y1,VOLU
CMSEL,S,_Y
!*
CMSEL,S,_Y1
VATT, 1, , 1, 0
CMSEL,S,_Y
CMDELE,_Y
CMDELE,_Y1
!*
FLST,5,5,6,ORDE,2
FITEM,5,7
FITEM,5,-11
CM,_Y,VOLU
VSEL, , , ,P51X
CM,_Y1,VOLU
CMSEL,S,_Y
!*
CMSEL,S,_Y1
VATT, 2, , 1, 0
CMSEL,S,_Y
CMDELE,_Y
CMDELE,_Y1
!*
MSHAPE,1,3D
MSHKEY,0
!*
FLST,5,6,6,ORDE,3
FITEM,5,1
FITEM,5,7
FITEM,5,-11
CM,_Y,VOLU
VSEL, , , ,P51X
CM,_Y1,VOLU
CHKMSH,'VOLU'
CMSEL,S,_Y
!*
VMESH,_Y1
!*
CMDELE,_Y
CMDELE,_Y1
CMDELE,_Y2
!*
FINISH
/SOL
MAGSOLV,0,3,0.001, ,25,
FINISH
/POST1
!*
/VSCALE,1,1,0
!
!*
PLVECT,B, , , ,VECT,ELEM,ON,0 |