TCL Command ABMAXES

Syntax

array set axes [ABMAXES GET LIST]

set axisID [ABMAXES GET AXIS axisname]

Beschreibung

Abfrage der Achsen im Modell

Abfrage der Existenz einer bestimmten Achse

Argument	Dimension	Bedeutung
GET	KEYWORD	Daten abfragen
LIST	KEYWORD	Achsliste abfragen
AXIS	KEYWORD	Achsen-ID oder -Existenz abfragen
axisname	TEXT	Name der Achse (arg2 = AXIS)

Rückgabefeld für [ABMAXES GET LIST]

Feldargument	Dimension	Bedeutung
error	INT	Fehlerstatus
info	TEXT	Fehlerinformation
first	OBJID	Objekt-ID des ersten Listeneintrages
last	OBJID	Objekt-ID des letzten Listeneintrages
count	INT	Anzahl der Listeneinträge

Rückgabe für [ABMAXES GET AXIS axisname]

Return	Dimension	Bedeutung
axisID	OBJID	Achsen-ID oder 0

Scopes

All

Beispiele

array set axes [ABMAXES GET LIST]

if { $axes(count) > 0 } {

set ID $axes(first)

for { set iaxis 0 } { $iaxis < $axes(count) } { incr iaxis } {

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

}

}

Die Liste der Achsen wird abgefragt. Wenn die Anzahl der Achsen größer Null ist, dann wird die Liste in einer for-Schleife durchlaufen. Die mitlaufende ID wird ab dem 2. Durchlauf inkrementiert.

# find an axis

set axisID [ABMAXES GET AXIS "Achse(HT)"]

if { $axisID == 0 } {

set error "Achse 'Achse(HT)' nicht gefunden."

LOGERROR $error

}

Die ID der Achse "Achse(HT)" wird erfragt und wenn die Achse nicht existiert, wird eine Fehlermeldung geschrieben.