|
在gui里看到的既不能修改，也不能copy
现用命令流导出
考虑斑竹以积分鼓励大家，以一分为限
例子如下：
/clear,start
mass=83500
/prep7
k,1,0,0,0
k,2,10000,0,0
lstr,1,2
et,1,beam44
et,2,mass21
R,1,186160,178980000000,56238000000,1278,680,128980000000,
RMODIF,1,21,1278,680,
RMODIF,1,25,76160,110000,0,0,7.0678e-009,0,
*do,i,1,5
j=i*1000
/prep7
R,2,mass-j,mass-j,mass-j,0,0,0,
UIMP,1,EX, , ,210000,
UIMP,1,DENS, , ,1.1261e-5,
UIMP,2,EX, , ,210000,
UIMP,2,DENS, , ,0.78e-5,
lsel,,,,1
latt,1,1,1
lesize,1,,,5,1
lmesh,1
ksel,,,,2
katt,2,2,2
kmesh,2
d,1,,,,,,ux,uy,uz,rotx,roty,rotz
/solu
antype,modal
modopt,subsp,5
solve
finish
/POST26
FILE !确定数据源
FILE,''file'',''rst'',''.''
/UI,COLL,1 !打开对话框
NUMVAR,200 !post26中最大允许存100个
SOLU,191,NCMIT !确定每时间解的存储
STORE,MERGE ! 存数据
FILLDATA,191,,,,1,1 !以斜坡函数来填充数据
REALVAR,191,191 !只使用实部
! Save time history variables to file b.csv
*DEL,_P26_EXPORT !删除参数
*DIM,_P26_EXPORT,TABLE,5,1 ! 定义数组大小
VGET,_P26_EXPORT(1,0),1 !移动数据
*if,i,eq,1,then
/OUTPUT,''a1'',''csv'',''.'' ! 生成文件
*elseif,i,eq,2,then
/OUTPUT,''a2'',''csv'',''.''
*elseif,i,eq,3,then
/OUTPUT,''a3'',''csv'',''.''
*elseif,i,eq,4,then
/OUTPUT,''a4'',''csv'',''.''
*elseif,i,eq,5,then
/OUTPUT,''a5'',''csv'',''.''
*else
*exit
*endif
*VWRITE,''TIME'' ! 按一定次序写入数据
%C
*VWRITE,_P26_EXPORT(1,0)
%G
/OUTPUT,TERM
! End of time history save
finish
*enddo
|