TCL Command ABMAXIS, Punkte

Syntax

array set plpoint [ABMAXIS axid GET PLANPOINT sloc]

array set prpoint [ABMAXIS axid GET PROFPOINT sloc]

array set station [ABMAXIS axid GET SNORMAL sloc ax2id ratio]

Beschreibung

Abfrage eines Grundrisspunktes an eine bestimmten Station

Abfrage eines Profilpunktes an eine bestimmten Station

Argument	Dimension	Bedeutung
axid	OBJID	Objekt-ID der Achse
GET	KEYWORD	Daten abfragen
PLANPOINT	KEYWORD	Grundrisspunkt abfragen
PROFPOINT	KEYWORD	Profilpunkt abfragen
sloc	STATION	Lokale Station
ax2id	OBJID	Objekt-ID der Achse, an welcher die Station gesucht wird
ratio	DOUBLE	Festlegung der Suchrichtung in [0,1]; 0...Normale in sloc an Achse axid; 1...Normale in gesuchter Station an Achse ax2id

Rückgabefeld für [ABMAXIS ... PLANPOINT ... ]

Feldargument	Dimension	Bedeutung
error	INT	Fehlerstatus
info	TEXT	Fehlerinformation
s	STATION	Lokaler Stationswert
east	LSTRUCTD	Koordinate
north	LSTRUCTD	Koordinate
a	ANGLED	Grundrisswinkel
b	1/LSTRUCTD	Krümmung
r	LSTRUCTD	Radius (1/b) oder "inf"

Rückgabefeld für [ABMAXIS ... PROFPOINT ... ]

Feldargument	Dimension	Bedeutung
error	INT	Fehlerstatus
info	TEXT	Fehlerinformation
l	LSTRUCTD	3D-Länge
s	STATION	Lokale Station
h	LSTRUCTD	Höhe
a	ANGLED	Aufrisswinkel
b	1/LSTRUCTD	Krümmung im Aufriss
r	LSTRUCTD	Radius (1/b) oder "inf"

Rückgabefeld für [ABMAXIS ... SNORMAL ... ]

Feldargument	Dimension	Bedeutung
error	INT	Fehlerstatus
info	TEXT	Fehlerinformation
s	STATION	Lokaler Stationswert an Achse axid
s2	STATION	Lokaler Stationswert an Achse ax2id
ratio	DOUBLE	Bestätigtes Argument ratio

Scopes

All

Beispiele

# export some plan points

set format2 " %15.5f %15.4f %15.4f %15.8f %12.4f %12.4f"

set format3 " %15s %15s %15s %15s %12s %12s"

puts $outfile ""

puts $outfile "Plan points"

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

puts $outfile " Station East North Angle Bend Radius"

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

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

array unset point

array set point [ABMAXIS $ID GET PLANPOINT 3.5]

puts $outfile [format $format2 $point(s) $point(east) $point(north) $point(a) $point(b) $point(r)]

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 Punktdaten an der Station 3.5 werden formatiert in die Textdatei geschrieben.

# export some profile points

set format2 " %15.5f %15.4f %15.4f %15.8f %12.4f %12.4f"

set format3 " %15s %15s %15s %15s %12s %12s"

puts $outfile ""

puts $outfile "Profile points"

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

puts $outfile " Length Station Height Angle Bend Radius"

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

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

array unset point

array set point [ABMAXIS $ID GET PROFPOINT 3.5]

puts $outfile [format $format2 $point(l) $point(s) $point(h) $point(a) $point(b) $point(r)]

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 Punktdaten an der Station 3.5 werden formatiert in die Textdatei geschrieben.

# search reference station at 2nd axis

array set ul [ABMUNIT LSTRUCTD GET]

array set us [ABMUNIT STATION GET]

array set ua [ABMUNIT ANGLED GET]

# begin station

array set axis1 [ABMAXIS $axis1ID GET]

set sbeg1 $axis1(sbeg)

# begin station

array set axis2 [ABMAXIS $axis2ID GET]

set sbeg2 $axis2(sbeg)

# calculation and export

set format2 " %15.5f %15.5f %15.4f %15.4f %15.8f %12.4f"

set format3 " %15s %15s %15s %15s %15s %12s"

puts $outfile ""

puts $outfile "Data of axis '$axis2(name)' based on stationing of axis '$axis1(name)'"

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

puts $outfile [format $format3 s($axis1(name)) s($axis2(name)) East North Angle Height]

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

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

array set stat2 [ABMAXIS $axis1ID GET SNORMAL $sloc1 $axis2ID 0.0]

if { $stat2(error) != 0 } {

    puts $outfile $stat2(info)

} else {

    # plan point at target axis at local station s2

    array set point2 [ABMAXIS $axis2ID GET PLANPOINT $stat2(s2)]

    # profile point at target axis at local station s2

    array set pointH [ABMAXIS $axis2ID GET PROFPOINT $stat2(s2)]

    # global stations

    set sglo1 [expr {$sbeg1+$sloc1}]

    set sglo2 [expr {$sbeg2+$point2(s)}]

    puts $outfile [format $format2 $sglo1 $sglo2 $point2(east) $point2(north) $point2(a) $pointH(h)]

}

Es wird angenommen, dass eine Textdatei outfile zum Schreiben geöffnet wurde. Vergleiche auch Beispiele unter TCL Command ABMUNIT. Das Modell enthält 2 Achsen und die Station an Achse 2, normal zur Station $sloc1 an Achse 1 wird gesucht. Die Punktdaten an der gefundenen Station werden formatiert in die Textdatei geschrieben.