Continue to Site

Eng-Tips is the largest engineering community on the Internet

Intelligent Work Forums for Engineering Professionals

  • Congratulations GregLocock on being selected by the Eng-Tips community for having the most helpful posts in the forums last week. Way to Go!

Export to excel help (Comand (APDL)) issue

Status
Not open for further replies.

Enginerd4390

Mechanical
Mar 13, 2019
2
Hello all, So I am running into a code issue. Need help please.

Task: To get a solution that was solved to export stress intensity across a path from node start to end.
issue is that I cant get it to load the stress across the path as well as export it to excel. It is just making a empty excel. the error it gives me is

Error in format, not enough data format specifiers
('EPTO',F10.4,3X,F10,3X,E10.4,3X,E10.4,3X,E10.4,3X,E10.4,.

This is the code I wrote:

! enter the number of nodes to extract results
nnnode=2
! enter the number of time steps at which to extract results
nnnstep=1

!1DIMENSION ARRY
*dim,nni,array,nnnode
*dim,nnstep,array,nnnstep

*dim,neptoint,array,nnnode
*dim,nepto1,array,nnnode
*dim,nepto2,array,nnnode
*dim,nepto3,array,nnnode
*dim,neptox,array,nnnode
*dim,neptoy,array,nnnode
*dim,neptoz,array,nnnode
*dim,neptoxy,array,nnnode
*dim,neptoyz,array,nnnode
*dim,neptoxz,array,nnnode

*dim,nepplint,array,nnnode
*dim,neppl1,array,nnnode
*dim,neppl2,array,nnnode
*dim,neppl3,array,nnnode
*dim,nepplx,array,nnnode
*dim,nepply,array,nnnode
*dim,nepplz,array,nnnode
*dim,nepplxy,array,nnnode
*dim,nepplyz,array,nnnode
*dim,nepplxz,array,nnnode

*dim,nepelint,array,nnnode
*dim,nepel1,array,nnnode
*dim,nepel2,array,nnnode
*dim,nepel3,array,nnnode
*dim,nepelx,array,nnnode
*dim,nepely,array,nnnode
*dim,nepelz,array,nnnode
*dim,nepelxy,array,nnnode
*dim,nepelyz,array,nnnode
*dim,nepelxz,array,nnnode


! node 1 - PATH
allse
nsel,s,ext
csys,0
nni(1)=node(1054.9,1048.3,2952.8)

! node 2 - PATH
allse
nsel,s,ext
csys,0
nni(2)=node(1054.9,0,2952.8)

allse
nnstep(1)=1

set,list
*CFOPEN,epto1,csv
*do,i,1,nnnstep
set,nnstep(i)

*do,j,1,nnnode

*get,neptoint(j),node,nni(j),epto,int
*get,neptox(j),node,nni(j),epto,x
*get,neptoy(j),node,nni(j),epto,y
*get,neptoz(j),node,nni(j),epto,z
*get,neptoxy(j),node,nni(j),epto,xy
*get,neptoyz(j),node,nni(j),epto,yz
*get,neptoxz(j),node,nni(j),epto,xz
*get,nepto1(j),node,nni(j),epto,1
*get,nepto2(j),node,nni(j),epto,2
*get,nepto3(j),node,nni(j),epto,3

var1=nnstep(i)
var2=nni(j)
var3=neptoint(j)
var4=nepto1(j)
var5=nepto2(j)
var6=nepto3(j)
var7=neptox(j)
var8=neptoy(j)
var9=neptoz(j)
var10=neptoxy(j)
var11=neptoyz(j)
var12=neptoxz(j)





*vwrite,var1,var2,var3,var4,var5,var6,var7,var8,var9,var10,var11,var12
('EPTO',F10.4,3X,F10,3X,E10.4,3X,E10.4,3X,E10.4,3X,E10.4,3X,E10.4,3X,e10.4,3X,E10.4,3X,E10.4,3X,E10.4,3X,e10.4,3X,)


*enddo


*enddo

*CFCLOSE
set,list
 
Replies continue below

Recommended for you

Status
Not open for further replies.

Part and Inventory Search

Sponsor