请大神看看我写的命令流错在哪了

zjx7759431

/FILNAME,DESIGH
/TITLE,BEAM
N=75
DX=75/N
/PREP7
ET,1,SHELL63
MP,EX,1,34.5E9
MP,PRXY,1,0.1667
MP,DENS,1,2600
R,1001,0.3,0.3,0.3,0.3
R,1002,0.5,0.5,0.5,0.5
*DO,I,1,N
X1=(I-1)*DX
X2=I*DX
Y1=-11/11250*((I-1)*DX-75)*2-2.5
Y2=-11/11250*(I*DX-75)*2-2.5
D1=-3/500*((I-1)*DX-75)+0.35
D2=-3/500*(I*DX-75)+0.35
R,I,D1,D1,D2,D2
K,1+(I-1)*12,X1,Y1,-3.5
K,2+(I-1)*12,X2,Y2,-3.5
K,3+(I-1)*12,X2,0,-3.5
K,4+(I-1)*12,X1,0,-3.5
A,1+(I-1)*12,2+(I-1)*12,3+(I-1)*12,4+(I-1)*12
K,5+(I-1)*12,X1,Y1,3.5
K,6+(I-1)*12,X2,Y2,3.5
K,7+(I-1)*12,X2,0,3.5
K,8+(I-1)*12,X1,0,3.5
A,5+(I-1)*12,6+(I-1)*12,7+(I-1)*12,8+(I-1)*12
A,1+(I-1)*12,5+(I-1)*12,6+(I-1)*12,2+(I-1)*12
K,9+(I-1)*12,X1,0,-6
K,10+(I-1)*12,X1,0,6
K,11+(I-1)*12,X2,0,6
K,12+(I-1)*12,X2,0,-6
A,9+(I-1)*12,10+(I-1)*12,11+(I-1)*12,12+(I-1)*12
FLST,3,2,4,ORDE,2
FITEM,3,3+(I-1)*18
FITEM,3,7+(I-1)*18
ASBL,4+(I-1)*6,P51X
LESIZE,15+(I-1)*18,,,6
LESIZE,16+(I-1)*18,,,6
LESIZE,9+(I-1)*18,,,6
LESIZE,10+(I-1)*18,,,6
LESIZE,2+(I-1)*18,,,8
LESIZE,4+(I-1)*18,,,8
LESIZE,6+(I-1)*18,,,8
LESIZE,8+(I-1)*18,,,8
LESIZE,1+(I-1)*18,,,1
LESIZE,3+(I-1)*18,,,1
LESIZE,5+(I-1)*18,,,1
LESIZE,7+(I-1)*18,,,1
LESIZE,12+(I-1)*18,,,1
LESIZE,14+(I-1)*18,,,1
LESIZE,17+(I-1)*18,,,2
LESIZE,18+(I-1)*18,,,2
LESIZE,19+(I-1)*18,,,2
LESIZE,20+(I-1)*18,,,2
REAL,1001
AMESH,5+(I-1)*6
AMESH,6+(I-1)*6
AMESH,7+(I-1)*6
REAL,1002
AMESH,1+(I-1)*6
AMESH,2+(I-1)*6
REAL,I
AMESH,3+(I-1)*6
NUMCMP,KP
NUMCMP,AREA
NUMCMP,LINE
*ENDDO
/ESHAPE,1.0
NUMMRG,ALL
FINISH
/SOLU
NSEL,S,LOC,X,0
D,ALL,ALL
ALLSEL
NSEL,S,LOC,X,75
NSEL,R,LOC,Y,-3.5,3.5
*GET,NODE,NODE,O,COUNT
F,ALL,FY,-4E6/NODE
ACEL,,9.8
ALLSEL
SOLVE
FINISH
/POST1
PLNSOL,S,EQV
ASEL,S,LOC,Y,0
ASEL,R,LOC,Z,0
ESLA,S
EPLOT
PLNSOL,S,EQV
ALLSEL
ASEL,S,LOC,Z,0
ASEL,U,LOC,Y,0
ESLA,S
EPLOT
PLNSOL,S,EQV
ALLSEL
ASEL,U,LOC,Z,0
ASEL,U,LOC,Y,0
ASEL,R,LOC,Z,3.5
ESLA,S
EPLOT
PLNSOL,S,EQV
ALLSEL
/DEVICE,VECTOR,1
/CLABEL,1,20
/COLOR,SMIN,WHIT
/COLOR,CNTR,WHIT,1
/COLOR,CNTR,WHIT,2
/COLOR,CNTR,WHIT,3
/COLOR,CNTR,WHIT,4
/COLOR,CNTR,WHIT,5
/COLOR,CNTR,WHIT,6
/COLOR,CNTR,WHIT,7
/COLOR,CNTR,WHIT,8
/COLOR,CNTR,WHIT,9
/COLOR,SMAX,WHIT
ASEL,S,LOC,Z,0
ASEL,U,LOC,Y,0
ESLA,S
EPLOT
PLNSOL,S,EQV
ALLSEL
ASEL,U,LOC,Z,0
ASEL,U,LOC,Y,0
ASEL,R,LOC,Z,3.5
ESLA,S
EPLOT
PLNSOL,S,EQV
/CLABEL,1,60
/REPLOT
FINISH用这个命令流做出来的是等截面模型而不是变截面模型，请问我错在哪了？

senja

建议楼主把出现的问题或者疑问描述清楚，再加上命令这样就很好

zjx7759431

senja 发表于 2013-4-22 13:01
建议楼主把出现的问题或者疑问描述清楚，再加上命令这样就很好

修改了，请版主赐教