Hallo ! Zum Bsp. so !
!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!
!Ursprungskoordinaten auslesen
!Nodeanzahl des gewählten Sets
*get,nanz,node,,count !Anzahl der Knoten
!Array mit 3 Spaltenv und Nanz Zeilen
*dim,A,array,3,nanz !array(Spalte, Zeile)
narb=0 !Arbeits-Knoten
*do,j,1,nanz !Schleife mit Nanz durchläufen
!zur naechsten NodeNr. springen
narb=ndnext(narb)
kn=narb !kn = NodNr.
!Koordinaten in Array schreiben
*vget,A(1,j),node,kn,loc,x
*vget,A(2,j),node,kn,loc,y
*vget,A(3,j),node,kn,loc,z
*enddo
/input,'ErgebnisDateiNeu','dat','/usertemp/bim/str/BMDuvar',, 0
!anstelle /usertemp/bim/str/AnsysArbeit/ Dein Arbeitsverzeichnis angeben
Ins Arbeitsverzeichnis muss dann eine Datei kopiert werden die
ErgebnisDateiNeu.dat heißt mit folgendem Inhalt:
*cfopen,daten,txt, !Textdatei oeffnen
*do,i,1,nanz !NodeAnzahl
*vwrite, A(1,i), A(2,i), A(3,i),
(E10.4E2,4x,E10.4E2,4x,E10.4E2)
*enddo
*cfclose
Grüße Stephan22
------------------
SR
Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP