TCL Command ABAELEMS

Syntax

array set elems [ABAELEMS GET LIST]

set elemID [ABAELEMS GET ELEM ielem]

Description

Query of the element list in the analysis model

Query the existence of a specific element

Argument	Dimension	Meaning
GET	KEYWORD	Query data
LIST	KEYWORD	Query the element list
ELEM	KEYWORD	Query of the element ID or element existence
ielem	INT	Element number

Return array for [ABAELEMS GET LIST]

Array item	Dimension	Meaning
error	INT	Error code
info	TEXT	Error information
first	OBJID	Object-ID of the first list element
last	OBJID	Object-ID of the last list element
count	INT	Number of list elements

Return for [ABAELEMS GET ELEM ielem]

Return	Dimension	Meaning
elemID	OBJID	Element-ID or 0

Scopes

All

Examples

# 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]

}

The list of elements is queried. The list is run through in a for-loop and the geometric data of the respective element object is queried.

# find element 111

set ID [ABAELEMS GET ELEM 111]

if { $ID == 0 } {

set error "Element '111' not found."

ABMERROR $error

}

The ID of the element with the number 111 is queried. In case of an error, a message is written.