如果一次对所有体sWEEP,可能不行。逐个体进行SWEEP还行,但过渡段的体网格不好,可以自由划分一下,不知可否。下列命令流亦来自于网上,我稍作修改。
finish
/clear
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主管;
vsweep,1
vsweep,3
vsweep,5
vsweep,6 |