resume
*del,all
*create,path1
/POST26
NUMVAR,200 !指定变量数目
SOLU,191,NCMIT !定义变量
STORE,MERGE !合并时间点数据
*GET,timevalue,VARI,1,extrem,vmax !得到最大时间点
*GET,setnum,VARI,0, nsets !得到时间维度
finish
/POST1
set,,,,,timevalue !定位到最后一步,时间末尾
!提取弹性应变的节点number
NSORT,epel,int,0,1,ALL
*GET,MAX_epel,SORT,0,IMAX
*GET,MAXepel,NODE,MAX_epel,epel,int
NSEL,s,NODE,,MAX_epel
ESLN
ELEM=ELNEXT(0)
allsel
finish
/post26
allsel
!在最大节点处提取各个分量
anSOL,2,MAX_epel,S,EQV
anSOL,3,MAX_epel,EPPL,EQV
anSOL,4,MAX_epel,NL,EPEQ
anSOL,5,MAX_epel,EpeL,EQV
anSOL,6,MAX_epel,NL,plwk
xvar,1
/XRANGE,0,100
!删除数组,避免修改的警告
*del,sj
*del,ep
!定义时间和等效弹性应变数组,一维,长度为时间点的数量
*dim,sj,array,setnum
*dim,ep,array,setnum
!获取时间变量和等效弹性应变变量的值
vget,sj(1),1
vget,ep(1),5
finish
!创建excel文件
*cfopen,ep_excel,csv
!写入标题,%c是字符格式-自适应,%G为字符格式-自适应
*vwrite,'time','EPEL'
%c,%c
!写入时间和等效弹性应变,自动会按行,写完整个数组,不用循环
*vwrite,sj(1),ep(1)
%G,%G
!关闭保存excel文件
*cfclos
!关闭"宏文件"
*end
!输入宏文件
/input,path1
!========================================