TCL Command ABANODE
Syntax
array set node [ABANODE nodeid GET]
Beschreibung
Abfrage der Daten eines Knotens.
|
Argument |
Dimension |
Bedeutung |
|
nodeid |
OBJID |
Objekt-ID des Knotens |
|
GET |
KEYWORD |
Daten abfragen |
Rückgabefeld
|
Feldargument |
Dimension |
Bedeutung |
|
error |
INT |
Fehlerstatus |
|
info |
TEXT |
Objekt- oder Fehlerinformation |
|
id |
OBJID |
Objekt-ID |
|
number |
INT |
Knotennummer |
|
x |
LSTRUCTD |
X-Koordinate |
|
y |
LSTRUCTD |
Y-Koordinate |
|
z |
LSTRUCTD |
Z-Koordinate |
Scopes
All
Beispiele
# units
array set uu [ABMUNIT LSTRUCT GET]
array set ur [ABMUNIT ANGLE GET]
# get dataID of mode 1
array set mode1 [ABRESULTS $sched1 EIGENMODE GET 1 ATDAY FINAL]
set dataID $mode1(id)
# list of nodes
array set nodes [ABANODES GET LIST]
# node data - displacements
set format1a " %12s %12s %12s %12s %12s %12s"
set format1b " %6d %12.8f %12.8f %12.8f %12.8f %12.8f %12.8f"
puts $outfile ""
puts $outfile " --------------------------------------------------------"
puts $outfile " Mode 1: Displacements (global)"
puts $outfile " --------------------------------------------------------"
puts $outfile ""
puts $outfile " Node Ux Uy Uz Rx Ry Rz"
puts $outfile [format $format1a $uu(symb) $uu(symb) $uu(symb) $ur(symb) $ur(symb) $ur(symb)]
puts $outfile " ------------------------------------------------------------------------------------"
set ID $nodes(first)
for { set inode 0 } { $inode < $nodes(count) } { incr inode } {
if { $inode > 0 } { set ID [OBJNEXT $ID] }
array unset node
array set node [ABANODE $ID GET]
array unset nres
array set nres [ABRNODE $node(number) GET EIGENMODE $dataID]
set ux [lindex $nres(u) 0]
set uy [lindex $nres(u) 1]
set uz [lindex $nres(u) 2]
set rx [lindex $nres(u) 3]
set ry [lindex $nres(u) 4]
set rz [lindex $nres(u) 5]
puts $outfile [format $format1b $node(number) $ux $uy $uz $rx $ry $rz]
}
Es wird angenommen, dass eine Textdatei outfile zum Schreiben geöffnet wurde. Die Ergebnisdaten werden formatiert in die Textdatei geschrieben.
Die Ausgaben sind projektabhängig und können zum Beispiel wie folgt aussehen:
--------------------------------------------------------
Mode 1: Displacements (global)
--------------------------------------------------------
Node Ux Uy Uz Rx Ry Rz
[m] [m] [m] [rad] [rad] [rad]
------------------------------------------------------------------------------------
101 -0.06808574 -0.00001676 1.00000000 0.00190870 0.01487211 -0.00044531
102 -0.06807815 -0.00231433 0.92802958 0.00347961 0.01488881 -0.00042507
103 -0.06813041 -0.00440829 0.85614120 0.00504881 0.01488316 -0.00036354
104 -0.06825014 -0.00608660 0.78449624 0.00661574 0.01483521 -0.00025858
105 -0.06842214 -0.00714452 0.71335269 0.00817987 0.01472620 -0.00010771
....
Ausgaben zu obiger Script.
