---

Hallo,

ich habe eine Datei mit Knotenkoordinaten, die ich auf mein aktuelles Netz übertragen will.
Anschließend möchte ich die gemappten Knoten in eine Datei schreiben.
Das ganze muss über einen APDL-Befehl in Mechanical laufen.

Mein bisheriger Versuch ist mit folgendem APDL-Code gescheitert:

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

---

Es wird keine Datei geschrieben. Als Fehler kommt

Code:

---

*** ERROR ***                          CP =    209.931  TIME= 16:33:37
Not enough columns in matrix 1. 

---

sowie für ziemliche alle Knoten:

Code:

---

*** NOTE ***                            CP =    209.931  TIME= 16:33:37
Result Point X is not close to region.                                 

---

Irgendwo ist wohl ein Fehler, oder die Vorgehensweise ist falsch.

Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP