TCL Command ABMPROFELEM

Syntax

array set elem [ABMPROFELEM elemid GET]

Beschreibung

Abfrage der Daten eines Profilelements

Argument	Dimension	Bedeutung
elemid	OBJID	Objekt-ID des Profilelements
GET	KEYWORD	Daten abfragen

Rückgabefeld

Feldargument	Dimension	Bedeutung
error	INT	Fehlerstatus
info	TEXT	Fehlerinformation
type	ENUM	Elementtyp („NONE“, „POINT“, „LINE“, „CIRCLE“, „PARABOLA“)
l0	LSTRUCTD	3D-Länge am Anfang
s0	STATION	Lokaler Stationswert am Anfang
h0	LSTRUCTD	Anfangshöhe
a0	ANGLED	Aufrisswinkel am Anfang
b0	1/LSTRUCTD	Anfangskrümmung
r0	LSTRUCTD	Anfangsradius (1/b0) oder “inf”
dl	LSTRUCTD	Längendifferenz
ds	STATION	Stationsdifferenz
dh	LSTRUCTD	Höhendifferenz
da	ANGLED	Winkeldifferenz
db	1/LSTRUCTD	Krümmungsdifferenz
dr	LSTRUCTD	Radiusdifferenz (1/db) oder “inf”
le	LSTRUCTD	3D-Länge am Ende
se	STATION	Endstation
he	LSTRUCTD	Endhöhe
ae	ANGLED	Endwinkel
be	1/LSTRUCTD	Endkrümmung
re	LSTRUCTD	Endradius (1/be) oder “inf”

Scopes

All

Beispiele

set format1 "%8s %14.5f %14.4f %14.4f %14.8f %12.4f %12.4f"

set format2 " %14.5f %14.4f %14.4f %14.8f %12.4f"

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

puts $outfile ""

puts $outfile "Profile elements"

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

puts $outfile " Type Length Station Height Angle Bend Radius"

puts $outfile " Global Increments"

puts $outfile " End Point"

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

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

array set elements [ABMPROFILE $profID GET ELEMLIST]

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]

puts $outfile [format $format1 $elem(type) $elem(l0) $elem(s0) $elem(h0) $elem(a0) $elem(b0) $elem(r0)]

puts $outfile [format $format2 $elem(dl) $elem(ds) $elem(dh) $elem(da) $elem(db) $elem(dr)]

puts $outfile [format $format2 $elem(se) $elem(se) $elem(he) $elem(ae) $elem(be) $elem(re)]

}

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 Elementdaten werden formatiert in die Textdatei geschrieben.