在最后一步出现问题,请高手解惑
浏览:144410
finish
/clear
!环境设置
/filn,E354
/title,Reinforcement
*afun,deg ! 设定角度单位
*SET,D1,4000 ! 筒体内径
*SET,L1,2000 ! 筒体长度
*SET,T,18 ! 筒体厚度
*SET,T1,16 ! 补强厚度
*SET,xd1,620 ! 补强圈外径
*SET,xd,350 ! 接管内径
*SET,xl,200 ! 接管长度
*SET,xt,10 ! 接管厚度
*SET,P,1.05 ! 施加内压值
*SET,gap,0.2 ! 补强圈与筒体之间焊缝
*SET,ct_h1,tan(35)*T1 ! 焊缝辅助设计尺寸
*SET,ct_h2,16
*SET,ct_h3,16
*SET,ct_h4,4
*SET,R,8 ! 倒角半径(取值的大小与接管的厚度有关,需小于接管厚度)
qy=-P*(xd-2*xt)**2/(4*xt*(xd-xt)) ! 接管载荷边界
qz=-P*D1**2/(4*T*(D1+T)) ! 筒体载荷边界
Mx=1E7 ! 接管端部弯矩
My=-1.25E7 ! 接管端部弯矩
Mz=-1E7 ! 接管端部弯矩
Fx=1.25e4
FY=-1.25e4
FZ=-1.25e4
/prep7
!定义单元及材料属性
et,1,solid95 ! 实体单元
et,2,TARGE170 ! 目标单元170
et,3,CONTA173 ! 接触单元173
ET,4,21 ! 定义单元类型,质量单元类型
keyopt,3,5,3 ! 关闭缝隙
r,1,0,0,0.01,0,-gap,0 ! 设定实常数
R,2,1
R,3,1
R,4,1 ! 定义质量单元的实常数
mp,ex,1,2.1e5 ! 壳体与补强圈材料弹性模量
mp,prxy,1,0.3 ! 壳体与补强圈材料泊松比
mp,ex,2,1.9e5 ! 接管材料弹性模量
mp,prxy,2,0.3 ! 接管材料泊松比
mp,ex,3,1.91e5 ! 焊缝材料弹性模量
mp,prxy,3,0.3 ! 焊缝材料泊松比
!创建筒体与接管模型
cylind,D1/2,D1/2+T,,L1,,90 ! 创建1/4筒体
wprota,0,-90 ! 将工作平面旋转-90度
cylind,,xd1/2+T,,T1+D1/2+T,,-90 ! 创建筒体,用于得到补强外径相贯线1
cylind,,xd/2+xt+ct_h2,,T1+D1/2+T,,-90 !创建筒体,用于分割出补强内径相贯线9
cylind,,xd/2+xt+ct_h4,,T1+D1/2+T,,-90 !创建筒体,用于分割出焊缝1的相贯线7
bopt,numb,off
vovlap,all ! 叠加体
vdele,6,11,1,1 ! 删除多余的体,求得相贯线
cylind,xd/2,xd/2+xt,,xl+D1/2+T,,-90 ! 创建接管
cylind,xd/2+xt,xd1/2,,T1+D1/2+2*T,,-90 ! 创建筒体,用于分割出焊缝2的相贯线3
wpstyl,defa ! 恢复工作平面
cylind,D1/2+T+gap,D1/2+2*T,,L1,,90 ! 创建筒体,用于分割出补强圈,并预留缝隙
vovlap,all ! 叠加体