EVA Text in Zeichnung

{######################################################################}
{### eva_text_in_zeichnung                                          ###}
{###                                                                ###}
{### prüft, ob der mit PARAMETER übergebene Text in der Zeichnung   ###}
{### existiert                                                      ###}
{###                                                                ###}
{### Erstelldatum:  01.2016                                         ###}
{### (c) 2016 by E.V.A. Robert Hoffmann                             ###}
{### http://www.me10-makros.de                                      ###}
{### info@me10-makros.de                                            ###}
{###                                                                ###}
{### Änderungsdatum:                                                ###}
{### Art der Änderung:                                              ###}
{###                                                                ###}
{###                                                                ###}
{### Zeit:                                                          ###}
{### Erforderliche Makros:                                          ###}
{###                                                                ###}
{###                                                                ###}
{### NUTZUNGSBEDINGUNGEN                                            ###}
{###                                                                ###}
{### ALLE OBIGEN KOMMENTARE UND COPYRIGHT-VERMERKE                  ###}
{### SIND UNVERÄNDERT ZU LASSEN                                     ###}
{### ÄNDERUNGEN AM QUELLTEXT SIND ALS SOLCHE ZU KENNZEICHNEN        ###}
{### UND SOLLTEN ZUR PRÜFUNG AN info@me10-makros.de gesendet werden ###}
{###                                                                ###}
{######################################################################}

DEFINE eva_text_in_zeichnung
  PARAMETER suchtext
  LOCAL textauszeichnung
  LOCAL ok
  INQ_SELECTED_ELEM TEXTS ALL
  LET ok 0
  WHILE (INQ 14)
    IF (INQ 403 = TEXT)
      LET TextAusZeichnung (INQ 902)
      IF (UPC TextAusZeichnung = UPC suchtext)
        IF (ok=0)
          LET ok 1
          DISPLAY(suchtext+' existiert: '+textauszeichnung)
        END_IF
      END_IF
    END_IF
    INQ_NEXT_ELEM
  END_WHILE
  IF (ok=0)
    DISPLAY(suchtext+' existiert nicht')
  END_IF
END_DEFINE

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