!从ANSYS中导出模态频率及振型数据

!从ANSYS中导出模态频率及振型数据

/Post1

*get,nodenum,node,,num,max !读取节点数

*set,modenum,20 *Cfopen,modefile_ansys,fre *Vwrite

('SYSNOISE MODES STRUCTURE FILE') *Vwrite

('Rev 5.5 Windows NT 30NOV2000')

*Vwrite

('SYSNOISE Default Model')

*Vwrite ('23-JUN-2008 10:22:59')

指定模态的阶数

!打开文件

!头文件

!

*Do,i,1,modenum,1

*Vwrite

('REAL MODE FREQUENCY EIGENVALUE')

*Get,modefq,mode,i,freq

bb='%i%'

modeanglefq = modefq*modefq*2*2*3.141593*3.141593

*Vwrite, bb, modefq, modeanglefq

(A10,2e20.8)

*Vwrite

('DISPLACEMENT VALUES')

set,1,i

*Do,ii,1,nodenum,1

*Get,modeshpx,node,ii,u,x

*Get,modeshpy,node,ii,u,y

*Get,modeshpz,node,ii,u,z

*Get,modeshprx,node,ii,rot,x

*Get,modeshpry,node,ii,rot,y

*Get,modeshprz,node,ii,rot,z

bb1 ='%ii%'

bb2 =' '

*vwrite,bb1,bb1,modeshpx,modeshpy,modeshpz

(2A10,3e20.8)

*vwrite,bb2,modeshprx,modeshpry,modeshprz

(A20,3e20.8)

*Enddo

*Enddo

*cfclos

FINISH

*VWRITE,LABEL(1),VALUE(1,1),VALUE(1,2),VALUE(1,3)

(1X,A8,3X,F10.3,5X,F8.3,5X,F8.3)

其中1X表示一个空格数，A8是输出字符型LABEL，占8位（列），F10.3表示浮点型数值，占据10列，小数3位，F8.3表示浮点型数值，占据8列，小数3位