FINISH
/CLEAR,NOSTART
*afun,deg
R=5
RH=8
D=7
DH=10
/prep7
et,1,45
*do,j,0,1
*do,i,0,7
k,j*10+i+1,r*cos(i*45),r*sin(i*45),j*RH
*enddo
*enddo
*do,j,0,1
k,20+j*10+1, D, 0,j*DH
k,20+j*10+2, D, D,j*DH
k,20+j*10+3, 0, D,j*DH
k,20+j*10+4,-D, D,j*DH
k,20+j*10+5,-D, 0,j*DH
k,20+j*10+6,-D,-D,j*DH
k,20+j*10+7, 0,-D,j*DH
k,20+j*10+8, D,-D,j*DH
*enddo
k,41,0,0,RH
k,42,0,0,DH
*do,i,1,7
v,i,20+i,30+i,10+i,i+1,20+i+1,30+i+1,10+i+1
*enddo
v,8,28,38,18,1,21,31,11
v,41,11,12,13,42,31,32,33
v,41,13,14,15,42,33,34,35
v,41,15,16,17,42,35,36,37
v,41,17,18,11,42,37,38,31
lsel,s,loc,z,RH/2
LESIZE,ALL, , ,4, ,1, , ,0,
lsel,s,loc,z,DH/2
LESIZE,ALL, , ,2, ,1, , ,0,
allsel
LESIZE,ALL, , ,1, ,0, , ,0,
mshape,0,3d
MSHKEY,1
vmesh,all |