|
|
|
Syntax
array set plan [ABMAXIS axid GET PLANLIST]
array set profile [ABMAXIS axid GET PROFLIST]
set profid [ABMAXIS axid GET PROFILE profname]
Description
Query the list of plan elements of an axis
Query the list of profiles of an axis
Query the existence of a specific profile
Argument |
Dimension |
Meaning |
axid |
OBJID |
Object-ID of the axis |
GET |
KEYWORD |
Query data |
PLANLIST |
KEYWORD |
Query the list of plan elements |
PROFLIST |
KEYWORD |
Query the list of profiles |
PROFILE |
KEYWORD |
Query Profile ID or existence |
profname |
TEXT |
Profile name (arg3 = PROFILE) |
Return array for [ABMAXIS ... PLANLIST] or [ABMAXIS ... PROFLIST]
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 of [ABMAXIS ... PROFILE profname]
Return |
Dimension |
Meaning |
profID |
OBJID |
Profile-ID or 0 |
Scopes
All
Examples
array set plan [ABMAXIS $axisID GET PLANLIST]
if { $axes(count) > 0 } {
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]
}
}
The list of plan elements is queried. The list is passed through in a for loop. The concurrent ID is incremented from the 2nd pass. The data of plan elements is queried.
# all profiles
array set profile [ABMAXIS $ID GET PROFLIST]
if { $profile(count) > 0 } {
set profID $profile(first)
for { set iprof 0 } { $iprof < $profile(count) } { incr iprof } {
if { $iprof > 0 } { set profID [OBJNEXT $profID] }
array unset prof
array set prof [ABMPROFILE $profID GET]
array set polygon [ABMPROFILE $profID GET PPNTLIST]
if { $polygon(count) > 0 } {
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]
}
}
array set elements [ABMPROFILE $profID GET ELEMLIST]
if { $elements(count) > 0 } {
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]
}
}
}
}
The list of profiles is queried. The list is passed through in a for loop. The profile data is queried. The list of polygon points is queried and traversed. The polygon points are queried in an inner loop. The list of profile elements is queried and traversed. The profile elements are queried in an inner loop.
|
(C) ALLPLAN GmbH |
Privacy policy |
