
!!
!!Rotor
!!
lsel,s,,,47,49,2
*get,laeng,line,49,leng
istue1=nint(laeng/meshluft)
*if,istue1,lt,1,then
istue1=1
*endif
lesi,all,,,istue1

lsel,s,,,46,48,2
*get,laeng,line,48,leng
istue1=nint(laeng/meshluft)
*if,istue1,lt,1,then
istue1=1
*endif
lesi,all,,,istue1

lsel,s,,,40,43,3
lsel,a,,,52
*get,laeng,line,52,leng
istue1=nint(laeng/meshluft)
*if,istue1,lt,1,then
istue1=1
*endif
lesi,all,,,istue1

lsel,s,,,18
lsel,a,,,51
*get,laeng,line,18,leng
istue1=nint(laeng/mesheisen)
*if,istue1,lt,1,then
istue1=1
*endif
lesi,all,,,istue1

lsel,s,,,32
lsel,a,,,58
*get,laeng,line,32,leng
istue1=nint(laeng/mesheisen)
*if,istue1,lt,1,then
istue1=1
*endif
lesi,all,,,istue1

lsel,s,,,33
lsel,a,,,59
*get,laeng,line,33,leng
istue1=nint(laeng/mesheisen)
*if,istue1,lt,1,then
istue1=1
*endif
lesi,all,,,istue1

lsel,s,,,53,57,2
*get,laeng,line,53,leng
istue1=nint(laeng/mesheisen)
*if,istue1,lt,1,then
istue1=1
*endif
lesi,all,,,istue1

lsel,s,,,4
*get,laeng,line,4,leng
istue1=nint(laeng/mesheisen)
*if,istue1,lt,1,then
istue1=1
*endif
lesi,all,,,istue1

lsel,s,,,45
*get,laeng,line,45,leng
istue1=nint(laeng/mesheisen)
*if,istue1,lt,1,then
istue1=1
*endif
lesi,all,,,istue1

lsel,s,,,2
*get,laeng,line,2,leng
istue1=nint(laeng/mesheisen)
*if,istue1,lt,1,then
istue1=1
*endif
lesi,all,,,istue1
!!
!!Rotor
!!
asel,s,,,17
aatt,11,11,11

asel,s,,,12,16,4
aatt,12,12,12

asel,s,,,13
aatt,13,13,13

*If,zweischicht2,eq,1,then
asel,s,,,14
aatt,12,12,12
asel,s,,,15
aatt,14,14,14
*Else
asel,s,,,14
aatt,13,13,13
asel,s,,,15
aatt,11,11,11
*EndIf


asel,s,,,12,17
amesh,all

asel,s,,,12,17
cm,krotor,area
