home *** CD-ROM | disk | FTP | other *** search
/ Chip 1998 March / Chip_1998-03_cd.bin / tema / MINICAD / MC7DEMO / MINICAD.1 / SET_ONLY.MPC < prev    next >
Encoding:
Text File  |  1997-04-30  |  666 b   |  35 lines
  1. PROCEDURE SetsOnly;
  2. CONST
  3. layerNameSuffix='Set';
  4. VAR
  5. han,lastSetLayer:HANDLE;
  6. layerCount,currentCount,layerNamePresence:INTEGER;
  7. layerName,lastSetLayerName:STRING;
  8. vis:REAL;
  9. BEGIN
  10. Show(ALL);
  11. DOMENUTEXT('Show/Snap Others');
  12. han:=FLAYER;
  13. layerCount:= NUMLAYERS;
  14. currentCount:= 1;
  15. FOR currentCount := 1 TO layerCount DO
  16. BEGIN
  17. layerName:=GetLName(han);
  18. layerNamePresence:=Pos(layerNameSuffix,layerName);
  19.  
  20.     IF (layerNamePresence<>0) THEN BEGIN
  21.         LAYER(LayerName);
  22.         SHOWLAYER;
  23.         lastSetLayerName:= LayerName;
  24.     END
  25.     ELSE BEGIN
  26.         LAYER(LayerName);
  27.         HIDELAYER;
  28.     END;
  29.  
  30. han:=NEXTLAYER(han);
  31. END;
  32. LAYER(lastSetLayerName);
  33. END;
  34. RUN(SetsOnly);
  35.