Chip 1998 March/Chip_1998-03_cd.bin/tema/MINICAD/MC7DEMO/MINICAD.1/SET_ONLY.MPC

Text File | 1997-04-30 | 666b | 35 lines

PROCEDURE SetsOnly;
CONST
layerNameSuffix='Set';
VAR
han,lastSetLayer:HANDLE;
layerCount,currentCount,layerNamePresence:INTEGER;
layerName,lastSetLayerName:STRING;
vis:REAL;
BEGIN
Show(ALL);
DOMENUTEXT('Show/Snap Others');
han:=FLAYER;
layerCount:= NUMLAYERS;
currentCount:= 1;
FOR currentCount := 1 TO layerCount DO
BEGIN
layerName:=GetLName(han);
layerNamePresence:=Pos(layerNameSuffix,layerName);

    IF (layerNamePresence<>0) THEN BEGIN
        LAYER(LayerName);
        SHOWLAYER;
        lastSetLayerName:= LayerName;
    END
    ELSE BEGIN
        LAYER(LayerName);
        HIDELAYER;
    END;

han:=NEXTLAYER(han);
END;
LAYER(lastSetLayerName);
END;
RUN(SetsOnly);