|
参考一下
*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, 1619, 11641,1 !对于复杂情况,表面节点编号不一定是从1开始且连续的
*Get,modeshpx,node,ii,u,x
*Get,modeshpy,node,ii,u,y
*Get,modeshpz,node,ii,u,z
modeshprx = 0 !SOLID45单元没有旋转分量
modeshpry = 0
modeshprz = 0
bb1 ='%ii%'
bb2 =' '
*vwrite,bb1,bb1,modeshpx,modeshpy,modeshpz
(2A10,3e20.8)
*vwrite,bb2,modeshprx,modeshpry,modeshprz
(A20,3e20.8)
*Enddo
*Enddo
*cfclos
FINISH
|
|