我也试了11楼的方法,得不到图片啊。
/PREP7
N, 1, 0, 0
N, 2, 2, 0
N, 3, 4, 0
N, 4, 6, 0
N, 5, 8, 0
N, 6, 2, 1
N, 7, 4, 2
N, 8, 6, 1
! (3) 在前处理模块中, 定义单元类型LINK1, 材料参数和各个单元
ET, 1, LINK1
MP, EX, 1, 207E9
R, 1, 0.01
E, 1, 2
E, 2, 3
E, 3, 4
E, 4, 5
E, 1, 6
E, 6, 7
E, 2, 6
E, 2, 7
E, 3, 7
E, 4, 7
E, 4, 8
E, 7, 8
E, 8, 5
/PNUM, NODE,1
/NUMBER, 2
/PNUM, ELEM, 1
EPLOT
FINISH
! (4) 进入求解模块, 设置求解选项, 设置位移边界条件, 加载并开始求解
/SOLU
ANTYPE, STATIC
OUTPR, BASIC, ALL
D, 1, ALL, 0
D, 5, UY, 0
F, 6, FY, -1000
F, 7, FY, -1000
F, 8, FY, -1000
SOLVE
FINISH
! (5) 进入一般后处理模块, 显示结构变形图
/POST1
PLDISP,2
! (6) 列表显示节点位移和单元的计算结果
PRDISP
ETABLE, MFORX,SMISC,1
ETABLE, SAXL, LS, 1
ETABLE, EPELAXL, LEPEL, 1
PRETAB
/NUMBER, 0
PLETAB, MFORX
FINISH
/post1
/SHOW,PNG,,0
PNGR,COMP,1,-1
PNGR,ORIENT,HORIZ
PNGR,COLOR,2
PNGR,TMOD,1
/GFILE,800,
/CMAP,_TEMPCMAP_,CMP,,SAVE
/RGB,INDEX,100,100,100,0
/RGB,INDEX,0,0,0,15
/REPLOT
/CMAP,_TEMPCMAP_,CMP
/DELETE,_TEMPCMAP_,CMP
/SHOW,CLOSE
/DEVICE,VECTOR,0
大家看看是什么问题
我用vb后台调用的ANSYS,上面是输入文件 |