ForEachObject Loop Failures

[James Russell]

Hey all,

I just can't seem to get this right. The script is ment to take the group of selected objects and move them a specific class and specific layer, as specified in the CONSTs.

I keep getting an Expected ; and Expected a Run but for the life of me I can't find them.

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

Procedure SelectandMove;

CONST

classstr = 'Venue - Walls - Primary Wall';

layerstr = '_Stage Level';

VAR

objecthnd, layerhnd : Handle;

sucess : Boolean;

lname : String;

PROCEDURE SetCandL(objecthnd :HANDLE);

{Procedure to set the class of selected object to classstr and layer to layerstr}

BEGIN

SetClass(objecthnd,classstr);

layerhnd := GetLayerByName(layerstr);

sucess := SetParent(objecthnd,layerhnd);

END;

BEGIN

ForEachObject(SetCandL,(SEL=TRUE));

End;

RUN (SelectandMove)

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

Any help much appreciated.

J

[JBenghiat]

Unless you've pasted incorrectly, you are missing the semicolon after the last line of your script.

-Josh

[James Russell]

...

Thanks

... Urgh.