版块导航: 正在加载中...

登录注册

应《网络安全法》要求，自2017年10月1日起，未进行实名认证将不得使用互联网跟帖服务。为保障您的帐号能够正常使用，请尽快对帐号进行手机号验证，感谢您的理解与支持！

24小时热门版块排行榜

返回列表

当前只显示满足指定条件的回帖，点击这里查看本话题的所有回帖

yaojinnan

金虫 (正式写手)

应助: 0 (幼儿园)
金币: 588.7
散金: 128
帖子: 323
在线: 65.1小时
虫号: 1081825
注册: 2010-08-25
性别: GG
专业: 金属结构材料

[交流] 【求助】ANSYS 中命令流编程（fortran）已有11人参与

大家好，我是做焊接模拟的，用的是ANSYS软件。现在想做一段程序，其中想做个循环交替加载。
比如：载荷作用时间总共为10s，有两个载荷。
      其中，0-1s 给选定物体加载第一个载荷，
                  1-3s给选定物体加载第二个载荷
                  3-4s给选定物体加载第一个载荷
                  5-7s给选定物体加载第二个载荷
                  7-8s给选定物体加载第一个载荷
                  8-10s给选定物体加载第二个载荷
其实简单的可以这么理解。
但是我的载荷是一个由ANSYS函数编辑器定义的一个表载荷，
并且这两个载荷都是移动的。所以不清楚应该怎么用FORTRAN来编程。希望大家能给予帮助。定有回报。
下面就是我的命令流程序：
finish
/clear,start                                  !清除数据库以开始新的分
/filname,reverse-shuang tuo qiu,0
/title,hanhanahanhan
/units,si

/prep7

ET,1,SOLID70
ET,2,SOLID90
!et,2,surf152
!keyopt,2,4,0
!keyopt,2,5,1
!keyopt,2,8,3

MPTEMP,1,20,100,200,300,400,500,
MPTEMP,7,600,700,800,900,1000,1500
MPDATA,KXX,1,1,152,159,164,165,168,196,
MPDATA,KXX,1,7,209,162,162,162,162,162
MPDATA,DENS,1,1,2680,2662,2646,2620,2600,2580,
MPDATA,DENS,1,7,2436,2384,2384,2384,2384,2384
MPDATA,C,1,1,956,963,1047,1130,1224,1308,
MPDATA,C,1,7,1412,1084,1084,1084,1084,1084
MPDATA,HF,1,1,8.22,11.0,13.7,23.2,33.4,46.8,
MPDATA,HF,1,7,58.0,68.5,68.5,68.5,68.5,68.5

lx=0.08
ly=0.2
lz=0.005

r=0.002
D=0.002！焊缝宽度
ah=D/2！双椭球热源参数定义
chf=4*ah
chb=6*ah
bh=0.003
rf=2*chf/(chf+chb)
rb=2*chb/(chf+chb)
K=0.5 功率有效系数
I=130
U=30
q0=I*U
q=q0*K  !有效功率
pi=acos(-1)
step=0.002
v=0.003
!count=ly/v
count=20
!***********************************
!定义单元类型
!***********************************
!建立几何模型
!***********************************
wpstyle,,,,,,,,0
block,0,0.006,0,ly,0,-lz
block,0,0.012,0,ly,0,-lz
block,0,0.024,0,ly,0,-lz
block,0,lx,0,ly,0,-lz
vovlap,all
/view,1,1,1,1

!定义焊缝区单元尺寸0.002
lesize,7,0.001
lesize,2,0.001
lesize,12,0.001
lesize,11,0.001
lesize,6,0.001
lesize,3,0.001
lesize,8,0.001
lesize,1,0.001
lesize,4,0.001
lesize,9,0.001
lesize,5,0.001
lesize,10,0.001
!定义过渡区的单元尺寸
lesize,15,r
lesize,18,r
!定义远离焊缝区的单元尺寸
lesize,34,1.25*0.001
lesize,35,1.25*0.001
lesize,47,1.25*0.001
lesize,46,1.25*0.001
lesize,39,4*r
lesize,42,4*r
lesize,57,4*r
lesize,60,4*r
lesize,27,4*r
lesize,30,4*r
lesize,58,4*r
lesize,59,4*r
!***********************************
!划分网格，生生有限元模型
!***********************************
type,1
mshkey,1
mshape,0
vmesh,1
vmesh,7
type,2
mshkey,0
mshape,1
vmesh,5
vmesh,6
numcmp,area
save
!***********************************
!循环加载、求解
!***********************************
!施加载荷
/solu
*do,i,0,count
disy=i*step
t=(disy+step)/v
antype,4
trnopt,full
tunif,293
outres,basic,last
time,t
nropt,full,,on
autots,1
nsubst,1,,,1
kbc,1
lnsrch,1
tsres,erase
!TINTP,,,,1,,,,,
timint,1,therm
!***********************************
!焊接过程开始
!***********************************
nsel,s,ext,
nsel,u,loc,x,0    !------改
sf,all,conv,200,293 !------改
allsel,all
!***********************************
!***********************************
!双椭球热源的加载
!***********************************
!前半球节点的选取
!***********************************
LOCAL,11,2,0,disy,0.000,,,,chf/ah,bh/ah,
NSEL,S,LOC,X,0,ah
NSEL,R,LOC,Y,0,90
NSEL,R,LOC,Z,-90,0
CM,FRONT,NODE
LOCAL,13,0,0,disy,0.000,,,,1,1,
*DEL,_FNCNAME
*DEL,_FNCMTID
*DEL,_FNC_C1
*DEL,_FNC_C2
*DEL,_FNC_C3
*DEL,_FNC_C4
*DEL,_FNC_C5
*DEL,_FNCCSYS
*DEL,'TFRONT'
*SET,_FNCNAME,'TFRONT'
*DIM,_FNC_C1,,1
*DIM,_FNC_C2,,1
*DIM,_FNC_C3,,1
*DIM,_FNC_C4,,1
*DIM,_FNC_C5,,1
*SET,_FNC_C1(1),q
*SET,_FNC_C2(1),rf
*SET,_FNC_C3(1),ah
*SET,_FNC_C4(1),chf
*SET,_FNC_C5(1),bh
*SET,_FNCCSYS,13
*DIM,%_FNCNAME%,TABLE,7,38,1,,,,%_FNCCSYS%
%_FNCNAME%(0,0,1)= 0.0, -999
%_FNCNAME%(2,0,1)= 0.0
%_FNCNAME%(3,0,1)= %_FNC_C1(1)%
%_FNCNAME%(4,0,1)= %_FNC_C2(1)%
%_FNCNAME%(5,0,1)= %_FNC_C3(1)%
%_FNCNAME%(6,0,1)= %_FNC_C4(1)%
%_FNCNAME%(7,0,1)= %_FNC_C5(1)%
%_FNCNAME%(0,1,1)= 1.0, -1, 16, 3, 0, 0, 0
%_FNCNAME%(0,2,1)= 0.0, -2, 0, 6, 0, 0, -1
%_FNCNAME%(0,3,1)= 0, -3, 0, 1, -2, 3, -1
%_FNCNAME%(0,4,1)= 0.0, -1, 0, 1, -3, 3, 17
%_FNCNAME%(0,5,1)= 0.0, -2, 0, 1, -1, 3, 18
%_FNCNAME%(0,6,1)= 0.0, -1, 0, 0, 0, 0, 0
%_FNCNAME%(0,7,1)= 0.0, -3, 0, 1, 0, 0, -1
%_FNCNAME%(0,8,1)= 0.0, -4, 0, 1, -1, 2, -3
%_FNCNAME%(0,9,1)= 0.0, -1, 0, 3, 0, 0, -4
%_FNCNAME%(0,10,1)= 0.0, -3, 0, 1, -4, 3, -1
%_FNCNAME%(0,11,1)= 0.0, -1, 0, 2, 0, 0, 2
%_FNCNAME%(0,12,1)= 0.0, -4, 0, 1, 2, 17, -1
%_FNCNAME%(0,13,1)= 0.0, -1, 0, 2, 0, 0, 19
%_FNCNAME%(0,14,1)= 0.0, -5, 0, 1, 19, 17, -1
%_FNCNAME%(0,15,1)= 0.0, -1, 0, 1, -4, 4, -5
%_FNCNAME%(0,16,1)= 0.0, -4, 0, 2, 0, 0, 3
%_FNCNAME%(0,17,1)= 0.0, -5, 0, 1, 3, 17, -4
%_FNCNAME%(0,18,1)= 0.0, -4, 0, 2, 0, 0, 20
%_FNCNAME%(0,19,1)= 0.0, -6, 0, 1, 20, 17, -4
%_FNCNAME%(0,20,1)= 0.0, -4, 0, 1, -5, 4, -6
%_FNCNAME%(0,21,1)= 0.0, -5, 0, 1, -1, 1, -4
%_FNCNAME%(0,22,1)= 0.0, -1, 0, 2, 0, 0, 4
%_FNCNAME%(0,23,1)= 0.0, -4, 0, 1, 4, 17, -1
%_FNCNAME%(0,24,1)= 0.0, -1, 0, 2, 0, 0, 21
%_FNCNAME%(0,25,1)= 0.0, -6, 0, 1, 21, 17, -1
%_FNCNAME%(0,26,1)= 0.0, -1, 0, 1, -4, 4, -6
%_FNCNAME%(0,27,1)= 0.0, -4, 0, 1, -5, 1, -1
%_FNCNAME%(0,28,1)= 0.0, -1, 0, 1, -3, 3, -4
%_FNCNAME%(0,29,1)= 0.0, -1, 7, 1, -1, 0, 0
%_FNCNAME%(0,30,1)= 0.0, -3, 0, 1, -2, 3, -1
%_FNCNAME%(0,31,1)= 0.0, -1, 16, 3.14159265358979310, 0, 0, 0
%_FNCNAME%(0,32,1)= 0.0, -2, 0, 3.14159265358979310, 0, 0, -1
%_FNCNAME%(0,33,1)= 0.0, -4, 0, 1, -2, 3, -1
%_FNCNAME%(0,34,1)= 0.0, -1, 0, 1, -4, 3, 20
%_FNCNAME%(0,35,1)= 0.0, -2, 0, 1, -1, 3, 19
%_FNCNAME%(0,36,1)= 0.0, -1, 0, 1, -2, 3, 21
%_FNCNAME%(0,37,1)= 0.0, -2, 0, 1, -3, 4, -1
%_FNCNAME%(0,38,1)= 0.0, 99, 0, 1, -2, 0, 0
BF,FRONT,HGEN,%TFRONT%
CMDELE,FRONT
ALLSEL,ALL

!!!后半球节点的选取
LOCAL,12,2,0,disy,0,,,,chb/ah,bh/ah,
NSEL,S,LOC,X,0,ah
NSEL,R,LOC,Y,-90,0
nsel,r,loc,y,-90,0
CM,BEHIND,NODE
!!!
LOCAL,14,0,0,disy,0,,,,1,1,
*DEL,_FNCNAME
*DEL,_FNCMTID
*DEL,_FNC_C1
*DEL,_FNC_C2
*DEL,_FNC_C3
*DEL,_FNC_C4
*DEL,_FNC_C5
*DEL,_FNCCSYS
*DEL,'TBEHIND'
*SET,_FNCNAME,'TBEHIND'
*DIM,_FNC_C1,,1
*DIM,_FNC_C2,,1
*DIM,_FNC_C3,,1
*DIM,_FNC_C4,,1
*DIM,_FNC_C5,,1
*SET,_FNC_C1(1),q
*SET,_FNC_C2(1),rb
*SET,_FNC_C3(1),ah
*SET,_FNC_C4(1),chb
*SET,_FNC_C5(1),bh
*SET,_FNCCSYS,14
*DIM,%_FNCNAME%,TABLE,7,38,1,,,,%_FNCCSYS%
%_FNCNAME%(0,0,1)= 0.0, -999
%_FNCNAME%(2,0,1)= 0.0
%_FNCNAME%(3,0,1)= %_FNC_C1(1)%
%_FNCNAME%(4,0,1)= %_FNC_C2(1)%
%_FNCNAME%(5,0,1)= %_FNC_C3(1)%
%_FNCNAME%(6,0,1)= %_FNC_C4(1)%
%_FNCNAME%(7,0,1)= %_FNC_C5(1)%
%_FNCNAME%(0,1,1)= 1.0, -1, 16, 3, 0, 0, 0
%_FNCNAME%(0,2,1)= 0.0, -2, 0, 6, 0, 0, -1
%_FNCNAME%(0,3,1)= 0, -3, 0, 1, -2, 3, -1
%_FNCNAME%(0,4,1)= 0.0, -1, 0, 1, -3, 3, 17
%_FNCNAME%(0,5,1)= 0.0, -2, 0, 1, -1, 3, 18
%_FNCNAME%(0,6,1)= 0.0, -1, 0, 0, 0, 0, 0
%_FNCNAME%(0,7,1)= 0.0, -3, 0, 1, 0, 0, -1
%_FNCNAME%(0,8,1)= 0.0, -4, 0, 1, -1, 2, -3
%_FNCNAME%(0,9,1)= 0.0, -1, 0, 3, 0, 0, -4
%_FNCNAME%(0,10,1)= 0.0, -3, 0, 1, -4, 3, -1
%_FNCNAME%(0,11,1)= 0.0, -1, 0, 2, 0, 0, 2
%_FNCNAME%(0,12,1)= 0.0, -4, 0, 1, 2, 17, -1
%_FNCNAME%(0,13,1)= 0.0, -1, 0, 2, 0, 0, 19
%_FNCNAME%(0,14,1)= 0.0, -5, 0, 1, 19, 17, -1
%_FNCNAME%(0,15,1)= 0.0, -1, 0, 1, -4, 4, -5
%_FNCNAME%(0,16,1)= 0.0, -4, 0, 2, 0, 0, 3
%_FNCNAME%(0,17,1)= 0.0, -5, 0, 1, 3, 17, -4
%_FNCNAME%(0,18,1)= 0.0, -4, 0, 2, 0, 0, 20
%_FNCNAME%(0,19,1)= 0.0, -6, 0, 1, 20, 17, -4
%_FNCNAME%(0,20,1)= 0.0, -4, 0, 1, -5, 4, -6
%_FNCNAME%(0,21,1)= 0.0, -5, 0, 1, -1, 1, -4
%_FNCNAME%(0,22,1)= 0.0, -1, 0, 2, 0, 0, 4
%_FNCNAME%(0,23,1)= 0.0, -4, 0, 1, 4, 17, -1
%_FNCNAME%(0,24,1)= 0.0, -1, 0, 2, 0, 0, 21
%_FNCNAME%(0,25,1)= 0.0, -6, 0, 1, 21, 17, -1
%_FNCNAME%(0,26,1)= 0.0, -1, 0, 1, -4, 4, -6
%_FNCNAME%(0,27,1)= 0.0, -4, 0, 1, -5, 1, -1
%_FNCNAME%(0,28,1)= 0.0, -1, 0, 1, -3, 3, -4
%_FNCNAME%(0,29,1)= 0.0, -1, 7, 1, -1, 0, 0
%_FNCNAME%(0,30,1)= 0.0, -3, 0, 1, -2, 3, -1
%_FNCNAME%(0,31,1)= 0.0, -1, 16, 3.14159265358979310, 0, 0, 0
%_FNCNAME%(0,32,1)= 0.0, -2, 0, 3.14159265358979310, 0, 0, -1
%_FNCNAME%(0,33,1)= 0.0, -4, 0, 1, -2, 3, -1
%_FNCNAME%(0,34,1)= 0.0, -1, 0, 1, -4, 3, 20
%_FNCNAME%(0,35,1)= 0.0, -2, 0, 1, -1, 3, 19
%_FNCNAME%(0,36,1)= 0.0, -1, 0, 1, -2, 3, 21
%_FNCNAME%(0,37,1)= 0.0, -2, 0, 1, -3, 4, -1
%_FNCNAME%(0,38,1)= 0.0, 99, 0, 1, -2, 0, 0
BF,BEHIND,HGEN,%TBEHIND%
CMDELE,BEHIND
ALLSEL,ALL
SOLVE
BFDELE,all,HGEN
*ENDDO
SAVE

其中从双椭球热源加载到最后就是加载的过程，这是一个载荷，还需要另外一个载荷，这里没有加载，就像上面我所说的那样循环交替那样应该怎么加载，希望大家给予帮助。。应该用到怎么样的语句呢？？

回复此楼

» 收录本帖的淘帖专辑推荐

硕博精华

» 猜你喜欢

» 本主题相关价值贴推荐，对您同样有帮助:

ANSYS命令及菜单学习已经有90人回复
ansys的命令流看不明白，能不能帮忙翻译一下命令流是怎么操作的？？？已经有4人回复
求助热障涂层的残余应力场模拟ansys命令流！已经有18人回复
【求助】ANSYS：运用命令流建立群桩桩基模型已经有3人回复
【资源】ANSYS操作命令与参数化编程已经有18人回复
【转载】关于ansys定义刚体运动命令已经有4人回复
请求高人翻译一个Ansys命令流（越详细越好）已经有5人回复

只有有了优秀的对手，你才会变得更加优秀

1楼 2010-09-09 20:40:33

已阅回复此楼关注TA 给TA发消息送TA红花 TA的回帖

dgh338

新虫 (初入文坛)

应助: 0 (幼儿园)
金币: 479
帖子: 19
在线: 5.6小时
虫号: 1122552
注册: 2010-10-14
专业: 机械测试理论与技术

这么多的程序，看不懂

赞一下

回复此楼

3楼2010-10-19 15:45:30

已阅回复此楼关注TA 给TA发消息送TA红花 TA的回帖

查看全部 12 个回答

graduate7303

至尊木虫 (著名写手)

应助: 39 (小学生)
金币: 13008.2
红花: 1
帖子: 1570
在线: 160.4小时
虫号: 730419
注册: 2009-03-25
专业: 工程热物理与能源利用

★
小木虫(金币+0.5):给个红包，谢谢回帖交流

学习学习了。。。

回复此楼

2楼2010-10-18 14:06:02

已阅回复此楼关注TA 给TA发消息送TA红花 TA的回帖

zyj8119

木虫 (著名写手)

应助: 65 (初中生)
贵宾: 0.003
金币: 915.1
散金: 1440
红花: 35
帖子: 2936
在线: 1329.4小时
虫号: 664177
注册: 2008-11-29
性别: GG
专业: 理论和计算化学

★
小木虫(金币+0.5):给个红包，谢谢回帖交流

引用回帖:

Originally posted by yaojinnan at 2010-09-09 20:40:33:
大家好，我是做焊接模拟的，用的是ANSYS软件。现在想做一段程序，其中想做个循环交替加载。
比如：载荷作用时间总共为10s，有两个载荷。
其中，0-1s 给选定物体加载第一个载荷，
...

ANSYS怎么打开命令流编程？

赞一下(1人)

回复此楼

好好学习，天天向上。

4楼2010-11-12 19:48:42

已阅回复此楼关注TA 给TA发消息送TA红花 TA的回帖

leixiaokuan

新虫 (初入文坛)

应助: 0 (幼儿园)
金币: 22.1
帖子: 6
在线: 7.4小时
虫号: 1349144
注册: 2011-07-18
性别: GG
专业: 金属结构材料

★
小木虫(金币+0.5):给个红包，谢谢回帖
jjdg: 先google一下吧 2011-10-19 06:42:39

我是做焊接的，想学Ansys模拟焊接过程，有这方面的教程吗？若有请传我一份，邮箱：leixiaokuan_0512@1363.com

赞一下(2人)

回复此楼

结交广大焊接工程师

5楼2011-10-18 13:41:13

已阅回复此楼关注TA 给TA发消息送TA红花 TA的回帖

查看全部 12 个回答

最具人气热帖推荐 [查看全部]		作者	回/看	最后发表

[考研] 328求调剂，英语六级551，有科研经历 +3	生物工程调剂 2026-03-16	8/400	2026-03-17 19:03 by Wangjingyue
[考研] 085600材料与化工求调剂 +5	绪幸与子 2026-03-17	5/250	2026-03-17 16:40 by laoshidan
[考博] 26申博 +4	八旬速览 2026-03-16	4/200	2026-03-17 13:00 by 轻松不少随
[考研] 材料专硕274一志愿陕西师范大学求调剂 +5	薛云鹏 2026-03-13	5/250	2026-03-17 10:15 by Sammy2
[考研] 274求调剂 +5	时间点 2026-03-13	5/250	2026-03-17 07:34 by 热情沙漠
[考研] [导师推荐]西南科技大学国防/材料导师推荐 +3	尖角小荷 2026-03-16	6/300	2026-03-16 23:21 by 尖角小荷
[考研] 286求调剂 +3	lemonzzn 2026-03-16	5/250	2026-03-16 20:43 by lemonzzn
[考研] 环境工程调剂 +6	大可digkids 2026-03-16	6/300	2026-03-16 17:16 by barlinike
[考研] 070300化学学硕求调剂 +6	太想进步了0608 2026-03-16	6/300	2026-03-16 16:13 by kykm678
[考研] 070303一志愿西北大学学硕310找调剂 +5	d如愿上岸 2026-03-12	8/400	2026-03-16 15:19 by peike
[考研] 26考研一志愿中国石油大学(华东)305分求调剂 +3	嘉年新程 2026-03-15	3/150	2026-03-15 13:58 by 哈哈哈哈嘿嘿嘿
[考研] 255求调剂 +3	李嘉慧， 2026-03-12	4/200	2026-03-14 16:58 by 有只狸奴
[考研] ［0860］321分求调剂，ab区皆可 +4	宝贵热 2026-03-13	4/200	2026-03-13 22:01 by 星空星月
[考研] 290求调剂 +9	ADT 2026-03-11	9/450	2026-03-13 21:55 by JourneyLucky
[考研] 315求调剂 +9	小羊小羊_ 2026-03-11	10/500	2026-03-13 21:13 by SXNU李老师
[考研] 26调剂/材料科学与工程/总分295/求收留 +9	2026调剂侠 2026-03-12	9/450	2026-03-13 20:46 by 18595523086
[考研] 求调剂 +5	一定有学上- 2026-03-12	5/250	2026-03-13 18:31 by ms629
[考研] 考研调剂 +4	芬达46 2026-03-12	4/200	2026-03-13 16:04 by ruiyingmiao
[考研] 一志愿211化学学硕310分求调剂 +8	努力奋斗112 2026-03-12	9/450	2026-03-13 15:41 by JourneyLucky
[考研] 333求调剂 +3	152697 2026-03-12	4/200	2026-03-13 07:08 by Iveryant

24小时热门版块排行榜

yaojinnan

[交流] 【求助】ANSYS 中命令流编程（fortran） 已有11人参与

» 收录本帖的淘帖专辑推荐

» 猜你喜欢

» 本主题相关价值贴推荐，对您同样有帮助:

dgh338

graduate7303

zyj8119

leixiaokuan

[交流] 【求助】ANSYS 中命令流编程（fortran）已有11人参与