回帖说得不是很清楚,我又看了看帮助,做了个简单的例子。300长悬臂梁,弹性分析,目的查看长度100截面处的应力分布SZ,命令流如下:
!*
/PREP7
!定义属性,建模
ET,1,SOLID185
!*
MPTEMP,,,,,,,,
MPTEMP,1,0
MPDATA,EX,1,,206000
MPDATA,PRXY,1,,0.3
BLOCK,0,40,0,40,0,300,
!划分网格
FLST,5,12,4,ORDE,2
FITEM,5,1
FITEM,5,-12
CM,_Y,LINE
LSEL, , , ,P51X
CM,_Y1,LINE
CMSEL,,_Y
!*
LESIZE,_Y1,20, , , , , , ,1
!*
MSHAPE,0,3D
MSHKEY,1
!*
CM,_Y,VOLU
VSEL, , , , 1
CM,_Y1,VOLU
CHKMSH,'VOLU'
CMSEL,S,_Y
!*
VMESH,_Y1
!*
CMDELE,_Y
CMDELE,_Y1
CMDELE,_Y2
!*
/UI,MESH,OFF
/VIEW, 1 ,-1
/ANG, 1
/REP,FAST
FINISH
!施加约束,荷载,并计算结果
/SOLU
FLST,2,9,1,ORDE,2
FITEM,2,1
FITEM,2,-9
!*
/GO
D,P51X, , , , , ,ALL, , , , ,
FLST,2,3,1,ORDE,3
FITEM,2,13
FITEM,2,15
FITEM,2,-16
!*
/GO
F,P51X,FY,-3000
/STATUS,SOLU
SOLVE
FINISH
! 后处理
! 首先将工作平面移至节点28,坐标(0,0,100)
/POST1
NSEL,S,LOC,X,0
NSEL,R,LOC,Y,0
NPLOT
NSEL,R,LOC,Y,0
NWPAVE, 28
/GRAPHICS,POWER
!*
! 定义显示选项
/TYPE,1,1
/CPLANE,1
/SHADE,1,1
/REPLOT
!*
/EFACE,1
AVPRIN,0, ,
!*
PLNSOL,S,Z,0,1
/VIEW, 1 ,1,1,1
/ANG, 1
/REP,FAST
!* |