!!
!!Stator
!!

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

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

lsel,s,,,22,23
*get,laeng,line,22,leng
istue3=nint(laeng/mesheisen)
*if,istue3,lt,2,then
istue3=2
*endif
lesi,all,,,istue3

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

lsel,s,,,3
lesi,all,,,istue1+istue2+istue3+istue4

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

lsel,s,,,2,5,3
lsel,a,,,18,21,3
*get,laeng,line,2,leng
istue2=nint(laeng/mesheisen*2)
*if,istue2,lt,2,then
istue2=2
*endif
lesi,all,,,istue2

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

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

lsel,s,,,12,14,2
lsel,a,,,31
*get,laeng,line,12,leng
istue1=nint(laeng/meshluft)
*if,istue1,lt,1,then
istue1=1
*endif
lesi,all,,,istue1

!!
!!Stator
!!
asel,s,,,1,2
asel,a,,,5
aatt,2,2,2

asel,s,,,3
asel,a,,,7
aatt,1,1,1
*If,Zweischicht,eq,1,then
asel,s,,,6
aatt,2,2,2
*EndIf

asel,s,,,4
aatt,3,3,3

asel,s,,,6
*If,Zweischicht,eq,1,then
aatt,4,4,4
*Else
aatt,1,1,1
asel,s,,,4,5
aatt,3,3,3
*EndIf

asel,s,mat,,1,8
amesh,all

ASEL,S,MAT,,1,5 
cm,kstator,area
cm,_stator,area
