Farbe u. Linie gleichzeitig ändern

Aufruf: eva_col_lin

{###########################################################################}
{###                                                                     ###}
{### ACHTUNG Es wird die Farbe SCHWARZ als Zwischenpuffer benötigt       ###}
{### also darf keine Geometrie in Farbe Schwarz in der Zeichnung sein    ###}
{### da sonst dessen Farbe und Linienart auch geändert wird              ###}
{###                                                                     ###}
{###########################################################################}


{###########################################################################}
{### Datei eva_col_lin.mac                                               ###}
{### ändert Linienart und Linienfarbe aller Linien im aktiven Teil       ###}
{### Erstelldatum: 15.01.2014                                            ###}
{### (c) 2014 by E.V.A. Robert Hoffmann                                  ###}
{###                                                                     ###}
{### Änderungsdatum:                                                     ###}
{### Art der Änderung:                                                   ###}
{###                                                                     ###}
{###                                                                     ###}
{### Zeit:                                                               ###}
{### Erforderliche Makros:                                               ###}
{###########################################################################}


DEFINE eva_col_lin
  LOCAL a_f
  LOCAL n_f
  LOCAL a_a
  LOCAL n_a

{###########################################################################}
{###     Auswahl durch Listbox                                           ###}
{###########################################################################}
  READ LITERAL "alte Farbe : " a_f
  READ LITERAL "neue Farbe : " n_f
  READ LITERAL "alte Linienart : " a_a
  READ LITERAL "neue Linienart : " n_a

{###########################################################################}
{### Zwischenschritt ist nötig, da sonst beim ersten CHANGE_...          ###}
{### die Voraussetzungen für das zweite CHANGE_... nicht mehr stimmen    ###}
{###########################################################################}
  TRAP_ERROR
    CHANGE_COLOR BLACK SELECT a_a AND a_f CONFIRM END
  IF (CHECK_ERROR) END_IF

  TRAP_ERROR
    CHANGE_LINETYPE n_a SELECT BLACK CONFIRM END
  IF (CHECK_ERROR) END_IF

  TRAP_ERROR
    CHANGE_COLOR n_f SELECT BLACK CONFIRM END
  IF (CHECK_ERROR) END_IF

END_DEFINE

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