D:\ansys work\1.JPGl=10
m=10
h1=5
h2=8
h3=8
r1=1
r2=1.5
x1=-l/2+r1
y1=-m/2
x2=0
y2=-r2
*afun,deg
theta=atan((y2-y1)/(x2-x1))
/prep7
blc5,0,0,l,m,h1
cylind,0,r2,0,h2,0,360
cyl4,-l/2,-m/2,0,0,r1,90,h3
vovlap,all
wprota,,,90
vsbw,all,,dele
wprota,,90
vsbw,all,,dele
vsel,r,loc,x,-l/2,0
vsel,r,loc,y,-m/2,0
wpave,x1,y1,0
wprota,,-theta
vsbw,all,,dele
wpave,-l/2,-m/2+r1
wprota,,2*theta+270
vsbw,all,,dele
vsel,inve
wpcsys,1,0
wprota,45,90
vsbw,all,,dele
wprota,,,90
vsbw,all,,dele
et,1,45
mshkey,2
mshape,0,3d
esize,0.5
allsel,all
vmesh,all |