TCL Command ABMAXES

Inhalt

Index

Syntax

array set axes [ABMAXES GET LIST]

set axisID [ABMAXES GET AXIS axisname]

Description

Query the axes in the model

Query the existence of a specific axis

Argument

Dimension

Meaning

GET

KEYWORD

Query data

LIST

KEYWORD

Query axis list

AXIS

KEYWORD

Query axis ID or existence

axisname

TEXT

Name of the axis (arg2 = AXIS)

Return array for [ABMAXES GET LIST]

Array item

Dimension

Meaning

error

INT

Error code

info

TEXT

Error information

first

OBJID

Object-ID of the first list element

last

OBJID

Object-ID of the last list element

count

INT

Number of list elements

Return for [ABMAXES GET AXIS axisname]

Return

Dimension

Meaning

axisID

OBJID

Axis-ID or 0

Scopes

All

Examples

array set axes [ABMAXES GET LIST]

if { $axes(count) > 0 } {

set ID $axes(first)

for { set iaxis 0 } { $iaxis < $axes(count) } { incr iaxis } {

if { $iaxis > 0 } { set ID [OBJNEXT $ID] }

}

}

The list of axes is queried. If the number of axes is greater than zero, then the list is run through in a for loop. The concurrent ID is incremented from the 2nd pass.

# find an axis

set axisID [ABMAXES GET AXIS "Axis(HT)"]

if { $axisID == 0 } {

set error "Axis 'Axis(HT)' not found."

LOGERROR $error

}

The ID of the axis "Achse(HT)” is requested and if the axis does not exist, an error message is written.



Allplan

(C) ALLPLAN GmbH

Privacy policy