【原创】ANSYS三维模型导入到ADINA的宏

laogu

ansys的三维建模蛮方便的，在mesh后运行此宏，生成mode.in，在adina中设置好单元和材料后，打开mode.in 即可。这里是支持两种单元材料的，若多于两种时，修改一下即可。

!ANSYS TO ADINA MODEL
/prep7
allsel
!COMPRESS
*Get,nnod,NODE,0,COUNT
*Dim,xyz,array,nnod,4
*Do,i,1,nnod,1
   xyz(i,1) = i
   xyz(i,2) = Nx(i)
   xyz(i,3) = Ny(i)
   xyz(i,4) = Nz(i)
*Enddo
!
*Get,nelm,ELEM,0,COUNT
*Dim,Elist,array,nelm,10
*Do,i,1,nelm,1
   *GET,Elist(i,1),elem,i,attr,mat
   Elist(i,2)=i
   *Do,j,1,8
      Elist(i,j+2) = Nelem(i,j)
   *Enddo
*Enddo
!
*CFOPEN,Model,in,,
*VWRITE,'COORDINA','TES NODE'
(2a8)
*DO,i,1,nnod
x1=CHRVAL(xyz(i,1))
x2=xyz(i,2)
x3=xyz(i,3)
x4=xyz(i,4)
*VWRITE,x1,x2,x3,x4
(a5,3F10.3)
*ENDDO
!
*VWRITE,'@'
(1a1)
*VWRITE,'*'
(1a1)*
!
*VWRITE,'ENODES ','SUBSTRUC','=0 GROUP','=1'
(a7,2a8,a2)
*DO,i,1,nelm
*if,Elist(i,1),eq,1,then
  *do,j,2,10
   a%j%=CHRVAL(Elist(i,j))
  *enddo
  *VWRITE,a2,a3,a4,a5,a6,a7,a8,a9,a10
  (9a8)
*endif
*ENDDO
*VWRITE,'@'
(1a1)
*VWRITE,'*'
(1a1)
!
*VWRITE,'ENODES ','SUBSTRUC','=0 GROUP','=2'
(a7,2a8,a2)
*DO,i,1,nelm
*if,Elist(i,1),eq,2,then
  *do,j,2,10
   a%j%=CHRVAL(Elist(i,j))
  *enddo
  *VWRITE,a2,a3,a4,a5,a6,a7,a8,a9,a10
  (9a8)
*endif
*ENDDO
*VWRITE,'@'
(1a1)
*VWRITE,'*'
(1a1)
!
*CFCLOS

gannor

都是高手啊

laogu

灯泡那里是： 左括号 i 右括号

laogu

也可以把ansys中的 x、y、z的约束转化过来，生成 load.in,其它荷载如力、温度等修改后也可。

FINISH  
/SOL
allsel
***CTRAN
*del,all
*GET,Nmax,NODE,,NUM,MAX

*dim,dd,,7
!
*create,ff
*CFOPEN,Load,in,,
!dx
nsel,s,d,ux
*GET,dn1,NODE,0,num,min
*if,dn1,ge,1,then
*GET,dn2,NODE,0,num,max
*VWRITE,'NODESET ','NAME=1'
(A8,A7)
*DO,i,dn1,dn2
  *if,NSEL(i),eq,1,then
    *VWRITE,CHRVAL(i),'0','1'
    (a5,2x,a1,2x,1a)
  *endif
*ENDDO
*endif
!
!dy
nsel,s,d,uy
*GET,dn1,NODE,0,num,min
*if,dn1,ge,1,then
*GET,dn2,NODE,0,num,max
*VWRITE,'NODESET ','NAME=2'
(A8,A7)
*DO,i,dn1,dn2
  *if,NSEL(i),eq,1,then
    *VWRITE,CHRVAL(i),'0','1'
    (a5,2x,a1,2x,1a)
  *endif
*ENDDO
*endif
!
!dz
nsel,s,d,uz
*GET,dn1,NODE,0,num,min
*if,dn1,ge,1,then
*GET,dn2,NODE,0,num,max
*VWRITE,'NODESET ','NAME=3'
(A8,A7)
*DO,i,dn1,dn2
  *if,NSEL(i),eq,1,then
    *VWRITE,CHRVAL(i),'0','1'
    (a5,2x,a1,2x,1a)
  *endif
*ENDDO
*endif
!
allsel
!
*VWRITE,'FIXITY ','NAME=UX'
(2A7)
*VWRITE,'@CLEAR'
(A6)
*VWRITE,''X-TRANS','LATION' '
(2x,2A8)
*VWRITE,'@'
(A1)
*VWRITE,'*'
(A1)
*VWRITE,'FIXITY ','NAME=UY'
(2A7)
*VWRITE,'@CLEAR'
(A6)
*VWRITE,''Y-TRANS','LATION' '
(2x,2A8)
*VWRITE,'@'
(A1)
*VWRITE,'*'
(A1)
*VWRITE,'FIXITY ','NAME=UZ'
(2A7)
*VWRITE,'@CLEAR'
(A6)
*VWRITE,''Z-TRANS','LATION' '
(2x,2A8)
*VWRITE,'@'
(A1)
!
*VWRITE,'FIXBOUND','ARY NODE','-SET FIX','ITY=ALL '
(4A8)
*VWRITE,'@CLEAR'
(A6)
*VWRITE,'1  'UX''
(A8)
*VWRITE,'2  'UY''
(A8)
*VWRITE,'3  'UZ''
(A8)
*VWRITE,'@'
(A1)
*VWRITE,'*'
(A1)
!
*CFCLOS
*end
/input,ff

heitu

很不错的咚咚。谢谢楼主

dali

谢谢，收藏！

Bob

to  laogu:
你好,我正在由ANSYS转学ADINA,有空多交流啊
我QQ:56859243

suker8044

不错，不错，不过我在尝试转化ansys的荷载，尤其是面荷载时，发现ansys和adina中单元的面的定义不同，adina中也没有通过节点施加面力的方式，不知斑竹有没有做过尝试？

rock

请教：用宏生成的ADINA文件网格数据不被认可，应怎么处理？谢谢！

Bob

同楼上
楼主的命令是否对啊，ADINA不认可啊

Alegend

suker8044兄提到的转化ansys的荷载，尤其是面荷载，现在取得成果没？
我正苦恼这件事
欢迎指教
QQ：29998393
E-mail:yxleawhu@126.com

贝壳水母

贴子发出来了，可根本就不能用，楼主解释一下好吗？