set,1,1
cmsel,s,Ende
esel,s,elem
nsel,s,node	
*get,nanz,node,,count	 !Knotenanzahl: "nanz"
*get,nmin,node,,num,min	 !Erste Knotennummer
narb=nmin	!Derfinierter Erste Knotennummer: "narb"
*dim,ergebnisse,ARRAY,nanz,4  ! nanz(Zeilen) x 4(Spalten) Array-Feld erzeugt: "ergebnisse"
*do,i,1,nanz	
    *get,krx,node,narb,u,x  
    *get,kry,node,narb,u,y  
    *get,krz,node,narb,u,z  
    ergebnisse(i,1)=narb	 
    ergebnisse(i,2)=krx	
    ergebnisse(i,3)=kry	 
    ergebnisse(i,4)=krz	 
narb=ndnext(narb)   
*enddo	
*create,ausgabe
*cfopen,export,txt,, 
  i=1 
  *vwrite,ergebnisse(i,1),ergebnisse(i,2),ergebnisse(i,3),ergebnisse(i,4)   	
  (1x,F8.1,1x,E20.5,1x,E20.5,1x,E20.5)	   
*cfclos                      
*end                            
*use,ausgabe 
/prep7		
nwrite,export,txt,,1  !Knotenliste der Komponente "Ende"
esln,s,0
EWRITE,export,txt,,1  !ElementenListe der Komponente "Ende"