Thanks for this the first scrip in your thread worked a treat, the all went onto layer planes.
Thanks
PROCEDURE Objs2LayerPlane; { © Petri Sakkinen 2010 }
{Modifed 2014, Ray Mullin, Pat Stanford to work with VW2015}
Procedure DoIt (H : Handle);
Begin
SetObjectVariableBoolean(H, 1160, FALSE);
End;
Function ResetDef(H :Handle) :Boolean;
Begin
ResetObject(H);
End;
BEGIN
FOREACHOBJECT(DoIt, INSYMBOL & ALL);
ForEachObjectinList(ResetDef, 0, 0, FSymDef);
Sysbeep;
END;
RUN(Objs2LayerPlane);