Template:TraverseObjects
Jump to navigation
Jump to search
If you need to traverse all objects in the document, you'll have to traverse all layers and then list the objects in each one:
VectorScript
PROCEDURE ListDocument; VAR hLayer, h : HANDLE; BEGIN hLayer := GetParent( FObject ); WHILE hLayer <> NIL DO BEGIN h := FInLayer( hLayer ); WHILE h <> NIL DO BEGIN AlrtDialog( Concat( 'h=', h, ' type=', GetTypeN(h) ) ); h := NextObj( h ); END; hLayer := NextLayer( hLayer ); END; END; Run(ListDocument);
Python
def ListDocument(): hLayer = vs.GetParent( vs.FObject() ) while hLayer != None: h = vs.FInLayer( hLayer ) while h != None: vs.AlrtDialog( vs.Concat( 'h=', h, ' type=', vs.GetTypeN(h) ) ) h = vs.NextObj( h ) hLayer = vs.NextLayer( hLayer ) ListDocument()