TCL Command ABASECTIONS

Syntax

array set sections  [ABASECTIONS   GET   LIST]

set sectID   [ABASECTIONS   GET   SECTION   isect]

Beschreibung

Abfrage der Liste der Querschnitte im Analyse-Modell

Abfrage der Existenz eines bestimmten Querschnitts

Argument	Dimension	Bedeutung
GET	KEYWORD	Daten abfragen
LIST	KEYWORD	Querschnittsliste abfragen
SECTION	KEYWORD	Querschnitt-ID oder -Existenz abfragen
isect	INT	Nummer des Querschnitts

Rückgabefeld für [ABASECTIONS 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 [ABASECTIONS GET SECTION isect]

Return	Dimension	Bedeutung
sectID	OBJID	Querschnittt-ID oder 0

Scopes

All

Beispiele

# list of sections

array set sects [ABASECTIONS GET LIST]

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

ABMINFO "First: " $sects(first) " Last: " $sects(last) " Count: " $sects(count) " Error: " $sects(error) " Info: " $sects(info)

if { $sects(count) < 1 } {

    set error "No sections found."

    ABMERROR $error

    return

}

# section data

set ID $sects(first)

for { set isect 0 } { $isect < $sects(count) } { incr isect } {

    if { $isect > 0 } { set ID [OBJNEXT $ID] }

    array unset sect

    array set sect [ABASECTION $ID GET]

}

Die Liste der Querschnitte wird abgefragt. Die Liste wird in einer for-Schleife durchlaufen und die Daten des jeweiligen Querschnitts werden abgefragt.

# find a section by its number

set ID [ABASECTIONS GET SECTION 2]

if { $ID == 0 } {

    set error "Section '2' not found."

    ABMERROR $error

    return

}

Die ID des Querschnitts mit der Nummer 2 wird abgefragt. Im Fehlerfall wird eine Meldung geloggt.