TCL Command ABRELEM, Nachweisergebnisse

Syntax

array set rescol [ABRELEM number GET DESIGN resname resset resgroup ATNODE k]

set rowid [ABRELEM number EXIST DESIGN resname resset resgroup ATNODE k]

array set ret [ABRELEM number INS DESIGN resname resset resgroup ATNODE k]

array set ret [ABRELEM number DEL DESIGN resname resset resgroup ATNODE k]

set rowlist [ABRELEM number GETROWID DESIGN]

set rowlist [ABRELEM number GETROWID DESIGN resname]

set rowlist [ABRELEM number GETROWID DESIGN ATNODE k]

set rowlist [ABRELEM number GETROWID DESIGN resset]

set rowlist [ABRELEM number GETROWID DESIGN resname resset]

Beschreibung

Abfrage der Daten zu einem bestimmten Ergebnis; Fehlende Argumente werden durch Defaultwerten ersetzt.

Prüfung der Existenz eines bestimmten Ergebnisses (1 Ergebniszeile)

Einfügen eines neuen Ergebnisses; Fehlende Argumente werden durch Defaultwerten ersetzt.

Löschen vorhandener Ergebnisse; Die Argumente nach DESIGN bestimmen die SQL-WHERE-Klausel.

Derzeit sind 5 Varianten von Abfragen der Ergebniszeilen zur Weiterverarbeitung möglich. Die IDs in der ID-Liste rowlist werden für die Abfrage der Ergebniszeile(n) benötigt.

Argument	Dimension	Bedeutung
number	INT	Elementnummer
GET	KEYWORD	Daten abfragen
EXIST	KEYWORD	Prüfung auf Existenz
INS	KEYWORD	Einfügen eines neuen Ergebnisses
DEL	KEYWORD	Löschen eines vorhandenen Ergebnisses
GETROWID	KEYWORD	Abfrage der Ergebniszeilen
DESIGN	KEYWORD	Abfrage der Nachweisergebnisse
resname	TEXT	Name des Ergebnisses
resset	ENUM	Name des Referenzsets, wenn anwendbar
resgroup	ENUM	Name der Ergebnisgruppe, wenn anwendbar
ATNODE	KEYWORD	Es folgt die Angabe des Elementknotens als nächstes Argument
k	INT	Elementknoten (1,2,...)

Rückgabefeld für [ABRELEM ... GET DESIGN ... ]

Feldargument	Dimension	Bedeutung
error	INT	Fehlerstatus
info	TEXT	Fehlerinformation
res1, res2, …	INT, FLOAT, TEXT, BLOB, NULL	Die Feldargumente sind nach dem Ergebnis benannt. Das Ergebnis kann unterschiedlichen Typs sein. Falls das Ergebnis vom Typ BLOB ist, kann es nicht gelesen werden und der Wert wird als "BLOB" zurückgegeben. Falls der Eintrag in der Tabelle fehlt, dann wird "NULL" als Wert zurückgegeben.

Rückgabe für [ABRELEM ... EXIST DESIGN ... ]

Return	Dimension	Bedeutung
rowid	OBJID	Zeilen-ID oder 0

Rückgabefeld für [ABRELEM ... INS DESIGN ... ]

Feldargument	Dimension	Bedeutung
error	INT	Fehlerstatus
info	TEXT	Fehlerinformation
rowid	OBJID	ID der eingefügten Zeile oder 0; Falls die Zeile bereits existiert, wird die bestehende Zeile zurückgegeben und der Fehlerstatus 10 gesetzt.

Rückgabefeld für [ABRELEM ... DEL DESIGN ... ]

Feldargument	Dimension	Bedeutung
error	INT	Fehlerstatus
info	TEXT	Fehlerinformation

Rückgabe für [ABRELEM ... GETROWID DESIGN ... ]

Return	Dimension	Bedeutung
rowlist	LIST	Liste von Zeilen-IDs

Scopes

All

Beispiele

puts $outfile ""

puts $outfile " Element 101, node 1, Torsion Reinforcement:"

puts $outfile " -------------------------------------------"

set format2 " %s = %s"

array unset row

array set row [ABRELEM 101 GET DESIGN "" Torsion Reinforcement ATNODE 1]

foreach {key value} [array get row] {

puts $outfile [format $format2 $key $value]

}

Es wird angenommen, dass eine Textdatei outfile zum Schreiben geöffnet wurde. Die Ergebnisdaten werden formatiert in die Textdatei geschrieben. Hier werden alle Ergebnisse des Elements 101 am Knoten 1 für "Torsion" und Gruppe "Reinforcement" abgefragt.

Die Ausgaben sind projektabhängig und können zum Beispiel wie folgt aussehen:

Element 101, node 1, Torsion Reinforcement:

-------------------------------------------

BLZ = NULL

A3 = NULL

info =

A4 = 26.8082573

A1 = NULL

error = 0

XResult = NULL

BLY = NULL

Va = NULL

A6 = 26.8082573

Ausgaben zu obiger Script.

set myresname "Combination X"

array set insret [ABRELEM 111 INS DESIGN $myresname "Foreign" "" ATNODE 1]

ABMWARN "Insert $myresname for element 111, node 1: $insret(info)"

Es wird das Ergebnis "Combination X", Set "Foreign" für ELement 111 und Knoten 1 eingefügt, falls es noch nicht existiert. Das Einfügen wird geloggt.

# delete all rows referring to "Combination X"

array set delret [ABRELEM 0 DEL DESIGN "Combination X"]

ABMWARN "$delret(info)"

Es werden alle Zeilen zum Ergebnis "Combination X" gelöscht. Das Löschen wird geloggt.

set rows [ABRELEM 111 GETROWID DESIGN]

set nrow [llength $rows]

Es werden alle Ergebniszeilen des Elements 111 abfragt. Die Dimension nrow der Liste rows von Zeilen-IDs wird ermittelt.