找回密码
 注册
Simdroid-非首页
查看: 1476|回复: 94

[命令/FISH] 【转载】命令流共享-FLAC3D模型导入ANSYS中FLAC3Dtoansys

[复制链接]
发表于 2015-8-10 14:44:36 | 显示全部楼层 |阅读模式 来自 湖南长沙
本帖最后由 dongdong2011 于 2015-8-10 14:52 编辑

转载【转载】命令流共享-FLAC3D模型导入ANSYS中

base on Code by haitang 2006-05-30
使用方法:先使用flac读取网格文件FlacGrid.Flac3D,然后使用ANSYS文件导入功能 read input from 读取文件FLAC_to_ANSYS_MODEL.MAC

代码下载请回复






个人修改了一点点的代码
游客,如果您要查看本帖隐藏内容请回复


仅为共享


  1. <span style="background-color: rgb(255, 255, 255);">代码下载请回复</span>
复制代码
部分源代码
  1. ;********************** get nodetotal & zone total *********************
  2. ;使用方法:先使用flac读取网格文件FlacGrid.Flac3D,
  3. ;然后使用ANSYS文件导入功能 read input from 读取文件FLAC_ANSYS_MODEL.MAC


  4. ;; Initialization
  5. def initialization
  6.         IO_READ  = 0
  7.         IO_WRITE = 1
  8.         IO_FISH  = 0
  9.         IO_ASCII = 1
  10.         SuferFile='FLAC-to-ANSYS_MODEL.MAC'
  11.         array message(1)
  12. end
  13. initialization

  14. def writehead
  15.     pnt1=zone_head
  16.     pnt2=gp_head
  17.     Z_total=0
  18.     P_total=0
  19.     loop while pnt1 # null
  20.     Z_total=Z_total+1
  21.     pnt1=z_next(pnt1)
  22.     endloop

  23.     loop while pnt2 # null
  24.     P_total=P_total+1
  25.     pnt2=gp_next(pnt2)
  26.     endloop
  27.     message(1)='!------------------------------------------------------------------ \n'
  28.     message(1)='!This is a free soft for converting the model from Flac3d to Ansys! \n'
  29.     message(1)='!                Code by haitang 2006-05-30 \n'
  30.     message(1)='!                edit by dongdong2011 2015-08-10 \n'
  31.     message(1)='!------------------------------------------------------------------ \n'
  32.     message(1)='!The Number of Nodes and Elements \n'
  33.     message(1)=message(1)+'!'+string(P_total)+' , '+string(Z_total)+'\n'
  34.     message(1)=message(1)+'/prep7 \n'
  35.     message(1)=message(1)+'ET,1,SOLID45'
  36.     status = write(message,1)
  37. end

  38. define GetElements
  39.    Z1_p=zone_head

  40.    loop n (1,Z_total)
  41.      Z1_code=z_code(Z1_p)
  42.      Z1_No=z_id(Z1_p)
  43.      Z1_Group=z_group(Z1_p)
  44.      if Z1_code=0 then
  45.        message(1)='MAT, '+string(Z1_Group)+'\n'   
  46.        message(1)=message(1)+'E, '+string(gp_id(z_gp(Z1_p,1)))
  47.        message(1)=message(1)+','+ string(gp_id(z_gp(Z1_p,2)))
  48.        message(1)=message(1)+','+ string(gp_id(z_gp(Z1_p,5)))
  49.        message(1)=message(1)+','+ string(gp_id(z_gp(Z1_p,3)))
  50.        message(1)=message(1)+','+ string(gp_id(z_gp(Z1_p,4)))
  51.        message(1)=message(1)+','+ string(gp_id(z_gp(Z1_p,7)))
  52.        message(1)=message(1)+','+ string(gp_id(z_gp(Z1_p,8)))
  53.        message(1)=message(1)+','+ string(gp_id(z_gp(Z1_p,6)))
  54.        status = write(message,1)
  55.        Z1_p=z_next(Z1_p)
  56.      endif
  57.      if Z1_code=1 then
  58.        message(1)='MAT, '+string(Z1_Group)+'\n'
  59.        message(1)=message(1)+'E, '+string(gp_id(z_gp(Z1_p,1)))
  60.        message(1)=message(1)+','+string(gp_id(z_gp(Z1_p,2)))
  61.        message(1)=message(1)+','+string(gp_id(z_gp(Z1_p,4)))
  62.        message(1)=message(1)+','+string(gp_id(z_gp(Z1_p,4)))
  63.        message(1)=message(1)+','+string(gp_id(z_gp(Z1_p,3)))
  64.        message(1)=message(1)+','+string(gp_id(z_gp(Z1_p,5)))
  65.        message(1)=message(1)+','+string(gp_id(z_gp(Z1_p,6)))
  66.        message(1)=message(1)+','+string(gp_id(z_gp(Z1_p,6)))
  67.        status = write(message,1)
  68.        Z1_p=z_next(Z1_p)
  69.      endif
  70.      if Z1_code=4 then
  71.        message(1)='MAT, '+string(Z1_Group)+'\n'
  72.        message(1)=message(1)+'E, '+string(gp_id(z_gp(Z1_p,1)))
  73.        message(1)=message(1)+','+string(gp_id(z_gp(Z1_p,2)))
  74.        message(1)=message(1)+','+string(gp_id(z_gp(Z1_p,3)))
  75.        message(1)=message(1)+','+string(gp_id(z_gp(Z1_p,3)))
  76.        message(1)=message(1)+','+string(gp_id(z_gp(Z1_p,4)))
  77.        message(1)=message(1)+','+string(gp_id(z_gp(Z1_p,4)))
  78.        message(1)=message(1)+','+string(gp_id(z_gp(Z1_p,4)))
  79.        message(1)=message(1)+','+string(gp_id(z_gp(Z1_p,4)))
  80.        status = write(message,1)
  81.        Z1_p=z_next(Z1_p)
  82.      endif               
  83.      if Z1_code=2 then
  84.        message(1)='MAT, '+string(Z1_Group)+'\n'
  85.        message(1)=message(1)+'E, '+string(gp_id(z_gp(Z1_p,1)))
  86.        message(1)=message(1)+','+string(gp_id(z_gp(Z1_p,2)))
  87.        message(1)=message(1)+','+string(gp_id(z_gp(Z1_p,5)))
  88.        message(1)=message(1)+','+string(gp_id(z_gp(Z1_p,3)))
  89.        message(1)=message(1)+','+string(gp_id(z_gp(Z1_p,4)))
  90.        message(1)=message(1)+','+string(gp_id(z_gp(Z1_p,4)))
  91.        message(1)=message(1)+','+string(gp_id(z_gp(Z1_p,4)))
  92.        message(1)=message(1)+','+string(gp_id(z_gp(Z1_p,4)))
  93.        status = write(message,1)
  94.        Z1_p=z_next(Z1_p)
  95.      endif
  96.    endloop
  97. END
复制代码


haitang的源代码
游客,如果您要查看本帖隐藏内容请回复








本帖子中包含更多资源

您需要 登录 才可以下载或查看,没有账号?注册

×
发表于 2015-8-28 05:57:01 | 显示全部楼层 来自 湖南
Simdroid开发平台
想看看,学习下
回复 不支持

使用道具 举报

发表于 2015-8-28 19:40:03 | 显示全部楼层 来自 上海
看看,各种大神呀
回复 不支持

使用道具 举报

发表于 2015-8-29 06:38:40 | 显示全部楼层 来自 山东济南
这个得看看
回复 不支持

使用道具 举报

发表于 2015-8-29 13:32:30 | 显示全部楼层 来自 四川成都
牛啊。。。。值得学习
回复 不支持

使用道具 举报

发表于 2015-9-24 13:22:44 | 显示全部楼层 来自 甘肃陇南
thanks^^^^^^^^6
回复 不支持

使用道具 举报

发表于 2015-12-7 17:27:45 | 显示全部楼层 来自 江西南昌
看看,学习一下
回复 不支持

使用道具 举报

发表于 2015-12-7 18:55:04 | 显示全部楼层 来自 河南三门峡
好东西,学习学习
回复 不支持

使用道具 举报

发表于 2015-12-7 22:16:07 | 显示全部楼层 来自 山东济南
下载学习学习
回复 不支持

使用道具 举报

发表于 2016-2-26 15:19:10 | 显示全部楼层 来自 广东广州
支持源代码!支持源代码
回复 不支持

使用道具 举报

发表于 2016-3-14 02:26:16 | 显示全部楼层 来自 北京
学习一下,谢谢楼主分享
回复 不支持

使用道具 举报

发表于 2016-3-15 22:32:49 | 显示全部楼层 来自 四川
怎么好东东,来看看
回复 不支持

使用道具 举报

发表于 2016-4-7 21:44:08 | 显示全部楼层 来自 湖北武汉
谢谢分享,正需要这个命令文件
回复 不支持

使用道具 举报

发表于 2016-4-7 22:02:35 | 显示全部楼层 来自 云南昆明
大赞,这个非常非常有用!
回复 不支持

使用道具 举报

发表于 2016-4-7 22:45:29 | 显示全部楼层 来自 湖北武汉
楼主,flac3d里面分好组了,导入ansys后,分组全没了?
回复 不支持

使用道具 举报

发表于 2016-4-18 20:20:33 | 显示全部楼层 来自 安徽合肥
读入后可以进行后处理了吗?
回复 不支持

使用道具 举报

您需要登录后才可以回帖 登录 | 注册

本版积分规则

Archiver|小黑屋|联系我们|仿真互动网 ( 京ICP备15048925号-7 )

GMT+8, 2024-3-28 20:19 , Processed in 0.048614 second(s), 12 queries , Gzip On, MemCache On.

Powered by Discuz! X3.5 Licensed

© 2001-2024 Discuz! Team.

快速回复 返回顶部 返回列表