TCL Command ABMAXIS, Listen

Syntax

array set plan [ABMAXIS axid GET PLANLIST]

array set profile [ABMAXIS axid GET PROFLIST]

set profid [ABMAXIS axid GET PROFILE profname]

Beschreibung

Abfrage der Liste der Grundrisselemente einer Achse

Abfrage der Liste der Profile einer Achse

Abfrage der Existenz eines bestimmten Profils

Argument	Dimension	Bedeutung
axid	OBJID	Objekt-ID der Achse
GET	KEYWORD	Daten abfragen
PLANLIST	KEYWORD	Liste der Grundrisselemente abfragen
PROFLIST	KEYWORD	Liste der Profile abfragen
PROFILE	KEYWORD	Profil-ID oder -Existenz abfragen
profname	TEXT	Profilname (arg3 = PROFILE)

Rückgabefeld für [ABMAXIS ... PLANLIST] oder [ABMAXIS ... PROFLIST]

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 [ABMAXIS ... PROFILE profname]

Return	Dimension	Bedeutung
profID	OBJID	Profil-ID oder 0

Scopes

All

Beispiele

array set plan [ABMAXIS $axisID GET PLANLIST]

if { $plan(count) > 0 } {

set elemID $plan(first)

for { set ielem 0 } { $ielem < $plan(count) } { incr ielem } {

if { $ielem > 0 } { set elemID [OBJNEXT $elemID] }

array unset elem

array set elem [ABMPLANELEM $elemID GET]

}

}

Die Liste der Grundrisselemente wird abgefragt. Die Liste wird in einer for-Schleife durchlaufen. Die mitlaufende ID wird ab dem 2. Durchlauf inkrementiert. Die Daten der Grundrisselemente werden abgefragt.

# all profiles

array set profile [ABMAXIS $ID GET PROFLIST]

if { $profile(count) > 0 } {

set profID $profile(first)

for { set iprof 0 } { $iprof < $profile(count) } { incr iprof } {

if { $iprof > 0 } { set profID [OBJNEXT $profID] }

array unset prof

array set prof [ABMPROFILE $profID GET]

array set polygon [ABMPROFILE $profID GET PPNTLIST]

if { $polygon(count) > 0 } {

set ppntID $polygon(first)

for { set ippnt 0 } { $ippnt < $polygon(count) } { incr ippnt } {

if { $ippnt > 0 } { set ppntID [OBJNEXT $ppntID] }

array unset ppnt

array set ppnt [ABMPROFPPNT $ppntID GET]

}

}

array set elements [ABMPROFILE $profID GET ELEMLIST]

if { $elements(count) > 0 } {

set elemID $elements(first)

for { set ielem 0 } { $ielem < $elements(count) } { incr ielem } {

if { $ielem > 0 } { set elemID [OBJNEXT $elemID] }

array unset elem

array set elem [ABMPROFELEM $elemID GET]

}

}

}

}

Die Liste der Profile wird abgefragt. Die Liste wird in einer for-Schleife durchlaufen. Die Profildaten werden abgefragt. Die Liste der Polygonpunkte wird abgefragt und durchlaufen. Die Polygonpunkte werden in einer inneren Schleife abgefragt. Die Liste der Profilelemente wird abgefragt und durchlaufen. Die Profilelemente werden in einer inneren Schleife abgefragt.