TCL Command ABRESULTS, List of envelopes

Syntax

set dataids [ABRESULTS "" ENVELOPE GET]

array set envret [ABRESULTS "" ENVELOPE GET envname]

Description

Query the list of envelopes; envelopes are not divided into schedules, the first argument remains empty.

Query of a specific envelopes, defined by its name

Argument	Dimension	Meaning
schedid	OBJID	The first argument is not to be entered. An empty string should be used instead.
ENVELOPE	KEYWORD	Result type of query
GET	KEYWORD	Query data
envname	TEXT	Name of the envelope

Return for [ABRESULTS ... GET ...], without specification of the day

Return	Dimension	Meaning
dataids	LIST	List of Ids of envelopes

Return array for [ABRESULTS "" ENVELOPE GET envname]

Array item	Dimension	Meaning
error	INT	Error code
info	TEXT	Error information
id	OBJID	Data ID of the envelope

Scopes

All

Examples

# Envelopes

# ---------

puts $outfile ""

puts $outfile " Envelopes"

puts $outfile " ----------------------------------"

set dataIDs [ABRESULTS "" ENVELOPE GET]

puts $outfile ""

puts $outfile " Envelope Leads"

puts $outfile " --------------------------------------------------------------------------------"

set format5 " %-30s %s"

foreach dataID $dataIDs {

array unset env

array set env [ABRESULT $dataID ENVELOPE GET]

puts $outfile [format $format5 $env(name) $env(leads)]

}

It is assumed that a text file outfile has been opened for writing . The results are written formatted into the text file.

The output is project-dependent and can look like the following, for example:

Envelopes

----------------------------------

Envelope Leads

--------------------------------------------------------------------------------

Braking Ux Uy Uz Rx Ry Rz Nx Vy Vz Mx My Mz

CFG-Euronorm Ux Uy Uz Rx Ry Rz Nx Vy Vz Mx My Mz

EQ_X-max Ux Uy Uz Rx Ry Rz Nx Vy Vz Mx My Mz

EQ_Y-max Ux Uy Uz Rx Ry Rz Nx Vy Vz Mx My Mz

EQ_Z-max Ux Uy Uz Rx Ry Rz Nx Vy Vz Mx My Mz

Earthquake_fin Ux Uy Uz Rx Ry Rz Nx Vy Vz Mx My Mz

Grad-linear-Temperature Ux Uy Uz Rx Ry Rz Nx Vy Vz Mx My Mz

.....

Output for script above.

array set envret [ABRESULTS "" ENVELOPE GET "Temperature"]

if { $envret(id) == 0 } {

ABMINFO "Envelope 'Temperature' does not exist."

} else {

ABMINFO "Envelope 'Temperature' exists."

}

It is checked, if the envelope 'Temperature' exists.