Code:
!aktuelles Netz
*get,mpmax,node,,num,max !Knotenanzahl
*dim,netz,array,mpmax,3
*vget,netz(1,1),node,0,loc,x !laden der x koordinaten
*vget,netz(1,2),node,0,loc,y !laden der y koordinaten
*vget,netz(1,3),node,0,loc,z !laden der z koordinaten
cm,point,node
cmsel,s,point,node
!Einlesen der Knotenkoordinaten
dateiname='Knotenkoordinaten'
ext='txt'
/copy,%_wb_userfiles_dir(1)%%dateiname%,%ext%,,%dateiname%,%ext%,
/inquire,nanz,lines,%dateiname%,%ext%
*dim,koord,array,nanz,3,1
*vread,koord(1,1),%dateiname%,%ext%
(E15.8)
*vread,koord(1,2),%dateiname%,%ext%
(15x,E15.8)
*vread,koord(1,3),%dateiname%,%ext%
(30x,E15.8)
*moper,koord(1,1),netz(1,1),map !Mappen der Daten von koord auf netz
!Schleife über die gemappten Knoten
*get,nanz,node,,count !Anzahl der Knoten
!Array mit 7 Spalten und Nanz Zeilen
*dim,A,array,3,nanz !array(Spalte, Zeile)
narb=0 !Arbeits-Knoten
set,last,last !Ergebnisse letzter Lastschritt
*do,j,1,nanz !Schleife mit Nanz durchläufen
narb=ndnext(narb) !zur naechsten NodeNr. springen
!Knotenpositionen und Verschiebungswerte in Array schreiben
*get,A(1,j),node,narb,loc,x
*get,A(2,j),node,narb,loc,y
*get,A(3,j),node,narb,loc,z
*vget,A(5,j),node,narb,u,x
*vget,A(6,j),node,narb,u,y
*vget,A(7,j),node,narb,u,z
*enddo
!Schreiben der TextdateiTextdatei
*cfopen,gemappte_knoten,txt,_wb_userfiles_dir(1)
*do,i,1,nanz !NodeAnzahl
*vwrite, A(1,i), A(2,i), A(3,i), A(4,i), A(5,i), A(6,i)
(E12.4,4x,E12.4,4x,E12.4,4x,E12.4,4x,E12.4,4x,E12.4)
*enddo
*cfclose