|
|
|
Syntax
array set nres [ABRNODE number GET LOADCASE dataid]
array set nres [ABRELEM number GET EIGENMODE dataid]
Description
Query the results at the specified node for a specific load case.
Query the results at the specified node for a specific Eigenmode.
Argument |
Dimension |
Meaning |
number |
INT |
Element number |
GET |
KEYWORD |
Query data |
LOADCASE |
KEYWORD |
Query load case results |
EIGENMODE |
KEYWORD |
Query results of Eigenmode |
dataid |
OBJID |
Data ID of load case or Eigenmode |
Return array for [ABRELEM number GET ... dataid ATNODE k], beam elements and springs
Array item |
Dimension |
Meaning |
error |
INT |
Error code |
info |
TEXT |
Error information |
u |
LIST |
6 deformations, where the first 3 components are of dimension LSTRUCT and the last 3 components (rotations) are of dimension ANGLE |
Scopes
All
Examples
# units
array set uu [ABMUNIT LSTRUCT GET]
array set ur [ABMUNIT ANGLE GET]
# loadcase dataID
array set lcret [ABRESULTS "Schedule1" LOADCASE GET "SUM" ATDAY FINAL]
set dataID $lcret(id)
array set lcinfo [ABRESULT $dataID LOADCASE GET]
# 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 " Loadcase '$lcinfo(name)' at $lcinfo(day): 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 LOADCASE $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]
}
It is assumed that a text file outfile has been opened for writing . The result data is written formatted into the text file.
The output is project-dependent and can look like the following, for example:
----------------------------------------------------------------
Loadcase 'SUM' at FINAL: Displacements (global)
----------------------------------------------------------------
Node Ux Uy Uz Rx Ry Rz
[m] [m] [m] [rad] [rad] [rad]
------------------------------------------------------------------------------------
101 0.04566809 -0.00009021 0.00253247 -0.00007414 0.00043993 0.00082885
102 0.04307467 0.00444054 0.00014274 -0.00022485 0.00042666 0.00095191
103 0.04081353 0.00894737 -0.00220194 -0.00037327 0.00041859 0.00081970
104 0.03879494 0.01227730 -0.00452221 -0.00051765 0.00041421 0.00050454
105 0.03689927 0.01382573 -0.00682797 -0.00065836 0.00041142 0.00011929
....
Output for script above.
|
(C) ALLPLAN GmbH |
Privacy policy |
