桥台几何模型

石中玉

最近在优酷上看《水哥ANSYS初级教程》，第20课的课后作业，自己做的桥台模型。



以下是命令流：
finish
/clear
!单位m，比例因子k=1.0
k=1.0
b0=5*k
b1=3.9*k
b2=2.2*k
b3=3.4*k
b4=3.8*k
b5=5*k
b6=2.6*k
b7=4.2*k
d0=1.1*k
d1=5.65*k
d2=2*k
d3=0.2*k
d4=3.55*k
d5=2.4*k
d6=4.35*k
d7=3.3*k
d8=0.2*k
h1=1.58*k
h2=6*k
h3=1*k
h4=1*k
h5=2.38*k
h6=0.5*k
h7=1.1*k
h8=0.65*k
h9=(h1+h2-h5-h6-h7)*k

/filname,Abutment
/title,Abutment modeling
/vup,all,z
/view,-1,1,1
/prep7
blc4,0,-b7/2,d6,b7,h4
blc4,d6,-b5/2,d7,b5,h4
wpoffs,d6-d4,0,h4
blc4,0,-b6/2,d4,b6,h3
blc4,d4,-b4/2,d5,b4,h3
csys,0
wpcsys,-1,0
wpoffs,d6+d3,0,h3+h4
blc4,0,-b3/2,d2,b3,h9
wpoffs,0,0,h9
kgen,2,37,38,1,0,-(b0-b3)/2+d3,h7
kgen,2,39,40,1,0,(b0-b3)/2-d3,h7
v,37,38,39,40,41,42,43,44
wpoffs,-d3,0,h7
blc4,0,-b0/2,d2+2*d3,b0,h6
wpcsys,-1,0
wpoffs,d6-d4+d8,0,h3+h4
blc4,0,-b2/2,d1-(d6-d4+d8),b2,h2
kgen,2,57,60,3,-(d6-d4+d8)
v,53,60,62,54,57,61
wpcsys,-1,0
wpoffs,0,0,h2+h3+h4
blc4,0,-b2/2,d1,b2,h1
wpoffs,0,0,h1
!wprota,0,90,90
kgen,2,70,70,0,0,(b1-b2)/2,0.2
kgen,2,67,67,0,0,-(b1-b2)/2,0.2
kgen,2,71,72,1,0,0,0.45
kgen,2,73,73,0,0,-0.2
kgen,2,74,74,0,0,0.2
kgen,2,75,75,0,0,-0.1,-0.3
kgen,2,76,76,0,0,0.1,-0.3
a,67,72,74,76,78,77,75,73,71,70
vext,58,,,d1
wpcsys,-1,0
vadd,all
aadd,80,81
aadd,48,86,93
aadd,51,85,92
aadd,1,87
nummrg,all
numcmp,all