Make greyed layers unsnapable

[WhoCanDo]

I would like to see greyed made unpickable or another layer option to do this.

I am often workings on multiple layers and want to see support or design layers but not be able to pick things on them.

One example is when I have a floor outline that I wish to manufacture in smaller segments. I need to know where the support structure is and work on the other layers without selecting objects on the support layer.

Edited November 16, 2009 by WhoCanDo

[mike m oz]

I would like to see greyed made unpickable

They already are that way. The only way you can pick objects on a greyed layer is with Force Select which will switch the Active Layer to that layer.

Do you mean unsnappable?

[WhoCanDo]

Thanks Mike,

I do mean unsnappable.

My current approach to this is to make scale of the layers I want to see but not snap to 0.0001 greater so they don't appear different but dissables snapping.

This means I can work on and snap to the other 4 or 5 layers without accidently picking up the snap points on the support layers.

[mike m oz]

Rather than modify the scale of the Design Layer you want visible but not snappable just set it to Top View. Then when you go back to a Design Layer which is in Top/Plan View you won't get any feedback at all from that Design Layer.

[WhoCanDo]

Great, I didn't think of that.

So after a quick look though the VS help I cannont find a procedure to change layer current view. Is there a command I can write a macro with?

[WhoCanDo]

Sorry, this didn't work the first time but it does now:

DoMenuTextByName ('Standard Views',2);

Thanks

[Ray Libby]

The "5" key on the numeric keypad will switch you to Top view if Num Lock is on.

[WhoCanDo]

Thanks Ray, but I want multiple layers unpickable so a macro will be the best for me instead of going to each layer and changing it to top view.

[mike m oz]

Perhaps a Saved View is all you need.

[WhoCanDo]

This is what I have so far if anyone else wants it..

procedure Layer_Visability;

label 1, 2;

const

DialogWidth = 300;

DialogTextBoxHeight = 30;

var

WorkLayer : string;

i, Event, ItemID, LayerCount : integer;

sx1, sy1, sx2, sy2 : real;

dx1, dy1, dx2, dy2 : real;

h : handle;

LayerName : array [1..100] of string;

begin

{ Record all layer names }

LayerCount := NumLayers;

h := FLayer;

LayerName [LayerCount] := GetLName (h);

for i := LayerCount -1 downto 1 do

begin

h := NextLayer (h);

LayerName := GetLName (h);

end;

{ Create Dialog }

GetScreen (sx1, sy1, sx2, sy2);

dx1 := sx2 / 2 - DialogWidth / 2;

dy1 := sy2 / 2 - (LayerCount / 2 + 5) * DialogTextBoxHeight;

dx2 := dx1 + DialogWidth;

dy2 := sy2 / 2 + (LayerCount / 2) * DialogTextBoxHeight;

if (dy1 < 0) then { if the dialog box is too long }

Goto 1;

{ Begin Dialog }

BeginDialog (1, 1, dx1, dy1, dx2, dy2);

AddButton ('OK', 1, 1, (dx2 - dx1) / 2 - 102, dy2 - dy1 - 45, (dx2 - dx1) / 2 - 34, dy2 - dy1 - 15);

AddButton ('Cancel', 2, 1, (dx2 - dx1) / 2 + 34, dy2 - dy1 - 45, (dx2 - dx1) / 2 + 102, dy2 - dy1 - 15);

AddField ('LAYER VISABILITY', 3, 1, (dx2 - dx1) / 2 - 70, DialogTextBoxHeight, (dx2 - dx1) / 2 + 70, DialogTextBoxHeight * 2);

AddField ('Choose layers to be unsnapable.', 4, 1, 20, DialogTextBoxHeight * 2, DialogWidth - 20, DialogTextBoxHeight * 3);

ItemID := 4;

for i := 1 to LayerCount do

begin

ItemID := ItemID + 1;

AddButton (LayerName , ItemID, 2, 40, DialogTextBoxHeight * (ItemID - 2), DialogWidth - 20, DialogTextBoxHeight * (ItemID - 1));

end;

EndDialog;

{ Start Dialog }

GetDialog (1);

repeat

DialogEvent (Event);

if (Event > 4) then

SetItem (Event, not (ItemSel (Event)));

until (Event = 1) or (Event = 2); { OK or Cancel }

WorkLayer := GetLName (Actlayer);

{ Change selected events }

if (Event = 1) then { OK }

begin

for i := 5 to LayerCount + 4 do

if (ItemSel (i) = True) then

begin

Layer (LayerName [i - 4]);

DoMenuTextByName ('Standard Views', 2);

end

else

begin

Layer (LayerName [i - 4]);

DoMenuTextByName ('Standard Views', 1);

end

end;

{ End Dialog }

ClrDialog;

{ Return to working layer }

Layer (WorkLayer);

ReDrawAll;

Goto 2;

1:

AlertCritical ('Too many layers.', 'A second column may be necessary.');

2:

end;

run (Layer_Visability);

Edited November 18, 2009 by WhoCanDo