Farbe u. Linie gleichzeitig ändern

Aufruf: eva_col_lin

{###########################################################################}
{### Datei eva_col_lin_2.mac                                             ###}
{### ändert Linienart und Linienfarbe gewählter 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 n_f
  LOCAL n_a
  LOCAL P1
  LOCAL P2

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

  LOOP
    READ PNT 'Element antippen oder Elemente waehlen' P1
    INQ_ELEM P1
    IF ((INQ 403 = C_LINE) OR (INQ 403 = C_CIRCLE))
      BEEP
    ELSE_IF (INQ 403 = END)
      READ PNT 'gegenueberliegenden Eckpunkt des Rahmens waehlen' RUBBER_BOX P1 P2
      CHANGE_LINETYPE n_a P1 P2 END
      CHANGE_COLOR n_f P1 P2 END
    ELSE
      CHANGE_LINETYPE n_a P1 END
      CHANGE_COLOR n_f P1 END
    END_IF
  END_LOOP

END_DEFINE

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