
!!
!!Rotor
!!
lsel,s,,,54,55
lsel,a,,,117
*get,laeng,line,54,leng
istue1=nint(laeng/meshluft)
*if,istue1,lt,1,then
istue1=1
*endif
lesi,all,,,istue1

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

lsel,s,,,65
lsel,a,,,98
lsel,a,,,112,116,2
*get,laeng,line,65,leng
istue1=nint(laeng/meshluft)
*if,istue1,lt,1,then
istue1=1
*endif
lesi,all,,,istue1

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

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

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

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

lsel,s,,,63
*get,laeng,line,63,leng
istue1=nint(laeng/mesheisen)
*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

!!
!!Rotor
!!
asel,s,,,36
aatt,11,11,11

asel,s,,,31,32
aatt,12,12,12

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

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


asel,s,,,31,36
amesh,all

asel,s,,,31,36
cm,krotor,area
