TCL Command ABANODES

Syntax

array set nodes [ABANODES GET LIST]

set nodeID [ABANODES GET NODE inode]

Description

Query of the node list in the analysis model

Query the existence of a specific node

Argument	Dimension	Meaning
GET	KEYWORD	Query data
LIST	KEYWORD	Query the node list
NODE	KEYWORD	Query of node ID or node existence
inode	INT	Node number

Return array for [ABANODES 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 [ABANODES GET NODE inode]

Return	Dimension	Meaning
nodeID	OBJID	node-ID or 0

Scopes

All

Examples

# list of nodes

array set nodes [ABANODES GET LIST]

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

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

}

if { $nodes(count) < 1 } {

set error "No nodes found."

ABMERROR $error

}

# node data

set ID $nodes(first)

for { set inode 0 } { $inode < $nodes(count) } { incr inode } {

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

array unset node

array set node [ABANODE $ID GET]

}

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

# find node 111

set ID [ABANODES GET NODE 111]

if { $ID == 0 } {

set error "Node '111' not found."

ABMERROR $error

}

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