TCL Command ABRESULTS, List of influence lines

Inhalt

Index

Syntax

      set inflines   [ABRESULTS laneset INFLINE GET]

array set infline  [ABRESULTS laneset INFLINE GET LANE ilane]

Description

Query the list of influence lines of all lane sets or one specific lane set

Query the data ID of one influence line of a certain lane

Argument

Dimension

Meaning

laneset

TEXT

Name of lane set

INFLINE

KEYWORD

Result type of query

GET

KEYWORD

Query data

LANE

KEYWORD

Query the data ID of a specific lane

ilane

INT

Number of the lane

Return for [ABRESULTS laneset INFLINE GET]

Return

Dimension

Meaning

dataids

LIST

List of data IDs of the influence lines of a set or all sets (laneset = "")

Return array for [ABRESULTS laneset INFLINE GET LANE ilane]

Array item

Dimension

Meaning

error

INT

Error code

info

TEXT

Error information

id

OBJID

Data ID of specified lane

Scopes

All

Examples

# Influence lines

# ---------------

puts $outfile ""

puts $outfile ""

puts $outfile " Traffic, Influence lines"

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

set inflines [ABRESULTS "" INFLINE GET]

puts $outfile ""

puts $outfile " Laneset Lane"

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

set format11 " %-30s %3d"

foreach inflID $inflines {

    array unset infline

    array set infline [ABRESULT $inflID INFLINE GET]

    puts $outfile [format $format11 $infline(lset) $infline(lane)]

}

It is assumed that a text file outfile has been opened for writing . The results are written formatted into the text file.

The output is project-dependent and can look like the following, for example:

Traffic, Influence lines

------------------------

Laneset Lane

----------------------------------

Lane Set_left 1

Lane Set_right 1

Lane Set_left 2

Lane Set_right 2

Lane Set_left 3

Lane Set_right 3

Lane Set_left 4

Lane Set_right 4

Output for script above.

set inflines [ABRESULTS "Lane Set_left" INFLINE GET]

puts $outfile ""

puts $outfile " Laneset 'Lane Set_left' Lane"

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

set format12 " %34d"

foreach inflID $inflines {

    array unset infline

    array set infline [ABRESULT $inflID INFLINE GET]

    puts $outfile [format $format12 $infline(lane)]

}

It is assumed that a text file outfile has been opened for writing . The results are written formatted into the text file.

The output is project-dependent and can look like the following, for example:

Laneset 'Lane Set_left' Lane

----------------------------------

1

2

3

4

Output for script above.



Allplan

(C) ALLPLAN GmbH

Privacy policy