本帖最后由 jiajia_1234567 于 2014-3-18 16:05 编辑
现在进行体1和体2相加,但是出现如下提示,请问是问什么?新手,这是一个斜接管的分析,不知道怎么样做划分网格
到目前为止的程序如下:! ******** 设置环境变量 ***************
FINISH
/CLEAR
/FILN, xiejieguan
/TITLE,
/UNITS,SI
!采用国际单位制
!**********参数定义*********************
Rci=2078 ! 筒体内半径
tc=117 ! 筒体厚度
Rco=Rci+tc ! 筒体外半径
Lc=7000 ! 筒体长度
Rw=1400 !接管焊缝处半径
Rno=810 ! 接管外半径
tn=147 ! 接管厚度
Rni=Rno-tn ! 接管内半径
Ln=2300 ! 接管外伸长度
rr1=100 ! 焊缝外侧过渡圆角半径
rr2=80 ! 焊缝内侧过渡圆角半径
pi=3.9 ! 内压
pc=-pi*Rci**2/(Rco**2-Rci**2) ! 筒体端部轴向平衡面载荷
! ********* 前处理 ************
/PREP7
ET,1,95
! 定义单元类型
MP,EX,1,2E5
! 定义材料的弹性模量
MP,NUXY,1,0.3
! 定义材料的泊松比
R,1,1
! 定义质量单元的实常数
! ********* 建立模型 ************
cylind,Rco+250,Rco,-Lc/2,Lc/2,90,270, ! 生成辅助筒体
wpoff,0,Rci
wprot,0,150, ! 将工作面沿yz旋转150度
CSWPLA,11
cylind,Rno+250,Rno,-Ln-2000,3000,90,270, ! 生成辅助斜接管
vptn,all
vdele,3,5,1,1 ! 删除不必要筒体
vdele,7,,,1 ! 删除不必要筒体
!建立外表面的倒角
afillt,16,26,rr1 ! 筒体与接管外表面圆角
vsba,6,2 ! 切割外伸接管
vdele,2,,,1 ! 删除不必要筒体
cylind,Rno+300,Rno+250,-Ln-2000,2500,90,270, ! 生成辅助斜接管
vdele,2 ! 删除不必要体
adele,1,,,1
adele,3,,,1
adele,10,,,1
adele,11,,,1
adele,2,,,1
cylind,Rno,Rni,-Ln,1800,90,270, ! 生成斜接管
cylind,Rno,Rni,-Ln-120,-Ln,90,270, ! 生成斜接管
cylind,Rni+27,Rni,-Ln-150,-Ln-120,90,270, ! 生成斜接管
vadd,2,3,4
l,35,5
l,36,10
al,30,12,32,46
vsba,5,1
vdele,2,,,1
wpcsys,-1,0
cylind,Rco,Rci,-Lc/2,Lc/2,90,270, ! 生成筒体
vsba,2,7 ! 切割生成筒体
adele,7,,,1
vptn,all
vdele,7,,,1 ! 删除不必要体
vdele,2,,,1 ! 删除不必要体
vadd,9,6,7
aadd,52,43
aadd,48,4.8
aadd,53,42
aadd,4,5,47 |