TCL Command ABRESULTS, Liste der Einüllenden

Syntax

      set dataids   [ABRESULTS "" ENVELOPE GET]

array set envret    [ABRESULTS "" ENVELOPE GET envname]

Beschreibung

Abfrage der Liste der Einhüllenden; Einhüllende sind nicht in Baupläne unterteilt, das erste Argument bleibt leer.

Abfrage einer bestimmten Einhüllenden, definiert durch seinen Namen

Argument	Dimension	Bedeutung
schedid	OBJID	Das erste Argument ist nicht anzugeben. Stattdessen ist ein Leerstring zu verwenden.
ENVELOPE	KEYWORD	Ergebnistyp der Abfrage
GET	KEYWORD	Daten abfragen
envname	TEXT	Name der Einhüllenden

Rückgabe für [ABRESULTS ... GET ...], ohne Angabe des Tages

Return	Dimension	Bedeutung
dataids	LIST	Liste der IDs der Einhüllenden

Rückgabefeld für [ABRESULTS "" ENVELOPE GET envname]

Feldargument	Dimension	Bedeutung
error	INT	Fehlerstatus
info	TEXT	Fehlerinformation
id	OBJID	Daten-ID der Einhüllenden

Scopes

All

Beispiele

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

}

Es wird angenommen, dass eine Textdatei outfile zum Schreiben geöffnet wurde. Die Ergebnisse werden formatiert in die Textdatei geschrieben.

Die Ausgaben sind projektabhängig und können zum Beispiel wie folgt aussehen:

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

    .....

Ausgaben zu obiger Script.

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

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

    ABMINFO "Envelope 'Temperature' does not exist."

} else {

    ABMINFO "Envelope 'Temperature' exists."

}

Es wird geprüft, ob die Einhüllende 'Temperature' existiert.