TCL Command ABMPLANELEM

Syntax

array set elem [ABMPLANELEM elemid GET]

Description

Query the data of a plan element

Argument	Dimension	Meaning
elemid	OBJID	Object-ID of the plan element
GET	KEYWORD	Query data

Return array

Array item	Dimension	Meaning
error	INT	Error code
info	TEXT	Error information
type	ENUM	Element type („NONE“, „POINT“, „LINE“, „CIRCLE“, „SPIRAL“, “BLOSS“)
s0	STATION	Local start station
east	LSTRUCTD	Start coordinate
north	LSTRUCTD	Start coordinate
a0	ANGLED	Start plan angle
b0	1/LSTRUCTD	Start bend
r0	LSTRUCTD	Start radius (1/b0) or “inf”
p	DOUBLE	Spiral parameter
ds	STATION	Station difference
de	LSTRUCTD	Local coordinate difference
dn	LSTRUCTD	Local coordinate difference
da	ANGLED	Angle difference
db	1/LSTRUCTD	Bend difference
dr	LSTRUCTD	Radius difference (1/db) or "inf"
se	STATION	End station
ee	LSTRUCTD	End coordinate
ne	LSTRUCTD	End coordinate
ae	ANGLED	End angle
be	1/LSTRUCTD	End bend
re	LSTRUCTD	End radius (1/be) or "inf"

Scopes

All

Examples

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)]

}

It is assumed that a text file outfile has been opened for writing and the unit symbols us, ul, ua and ub have been set in advance. Compare also examples under TCL Command ABMUNIT. The axis ID has already been set in advance. The element data is written formatted into the text file.