allsel

!!
!!Rotor
!!
*If,Zweischicht2,eq,1,then

csys,1

*Do,ileit,1,z2
asel,s,mat,,13
allsel,below,area
ASEL,r,LOC,Y,-360/(2*z2)+(ileit-1)*360/(z2),360/(2*z2)+(ileit-1)*360/(z2) 
allsel,below,area

cp,next,curr,all
cp,next,emf,all
*GET,wicknode1r%ileit%, NODE, 0,num,min

asel,s,mat,,14
allsel,below,area
ASEL,r,LOC,Y,-360/(2*z2)+(ileit-1)*360/(z2),360/(2*z2)+(ileit-1)*360/(z2) 
allsel,below,area

cp,next,curr,all
cp,next,emf,all
*GET,wicknode2r%ileit%, NODE, 0,num,min

*EndDo

*Else

*Do,ileit,1,z2
asel,s,mat,,13
allsel,below,area
ASEL,r,LOC,Y,-360/(2*z2)+(ileit-1)*360/(z2),360/(2*z2)+(ileit-1)*360/(z2) 
allsel,below,area

cp,next,curr,all
cp,next,emf,all
*GET,wicknode1r%ileit%, NODE, 0,num,min

*EndDo

*EndIf

esel,s,mat,,11  
!!esel,a,mat,,13,14   
cm,kraftrot,elem
fmagbc,'kraftrot'

allsel

