---

Hallo Forum,

in ca. 100 Dateien gibt es neben mehreren Referenzen eine deren Name das Wort "Legende" beinhaltet. Die Referenz muss ich dringend für die Abgabe in die Zeichnung binden.

Besteht die Möglichkeit eine Funktion in Lisp einzubinden, die die Referenz herausfiltert?
Hab mich mit SSGET beschäftigt, komme leider nicht weiter...

Viele Grüsse
Waldemar

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

---

Du musst die Blocktabelle durchlaufen und dann die Namen dieser prüfen
so müsste es gehen:

Code:

---

(setq EARX_BTAA (tblnext "BLOCK" T))
              (while
                (/= EARX_BTAA nil)
                  (if
                    (wcmatch (cdr (assoc 2 EARX_BTAA))
                            "*Legende*"
                            ) ;_ end of wcmatch
                      (command "_xref""_b" (cdr (assoc 2 EARX_BTAA)))
                    (setq EARX_BTAA (tblnext "BLOCK"))
                    ) ;_ end of if
                  ) ;_ end of while

---

------------------
Gruß
CADwiesel
Besucht uns im CHAT

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

---

Hallo CADwiesel,

zuerst vielen Dank für die schnelle Hilfestellung.

Habe den Code in eigene LSP Datei eingefügt. Sieht so aus:

; ********** Programmbeginn **********

(defun C:XR-WP (/ WP_CM )
  ;Systemvariablen werden gesetzt
  (Setvar "Cmdecho" 1)

 
(setq EARX_BTAA (tblnext "BLOCK" T))
              (while
                (/= EARX_BTAA nil)
                  (if
                    (wcmatch (cdr (assoc 2 EARX_BTAA))
                            "*Legende*"
                            ) ;_ end of wcmatch
                      (command "_xref""_b" (cdr (assoc 2 EARX_BTAA)))
                    (setq EARX_BTAA (tblnext "BLOCK"))
                    ) ;_ end of if
                  ) ;_ end of while

 

  (Princ) 
); defun
(PROMPT "\nStart mit -----> XR-WP\n")
(PRINC)
; ********** Ende **********

Die Referenz Legende wird super gebunden, das Programm läuft aber in einer Endlosschleife.
Der Befehl _xref wird immer wieder aufgerufen. Wo muss ich hier noch was verstellen?

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

---

Hallo,
@CADwiesel Darf ich antworten?

Wahrscheinlich hat das Wiesel den Code einfach runter geschrieben, ohne weiter zu testen. NAch gleichem Verfahren nachfolgend auch mein Korrekturvorschlag:
Die Zeile (setq EARX_BTAA (tblnext "BLOCK"))
muss eine Zeile tiefer, denn das 'durchhecheln' zum nächsten Block muss immer gemacht werden, egal, ob der Block nun Legende heißt oder nicht.

Bei Fragen ...

Grüße Holger

------------------
Holger Brischke
CAD on demand GmbH
Individuelle Lösungen von Heute auf Morgen.

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

---

Hallo Holger,

es funktioniert!!!
Noch ein Mal besten Dank an Euch beide. Ihr habt mir viel Zeit ersparrt.

Waldemar

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

---

Danke Holgär - bisdn guder

------------------
Gruß
CADwiesel
Besucht uns im CHAT

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