EVA Massfarbe

{###################################################################}
{### Datei eva_massfarbe.mac                                     ###}
{### Ersetzt in allen Teilen die Farbe der Masslinien            ###}
{### sowie die Masstexte.                                        ###}
{### Erstelldatum:     12.02.2015                                ###}
{### (c) 2003 2015 by E.V.A. Robert Hoffmann                     ###}
{###                                                             ###}
{### Aufruf: eva_massfarbe farbe                                 ###}
{### für farbe ist einer der Werte                               ###}
{### white, red, yellow, green, cyan, magenta oder blue          ###}
{### anzugeben, also z.B.                                        ###}
{### eva_massfarbe yellow                                        ###}
{###                                                             ###}
{### Änderungsdatum:                                             ###}
{### Art der Änderung:                                           ###}
{###                                                             ###}
{### Änderungsdatum:                                             ###}
{### Art der Änderung:                                           ###}
{###                                                             ###}
{### Zeit:                                                       ###}
{### Erforderliche Makros:                                       ###}
{###################################################################}

DEFINE eva_massfarbe
  PARAMETER Farbe
  LOCAL Schleife
  INQ_ENV 8
  LET Schleife (INQ 5)
  WHILE (Schleife>0)
    TRAP_ERROR
    EDIT_PART ('~'+(STR Schleife))
    IF (NOT CHECK_ERROR)
      CHANGE_DIM_TEXT_COLOR Farbe ALL END
      CHANGE_DIM_COLOR Farbe ALL END
    END_IF
    LET Schleife (Schleife - 1)
  END_WHILE
  END
END_DEFINE

Source downloaden

Wenn die Makros nützlich sind, ist eine Spende natürlich gern gesehen :-)