TCL Command ABMPROFILE

Syntax

array set prof [ABMPROFILE profid GET]

array set ppnts [ABMPROFILE profid GET PPNTLIST]

array set elems [ABMPROFILE profid GET ELEMLIST]

Beschreibung

Abfrage der Profildaten

Abfrage der Liste der Polygonpunkte des Profils

Abfrage der Liste der Profilelemente des Profils

Argument	Dimension	Bedeutung
profid	OBJID	Objekt-ID des Profils
GET	KEYWORD	Daten abfragen
PPNTLIST	KEYWORD	Liste der Polygonpunkte abfragen
ELEMLIST	KEYWORD	Liste der Profilelemente abfragen

Rückgabefeld für [ABMPROFILE ... GET]

Feldargument	Dimension	Bedeutung
error	INT	Fehlerstatus
info	TEXT	Objekt- oder Fehlerinformation
id	OBJID	Objekt-ID
name	TEXT	Name des Profils
scale	DOUBLE	Überhöhungsfaktor zur Darstellung
active	INT	0 – nicht aktiv, 1 - aktiv
terrain	TEXT	Name des Terrains, wenn verwendet

Rückgabefeld für [ABMPROFILE ... GET PPNTLIST] oder [ABMPROFILE ... GET ELEMLIST]

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

Scopes

All

Beispiele

array set prof [ABMPROFILE $profID GET]

if { $prof(active) != 0 } {

puts $outfile "Profile '$prof(name)' (active)"

} else {

puts $outfile "Profile '$prof(name)' (not active)"

}

Es wird angenommen, dass eine Textdatei outfile zum Schreiben geöffnet wurde. Der Profilname und sein Status werden in die Textdatei geschrieben.

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 Profildaten werden abgefragt. Die Liste der Polygonpunkte wird abgefragt und durchlaufen. Die Profil-ID wurde bereits vorab gesetzt. Die Polygonpunkte werden in einer Schleife abgefragt. Die Liste der Profilelemente wird abgefragt und durchlaufen. Die Profilelemente werden in einer Schleife abgefragt.