TCL Command ABAMATERIALS

Syntax

array set mats  [ABAMATERIALS   GET   LIST]

set matID [ABAMATERIALS   GET   MATERIAL   imat]

Beschreibung

Abfrage der Liste der Materialien im Analyse-Modell

Abfrage der Existenz eines bestimmten Materials

Argument	Dimension	Bedeutung
GET	KEYWORD	Daten abfragen
LIST	KEYWORD	Materialliste abfragen
MATERIAL	KEYWORD	Material-ID oder -Existenz abfragen
imat	INT	Nummer des Materials

Rückgabefeld für [ABAMATERIALS 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 [ABAMATERIALS GET MATERIAL imat]

Return	Dimension	Bedeutung
matID	OBJID	Material-ID oder 0

Scopes

All

Beispiele

# list of materials

array set mats [ABAMATERIALS GET LIST]

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

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

if { $mats(count) < 1 } {

    set error "No materials found."

    ABMERROR $error

    puts $outfile $error

    return

}

# material data

set ID $mats(first)

for { set imat 0 } { $imat < $mats(count) } { incr imat } {

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

    array unset mat

    array set mat [ABAMATERIAL $ID GET]

}

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

# find a material by its number

set ID [ABAMATERIALS GET MATERIAL 2]

if { $ID == 0 } {

    set error "Material '2' not found."

    ABMERROR $error

    return

}

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