TCL Command ABANODES

Syntax

array set nodes  [ABANODES   GET   LIST]

set nodeID   [ABANODES   GET   NODE   inode]

Beschreibung

Abfrage der Knotenliste im Analyse-Modell

Abfrage der Existenz eines bestimmten Knotens

Argument	Dimension	Bedeutung
GET	KEYWORD	Daten abfragen
LIST	KEYWORD	Knotenliste abfragen
NODE	KEYWORD	Knoten-ID oder -Existenz abfragen
inode	INT	Knotennummer

Rückgabefeld für [ABANODES GET LIST]

Feldargument	Dimension	Bedeutung
error	INT	Fehlerstatus
info	TEXT	Fehlerinformation
first	OBJID	Objekt-ID des ersten Listeneintrages
last	OBJID	Objekt-ID des letzten Listeneintrages
count	INT	Anzahl der Listeneinträge

Rückgabe für [ABANODES GET NODE inode]

Return	Dimension	Bedeutung
nodeID	OBJID	Knoten-ID oder 0

Scopes

All

Beispiele

# list of nodes

array set nodes [ABANODES GET LIST]

if { $nodes(error) != 0 } { ABMERROR "Error: " $nodes(error) " Info: " $nodes(info) }

ABMINFO "First: " $nodes(first) " Last: " $nodes(last) " Count: " $nodes(count)

}

if { $nodes(count) < 1 } {

    set error "No nodes found."

    ABMERROR $error

}

# node data

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]

}

Die Liste der Knoten wird abgefragt. Die Liste wird in einer for-Schleife durchlaufen und die geometrischen Daten des jeweiligen Knotens werden abgefragt.

# find node 111

set ID [ABANODES GET NODE 111]

if { $ID == 0 } {

    set error "Node '111' not found."

   ABMERROR $error

}

Die ID des Knotens mit der Nummer 111 wird abgefragt. Im Fehlerfall wird eine Meldung geloggt.