TCL Command ABMPROFPPNT

Syntax

array set elem [ABMPROFPPNT ppntid GET]

Beschreibung

Abfrage der Daten eines Profilelements

Argument	Dimension	Bedeutung
ppntid	OBJID	Objekt-ID des Polygonpunktes
GET	KEYWORD	Daten abfragen

Rückgabefeld

Feldargument	Dimension	Bedeutung
error	INT	Fehlerstatus
info	TEXT	Fehlerinformation
rtype	ENUM	Ausrundungstyp („NONE“, „PARARAD“, „PARANXT“, „PARADST“, „CIRCRAD“), s. Kommando AXIS/PROFILES/PROFILE/POLYGON/POINT
s	LSTRUCTD	Lokaler Stationswert
h	LSTRUCTD	Höhe
r	LSTRUCTD	Ausrundungsradius
dsl	LSTRUCTD	Linksseitiger Abstand der Ausrundung
dsr	LSTRUCTD	Rechtssseitiger Abstand der Ausrundung

Scopes

All

Beispiele

set format1 " POINT %14.6f %14.6f %14s %14.6f %14.6f %14.6f"

set format3 " %14s %14s %14s %14s %14s"

puts $outfile ""

puts $outfile "Profile polygon"

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

puts $outfile " Type Station Height Rounding Radius DS-left DS-Right"

puts $outfile [format $format3 $us(symb) $ul(symb) $ul(symb) $us(symb) $us(symb)]

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

array set polygon [ABMPROFILE $profID GET PPNTLIST]

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]

puts $outfile [format $format1 $ppnt(s) $ppnt(h) $ppnt(rtype) $ppnt(r) $ppnt(dsl) $ppnt(dsr)]

}

Es wird angenommen, dass eine Textdatei outfile zum Schreiben geöffnet wurde und die Einheitensymbole us, ul, ua und ub vorab aufgesetzt wurden. Vergleiche auch Beispiele unter TCL Command ABMUNIT. Die Profil-ID wurde bereits vorab gesetzt. Die Punktdaten werden formatiert in die Textdatei geschrieben.