Layer Type

[Ben624]

Is there any way for VS to differentiate between design layers and sheet layers? I want my script to cycle through all the design layers in a document, but not sheet layers.

Ben

[MullinRJ]

Hi Ben,

You can test layer handles with GetSheetLayerUserOrigin().

Raymond

Procedure test;
VAR
H :Handle;
X, Y :Real;

BEGIN
H := FLayer;
while (H<>nil) do begin
	if GetSheetLayerUserOrigin(H, X, Y) then
		Message(GetLName(H), ' - SheetLayer')
	else Message(GetLName(H), ' - DesignLayer');
	Wait(1);
	H := NextObj(H);
end;		{ while }
SysBeep;
END;
Run(test);

[MullinRJ]

If you intend to query layer types a lot, perhaps adding a simple function to your code will make things more readable.

I have one here:

function isSheetLayer(LyrHnd :Handle) :Boolean;
{ Returns TRUE if LyrHnd points to a Sheet Layer, FALSE otherwise. }
Var
X, Y :Real;
Begin
isSheetLayer := GetSheetLayerUserOrigin(LyrHnd, X, Y);
End;		{ isSheetLayer }

HTH,

Raymond

[Ben624]

worked like a charm. Thank you!