TCL Command ABMPROFPPNT

Syntax

array set elem [ABMPROFPPNT ppntid GET]

Description

Query the data of a profile element

Argument	Dimension	Meaning
ppntid	OBJID	Object-ID of polygon point
GET	KEYWORD	Query data

Return array

Array item	Dimension	Meaning
error	INT	Error code
info	TEXT	Error information
rtype	ENUM	Rounding type („NONE“, „PARARAD“, „PARANXT“, „PARADST“, „CIRCRAD“), s. Kommando AXIS/PROFILES/PROFILE/POLYGON/POINT
s	LSTRUCTD	Local station value
h	LSTRUCTD	Height
r	LSTRUCTD	Rounding radius
dsl	LSTRUCTD	Left side distance of rounding
dsr	LSTRUCTD	Right side distance of rounding

Scopes

All

Examples

set format1 " POINT %14.6f %14.6f %14s %14.6f %14.6f %14.6f"

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

puts $outfile ""

puts $outfile "Profile polygon"

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

puts $outfile " Type Station Height Rounding Radius DS-left DS-Right"

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

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

array set polygon [ABMPROFILE $profID GET PPNTLIST]

set ppntID $polygon(first)

for { set ippnt 0 } { $ippnt < $polygon(count) } { incr ippnt } {

if { $ippnt > 0 } { set ppntID [OBJNEXT $ppntID] }

array unset ppnt

array set ppnt [ABMPROFPPNT $ppntID GET]

puts $outfile [format $format1 $ppnt(s) $ppnt(h) $ppnt(rtype) $ppnt(r) $ppnt(dsl) $ppnt(dsr)]

}

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 point data is written formatted into the text file.