TCL Command ABASECTIONS

Syntax

array set sections [ABASECTIONS GET LIST]

set sectID [ABASECTIONS GET SECTION isect]

Description

Query of the section list in the analysis model

Query the existence of a specific section

Argument	Dimension	Meaning
GET	KEYWORD	Query data
LIST	KEYWORD	Query the section list
SECTION	KEYWORD	Query of section ID or section existence
isect	INT	Number of section

Return array for [ABASECTIONS 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 [ABASECTIONS GET SECTION isect]

Return	Dimension	Meaning
sectID	OBJID	section-ID or 0

Scopes

All

Examples

# 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. The list is run through in a for-loop and the data of the respective cross cection object is queried.

# find a section by its number

set ID [ABASECTIONS GET SECTION 2]

if { $ID == 0 } {

set error "Section '2' not found."

ABMERROR $error

return

}

The ID of the cross section with the number 2 is queried. In case of an error, a message is written.