TCL Command ABMPLANELEM

Syntax

array set elem [ABMPLANELEM elemid GET]

Beschreibung

Abfrage der Daten eines Grundrisselements

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

Rückgabefeld

Feldargument	Dimension	Bedeutung
error	INT	Fehlerstatus
info	TEXT	Fehlerinformation
type	ENUM	Elementtyp („NONE“, „POINT“, „LINE“, „CIRCLE“, „SPIRAL“, “BLOSS“)
s0	STATION	Lokaler Stationswert am Anfang
east	LSTRUCTD	Koordinate am Anfang
north	LSTRUCTD	Koordinate am Anfang
a0	ANGLED	Grundrisswinkel am Anfang
b0	1/LSTRUCTD	Anfangskrümmung
r0	LSTRUCTD	Anfangsradius (1/b0) oder “inf”
p	DOUBLE	Klothoidenparameter
ds	STATION	Stationsdifferenz
de	LSTRUCTD	Lokale Koordinatendifferenz
dn	LSTRUCTD	Lokale Koordinatendifferenz
da	ANGLED	Winkeldifferenz
db	1/LSTRUCTD	Krümmungsdifferenz
dr	LSTRUCTD	Radiusdifferenz (1/db) oder “inf”
se	STATION	Endstation
ee	LSTRUCTD	Endkoordinate
ne	LSTRUCTD	Endkoordinate
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 %10.4f"

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

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

puts $outfile ""

puts $outfile "Plan elements"

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

puts $outfile " Type Station East North Angle Bend Radius A"

puts $outfile " Local Increments"

puts $outfile " End Point"

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

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

array set plan [ABMAXIS $ID GET PLANLIST]

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]

puts $outfile [format $format1 $elem(type) $elem(s0) $elem(east) $elem(north) $elem(a0) $elem(b0) $elem(r0) $elem(p)]

puts $outfile [format $format2 $elem(ds) $elem(de) $elem(dn) $elem(da) $elem(db) $elem(dr)]

puts $outfile [format $format2 $elem(se) $elem(ee) $elem(ne) $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 Achsen-ID wurde bereits vorab gesetzt. Die Elementdaten werden formatiert in die Textdatei geschrieben.