TCL Command ABAELEMS

Syntax

array set elems  [ABAELEMS   GET   LIST]

set elemID   [ABAELEMS   GET   ELEM   ielem]

Beschreibung

Abfrage der Elementliste im Analyse-Modell

Abfrage der Existenz eines bestimmten Elements

Argument	Dimension	Bedeutung
GET	KEYWORD	Daten abfragen
LIST	KEYWORD	Elementliste abfragen
ELEM	KEYWORD	Element-ID oder -Existenz abfragen
ielem	INT	Elementnummer

Rückgabefeld für [ABAELEMS 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 [ABAELEMS GET ELEM ielem]

Return	Dimension	Bedeutung
elemID	OBJID	Element-ID oder 0

Scopes

All

Beispiele

# list of elements

array set elems [ABAELEMS GET LIST]

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

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

}

if { $elems(count) < 1 } {

    set error "No elements found."

    ABMERROR $error

}

# element data

set ID $elems(first)

for { set ielem 0 } { $ielem < $elems(count) } { incr ielem } {

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

    array unset eshape

    array set eshape [ABAELEM $ID GET SHAPE]

}

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

# find element 111

set ID [ABAELEMS GET ELEM 111]

if { $ID == 0 } {

    set error "Element '111' not found."

   ABMERROR $error

}

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