---

Hallo,
mit einem Makro erzeuge ich eine Skizze (in ANNO) möchte dies aber nur tun, wenn noch keine existiert.
Bisher ist mir diese Abfrage nicht gelungen.
Zur Zeit mache ich folgendes:

...
:local-functions
  '((after-inp-action ()
    (progn
      (setf pp 0,0)
      (oli::sd-am-set-default-owner :sketch :current-sheet)
      (setf tmp_sketch_name "Halbzeugliste")
      (sd-call-cmds (AM_SKETCH_CREATE :GO  K :sketch_name tmp_sketch_name
                    :REF_POINT pp)
...

Kann jemand helfen?

Schöne Grüße
Bernd

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

---

@Bernd

muesste (ungetestet) fuer alle Skizzen am akt. Blatt so gehen:

(setf alle_skizzen nil)
(setf alle_skizzen (sd-am-inq-all-sketches (sd-am-inq-curr-sheet)))
(dolist (skizze alle_skizzen)
  (when (sd-string-match-pattern-p tmp_sketch_name (sd-am-inq-name skizze))
    (display (format nil "Skizze: ~a vorhanden" tmp_sketch_name))
  )
)

HTH

Gruss
RainerH.

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

---

Hallo,
vielen Dank, jetzt habe auch ich es kapiert.

Schöne Grüße
Bernd

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