TCL Command ABMPROFELEM

Syntax

array set elem [ABMPROFELEM elemid GET]

Description

Query the data of a profile element

Argument	Dimension	Meaning
elemid	OBJID	Object-ID of profile 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“, „PARABOLA“)
l0	LSTRUCTD	Start 3D-length
s0	STATION	Local start station
h0	LSTRUCTD	Start height
a0	ANGLED	Start elevation angle
b0	1/LSTRUCTD	Start bend
r0	LSTRUCTD	Start radius (1/b0) or “inf”
dl	LSTRUCTD	Length difference
ds	STATION	Station difference
dh	LSTRUCTD	Difference in Height
da	ANGLED	Angle difference
db	1/LSTRUCTD	Bend difference
dr	LSTRUCTD	Radius difference (1/db) or "inf"
le	LSTRUCTD	End 3D-length
se	STATION	End station
he	LSTRUCTD	End height
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"

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

}

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 profile ID has already been set in advance. The element data is written formatted into the text file.