---

Hallo UG-Anwenders, ich habe ein GRIP-Problem, bei dem ich nicht mehr weiterkomme. Um Zeichnungen in verschiedenen Freigabe-Zuständen zu Plotten, möchte ich ein Muster als Stempel aufbringen. Dies funktioniert auch soweit gut. Nach der automatischen Plotfile-Erstellung müsste ich das temporäre Pattern aber wieder löschen. Nach allem, was ich an Unterlagen gefunden habe, scheint dieses Problem nicht lösbar. Mit den Umweg-Tricks aus der Grip-DB von UG erhalte ich im Namen wegen der Version mit Schrägstrich (INFO/A) eine Fehlermeldung beim herauslesen der Muster-Namen (wir arbeiten mit IMAN V7.0.3). Eine Funktion, um direkt ein Muster zu löschen, habe ich auch keine finden können. Bevor ich kurz durchdrehe, wer weiss hier Rat ?

------------------
Styner

Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP

---

Wie wäre es damit:

    GRIPSW/ DECLRV
   
    ENTITY/ obj, delobj(20)
    NUMBER/ i1, i2, frmlay
   
    MASK/ 10
    INEXTE
    i1 = 0
   
    loopf2: 
    obj = NEXTE/ IFEND, gotfrm:
    frmlay = &LAYER(obj)
    IFTHEN/ frmlay == 200 OR frmlay == 240
      i1 = i1 + 1
      delobj(i1) = obj
    ENDIF
    JUMP/ loopf2:
    gotfrm:
   
    IFTHEN/ i1 > 0
      DO/ delall:, i2, 1, i1
        DELETE/ delobj(i2)
      delall:
    ENDIF

    HALT

So als Beispiel. Bei weiteren Fragen...

Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP

---

Ich habe auch selber eine Lösung gefunden:

Das Problem lag auf der IMAN-Seite. Wird das Pattern aus der DB geladen, kommt der Index (xxxxx/A) mit. Damit kann der Pattern-Name nicht heraus geschrieben werden. Wenn das Pattern Native von der Platte kommt, ist der Name korrekt und ohne Index. Dann läufts mit folgendem Script:

LAYER/ACTIVE,REST
MASK/10
$$
INEXTE/ALL
$$
A10:    pat_obj = NEXTE/IFEND, A20:
          IF/ &SUBTYP(pat_obj) <>0, JUMP/ A10:
          pat_pn = &PATPRT(pat_obj)
          IF/ pat_pn == 'Muster_Name', bad_pat(n=n+1) = pat_obj
          JUMP/ A10:
$$
A20:    IF/ n > 0, DELETE/bad_pat(1..n)

------------------
Styner

Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP

---

Anmerkung: Wenn Du auf den Namen verzichten würdest, wäre es allgemein gültig. Warum also nicht das Pattern auf einen bestimmten Layer schieben oder mit einem eindeutigen Attribut kennzeichnen, mit dem Du es wiederfindest, oder mit Hilfe des Platzierungspunktes.

Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP