我的等径三通命令流,忘大家多提宝贵意见
浏览：82807 回答：1
d1=1067
d2=1067
thi1=42
thi2=42
l1=800
l2=800
filo=110
fili=60
pres=10
/PREP7
/nerr,0, !进入prep7(建模)模块；
ET,1,SOLID45 !定义单元类型；
ET,2,SOLID92 !定义单元类型；
MPTEMP,,,,,,,,
MPTEMP,1,0
MPDATA,EX,1,,1.84e5 !定义弹性模量；
MPDATA,PRXY,1,,0.3 !定义泊松比；
cylind,d1/2,d1/2-thi1,0,l1,0,90 !生成主管(1/4模型)；
wprota,,-90, !旋转工作坐标系以便于生成支管接管；
cylind,d2/2,d2/2-thi2,0,l2,-90,0 !生成支管(1/4模型)；
vdele,all !删除所有体以方便面的裁减；
aovlap,3,9 !搭接外导圆弧所导的两个面；
aovlap,4,10 !搭接内导圆弧所导的两个面；
adele,1,13,2 !删除多余面；
adele,12,14,2 !删除多余面；
adele,6 !删除多余面；
AFILLT,18,17,fili, !生成内导圆弧；
AFILLT,16,15,filo, !生成外导圆弧；
nummrg,kp !合并关键点；
numcmp,kp !压缩关键点；
LSTR,17,19 !生成直线以建立管与相贯处分割面；
LSTR,18,20 !生成直线以建立管与相贯处分割面；
LSTR,2,1 !生成直线以建立管与相贯处分割面；
al,15,25,32,39 !生成相贯处端面；
al,15,46,48,1 !生成管与相贯处分割面；
al,1,25,51,52 !生成管与相贯处分割面；
al,49,50,20,15 !生成管对称面；
al,6,25,53,55 !生成管对称面；
al,8,1,10,12 !生成管对称面；
al,1,18,21,23 !生成管对称面；
nummrg,all
numcmp,all
va,3,11,6,9,10 !生成相贯体；
va,1,5,8,10,12,15 !生成管体；
va,2,4,7,11,13,14 !生成管体；
WPCSYS,-1 !把工作平面定义为坐标原点；
cylind,533.5,491.5,0,800,-90,0 !建立主管的另外1/4模型；
btol,1e-2 !原容差太小无法进行布尔运算从新设置容差；
vglue,2,1 !粘接副管和相贯体；
vglue,4,3 !粘接主管和相贯体；
vglue,1,3 !粘接主管和后建立的1/4主管；
wprota,,-45 !将工作平面绕x轴转动-45度以方便切割相贯体；
wprota,,,-4.5 !将工作平面绕y轴转动-18度以方便切割相贯体；
VSBW,5 !切割相贯体以方便网格划分；
vglue,2,4 !粘接切割后的两个相贯体；
TYPE,1 !选用1号(solid45)单元；
MAT,1 !选用1号材质；
!定义每个线上的单元数量；
lesize,all,0,,40
lesize,1,0,,5
lesize,8,0,,5
lesize,40,0,,5
lesize,47,0,,5
lesize,6,0,,5
lesize,25,0,,5
lesize,15,0,,5
lesize,20,0,,5
lesize,18,0,,5
lesize,48,0,,5
lesize,50,0,,5
lesize,56,0,,38
lesize,57,0,,38
lesize,58,0,,38
lesize,59,0,,38
lesize,45,0,,2
lesize,42,0,,2
lesize,44,0,,2
lesize,41,0,,2
lesize,28,0,,16
lesize,31,0,,16
lesize,43,0,,16
lesize,46,0,,16
!采用扫略划分相贯体上半部分及所有管的网格；
vsweep,1
vsweep,3
vsweep,5
vsweep,6
TYPE,2 !选用2号(solid92)单元；
MAT,1 !选用1号材质；
vmesh,2 !采用智能方式划分相贯体下半部分的网格；
ldele,all !删除多余的线；
adele,all !删除多余的面；
/nerr,5
finish !退出prep7(建模)模块；
/solu !进入solve(求解)模块；
!添加对称约束条件；
da,12,symm
da,9,symm
da,13,symm
da,20,symm
da,15,symm
da,1,symm
!添加管口的位移约束模仿与管道焊接状态；
DA,8,UY,
DA,2,UZ,
DA,3,UZ,
!在内表面添加压强载荷；
SFA,24,1,PRES,pres
SFA,11,1,PRES,pres
SFA,4,1,PRES,pres
SFA,25,1,PRES,pres
/STATUS,SOLU
SOLVE !求解；
FINISH !退出solve(求解)模块；
d2=1067
thi1=42
thi2=42
l1=800
l2=800
filo=110
fili=60
pres=10
/PREP7
/nerr,0, !进入prep7(建模)模块；
ET,1,SOLID45 !定义单元类型；
ET,2,SOLID92 !定义单元类型；
MPTEMP,,,,,,,,
MPTEMP,1,0
MPDATA,EX,1,,1.84e5 !定义弹性模量；
MPDATA,PRXY,1,,0.3 !定义泊松比；
cylind,d1/2,d1/2-thi1,0,l1,0,90 !生成主管(1/4模型)；
wprota,,-90, !旋转工作坐标系以便于生成支管接管；
cylind,d2/2,d2/2-thi2,0,l2,-90,0 !生成支管(1/4模型)；
vdele,all !删除所有体以方便面的裁减；
aovlap,3,9 !搭接外导圆弧所导的两个面；
aovlap,4,10 !搭接内导圆弧所导的两个面；
adele,1,13,2 !删除多余面；
adele,12,14,2 !删除多余面；
adele,6 !删除多余面；
AFILLT,18,17,fili, !生成内导圆弧；
AFILLT,16,15,filo, !生成外导圆弧；
nummrg,kp !合并关键点；
numcmp,kp !压缩关键点；
LSTR,17,19 !生成直线以建立管与相贯处分割面；
LSTR,18,20 !生成直线以建立管与相贯处分割面；
LSTR,2,1 !生成直线以建立管与相贯处分割面；
al,15,25,32,39 !生成相贯处端面；
al,15,46,48,1 !生成管与相贯处分割面；
al,1,25,51,52 !生成管与相贯处分割面；
al,49,50,20,15 !生成管对称面；
al,6,25,53,55 !生成管对称面；
al,8,1,10,12 !生成管对称面；
al,1,18,21,23 !生成管对称面；
nummrg,all
numcmp,all
va,3,11,6,9,10 !生成相贯体；
va,1,5,8,10,12,15 !生成管体；
va,2,4,7,11,13,14 !生成管体；
WPCSYS,-1 !把工作平面定义为坐标原点；
cylind,533.5,491.5,0,800,-90,0 !建立主管的另外1/4模型；
btol,1e-2 !原容差太小无法进行布尔运算从新设置容差；
vglue,2,1 !粘接副管和相贯体；
vglue,4,3 !粘接主管和相贯体；
vglue,1,3 !粘接主管和后建立的1/4主管；
wprota,,-45 !将工作平面绕x轴转动-45度以方便切割相贯体；
wprota,,,-4.5 !将工作平面绕y轴转动-18度以方便切割相贯体；
VSBW,5 !切割相贯体以方便网格划分；
vglue,2,4 !粘接切割后的两个相贯体；
TYPE,1 !选用1号(solid45)单元；
MAT,1 !选用1号材质；
!定义每个线上的单元数量；
lesize,all,0,,40
lesize,1,0,,5
lesize,8,0,,5
lesize,40,0,,5
lesize,47,0,,5
lesize,6,0,,5
lesize,25,0,,5
lesize,15,0,,5
lesize,20,0,,5
lesize,18,0,,5
lesize,48,0,,5
lesize,50,0,,5
lesize,56,0,,38
lesize,57,0,,38
lesize,58,0,,38
lesize,59,0,,38
lesize,45,0,,2
lesize,42,0,,2
lesize,44,0,,2
lesize,41,0,,2
lesize,28,0,,16
lesize,31,0,,16
lesize,43,0,,16
lesize,46,0,,16
!采用扫略划分相贯体上半部分及所有管的网格；
vsweep,1
vsweep,3
vsweep,5
vsweep,6
TYPE,2 !选用2号(solid92)单元；
MAT,1 !选用1号材质；
vmesh,2 !采用智能方式划分相贯体下半部分的网格；
ldele,all !删除多余的线；
adele,all !删除多余的面；
/nerr,5
finish !退出prep7(建模)模块；
/solu !进入solve(求解)模块；
!添加对称约束条件；
da,12,symm
da,9,symm
da,13,symm
da,20,symm
da,15,symm
da,1,symm
!添加管口的位移约束模仿与管道焊接状态；
DA,8,UY,
DA,2,UZ,
DA,3,UZ,
!在内表面添加压强载荷；
SFA,24,1,PRES,pres
SFA,11,1,PRES,pres
SFA,4,1,PRES,pres
SFA,25,1,PRES,pres
/STATUS,SOLU
SOLVE !求解；
FINISH !退出solve(求解)模块；
bart 
