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

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

lsel,s,,,24
lsel,a,,,38,39
*get,laeng,line,24,leng
istue1=nint(laeng/meshluft)
*if,istue1,lt,1,then
istue1=1
*endif
lesi,all,,,istue1

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

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

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

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

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

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

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

!!
!!Rotor
!!
asel,s,,,12,13
aatt,12,12,12

asel,s,,,8
aatt,11,11,11

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

asel,s,mat,,11,18
amesh,all

asel,s,mat,,11,18
cm,krotor,area
