【原创】超高价值，吐血奉献：ANSYS－>SYSNOISE。。。。。。

yiby

本例具有极高的参考价值，抛砖引玉！希望大家共同努力。斑竹别忘了给俺点评点评！

yiby

FINISH
/CLEAR,NOSTART
/PREP7
ET,1,SHELL63,2
R,1,.5           
MP,EX,1,210
MP,NUXY,1,0.3
MP,DENS,1,7800
BLC4,-2,-2,4,4   
LESIZE,ALL, , ,4, ,1, , ,1,
AMESH,ALL
DL,ALL, ,ALL,  
!CDWRITE,ALL,PLATE,cdb
/SOLU
ANTYPE,MODAL
MODOPT,LANB,5   
MXPAND,5
SOLVE
FINISH
/POST1
*GET,MAXNUM_NODE,NODE,,NUM,MAX
*GET,MAXNUM_ELEM,ELEM,,NUM,MAX
ELEMTYPE=4
  
*DIM,SYSNOISE_TITLE,CHAR,4,3
SYSNOISE_TITLE(1,1)='SYSNOISE'
SYSNOISE_TITLE(1,2)=' MESH FI'
SYSNOISE_TITLE(1,3)='LE'
SYSNOISE_TITLE(2,1)='Rev 5.2 '
SYSNOISE_TITLE(2,2)=' SGI'  
SYSNOISE_TITLE(3,1)='Set numb'
SYSNOISE_TITLE(3,2)='er'
SYSNOISE_TITLE(4,1)='TIME'
*CFOPEN,PLATE_MESH,fre
*VWRITE,SYSNOISE_TITLE(1,1),SYSNOISE_TITLE(1,2),SYSNOISE_TITLE(1,3)
%C%C%C
  
*VWRITE,MAXNUM_NODE,MAXNUM_ELEM,ELEMTYPE
%10I%10I%10I
  
*DIM,SYSNOISE_SUBT1,CHAR,1,1
SYSNOISE_SUBT1(1,1)='NODES'
*VWRITE,SYSNOISE_SUBT1(1,1)
(A8)
  
*DIM,LOC_NODE,,MAXNUM_NODE,3
*DIM,NUM_,,MAXNUM_NODE,1
*DO,IP,1,MAXNUM_NODE
NUM_(IP,1)=IP
*GET,LOC_NODE(IP,1),NODE,IP,LOC,X
*GET,LOC_NODE(IP,2),NODE,IP,LOC,Y
*GET,LOC_NODE(IP,3),NODE,IP,LOC,Z
*ENDDO
  
*VWRITE,NUM_(1,1),NUM_(1,1),LOC_NODE(1,1),LOC_NODE(1,2),LOC_NODE(1,3)
%10I%10I%20.8E%20.8E%20.8E  
  
*DIM,SYSNOISE_SUBT2,CHAR,1,1
SYSNOISE_SUBT2(1,1)='ELEMENTS'
*VWRITE,SYSNOISE_SUBT2(1,1)
(A8)
  
*DIM,NODE_ELEM,,MAXNUM_ELEM,4
*DIM,NUME_,,MAXNUM_NODE,1
*DO,IP,1,MAXNUM_ELEM
NUME_(IP,1)=IP
NODE_ELEM(IP,1)=NELEM(IP,1)
NODE_ELEM(IP,2)=NELEM(IP,2)
NODE_ELEM(IP,3)=NELEM(IP,3)
NODE_ELEM(IP,4)=NELEM(IP,4)
*ENDDO
ELEMTY=6
NODETY=4
*VWRITE,NUME_(1,1),NUME_(1,1),ELEMTY,NODETY,NODE_ELEM(1,1),NODE_ELEM(1,2),NODE_ELEM(1,3),NODE_ELEM(1,4)
%10I%10I%10I%10I%10I%10I%10I%10I
*VWRITE,MODE_NUM,FREQ_STR,EIGE_STR
(1X,I11,2E21.8)

yiby

这是将ANSYS模型写成SYSNOISE支持的*fre格式。尽管CDWRITE命令能够实现这个功能，但是在处理结果文件导入时，简单的ANSYS命令已经无能为力了。要从基本上解决结果文件导入的问题，必须从基本的文件格式入手，这就是本命令流价值的所在。

yiby

另外，本人已在这模块的基础上实现了ANSYS模态结果文件导入SYSNOISE的问题。可是，对于更一般的ANSYS结果文件的导入，还有待进一步的努力。同时也大家能够给予好的意见与建议。

yiby

在此，先感谢斑竹f13以前对*.fre文件格式所作的深入讲解与分析。期待大家的高见与共同参与！

chuxuezhe

在此感谢yiby兄！我已经加分表示鼓励！也希望大家象yiby一样积极发表自己的见解！

yiby

To：20KHertz  
  这些基本的ANSYS命令其实在那个版本的ANSYS也是通用的，对版本不存在依赖性。我现在用的主要是ANSYS8.0（机房）和ANSYS7.0（家），SYSNOISE的版本为5.5。
另外小弟写了两本关于ANSYS方面的书，一本叫《ANSYS7.0实例分析教程》另外一本叫《ANSYS在土木工程中的应用》即将面市，希望大家到时多多捧场，多多关照。

yiby

由于本例涉及ANSYS与其他软件的接口问题，在ANSYS实例分析中也做了详细的介绍，作为实例集中在里面以作备份。另一方面，也提供这种ANSYS与其他软件衔接的内容，为ANSYS在工程中的推广应用贡献一点微薄的力量。
http://www.simwe.com/cgi-bin/ut/topic_show.cgi?id=41670&pg=1&bpg=1

yiby

呵呵，再作一个小小的补充说明。本人是有点偏爱ANSYS，但同时我对MSC的系列软件例如Patran、Nastran和Marc等也是熟悉和喜欢的。对其他的ABAQUS、 I-DEAS、Adams、Algor等也是关注和非常感兴趣的，各有所长吧！
反正现在这个期间，CAE在我国的发展也还算处于比较初步的阶段，非常需要大家的支持、鼓励甚至是鼎力扶持的，兼容并包对整个CAE的发展是百利而无一害的。
非常反对那些一上来就对某某软件来个分清界限式的批判。何必呢？各有所长，大家都有自己的优点，也都存在一些不足和值得改进的地方的嘛。况且，本身国内的CAE发展形势还不大理想，只有将整个CAE扶持起来，做大、做得有规模，这样我们这些搞CAE的人才能跟着水涨船高，有好日子过！

chuxuezhe

yiby兄做的非常好！再加一分！下面我也将按照这个模式做一下，大家共同进步！希望yiby兄继续发表高见！

yiby

非常感谢斑竹的一再欣赏，老实说这些都是在您对*.fre格式讲解后得到的启发。
在编制这种接口文件时，有一点需要注意的是：*.fre文件中序号的书写必须用整形，我试过了用浮点型格式，但是SYSNOISE不认。与此相关，ANSYS中要输出整形，用Fortran的数据描述格式是做不到了，因此需要改为采用C语言数据描述格式。
C语言数据描述格式跟Fortran语言的描述除了格式上的不同，还有就是不再需要括号例如：
Fortran里面的(A8)用C语言描述则变成%8C；Fortran语言描述 (F12.5)---->C语言描述%12.5F；Fortran语言描述 (E12.5)---->C语言描述%12.5E；
别看是小问题，稍稍有一点点的偏差，就会功败垂成哦！

shrimp168

yiby兄说的很对，我是用hypermesh做 sysnoise的前处理，在文件转换时也遇到了难题，可以把hypermesh文件先导入patran，再从patran导入sysnoise中

sizhiyuan2008

谢谢了

zhjw2003

真强啊，就是对我来说有点看天书的感觉，本人对ANSYS一点不懂，望谅解

justasme

同意楼上的

“真强啊，就是对我来说有点看天书的感觉，本人对ANSYS一点不懂，望谅解”

zwd

高手！我们的榜样啊！

aoge3

学习了。很不错。谢谢楼主的分享啊

忧忧淘

谢谢前辈好帖

平平淡淡

不知道大家VWRITE那块写的时候会不会出错啊，我的写不进去啊