---

Hallo Forum,

Fuchsi hat mal ein super kleines Prog zum auflisten aller Layer eingestellt.

Zitat:

---

(defun LayerListe (/ liste layer)
  (setq layer (tblnext "LAYER" t))
  (while layer
    (setq liste (cons (cdr (assoc 2 layer)) liste))
    (setq layer (tblnext "LAYER"))
  )
  (acad_strlsort liste)
)

---

Wo muss ich denn hier einfügen, wenn ich alle Layer haben möchte, die mit "ZE" anfangen und "-" aufhören?
Ich dachte mir das so.

Code:

---

(defun c:LayerListeWahl (/ liste layer)
  ;Eine Liste mit allen Layernamen beginnend mit "ZE" und endend mit "-" schreiben
  (setq layer (tblnext "LAYER" t))
  (while layer

    (if (and (= (cdr (assoc 2 layer)) "ZE*") (= (cdr (assoc 2 layer)) "*-"));Wenn Layer dem Suchkriterium entspricht, den Layer der Liste hinzufügen

      (progn
        (setq liste (cons (cdr (assoc 2 layer)) liste))
        (setq layer (tblnext "LAYER"))
      );end progn
     
    );endif
   
  )
  (acad_strlsort liste)
 
)

---

Leider funktioniert es so nicht.
Wie könnte das gehen?

Christian

------------------
Christian

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

---

guck dir mal wcmatch statt = an

------------------
  - Thomas -          
"Bei 99% aller Probleme ist die umfassende Beschreibung des Problems bereits mehr als die Hälfte der Lösung desselben."

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

---

und/oder VL-STRING-SEARCH
(mit VL-STRING-SEARCH bekommst du noch die Position und kannst ggf weiter eingrenzen)

------------------
Mfg Heiko

Elefantenjagd in Afrika
"... LISP-Programmierer bauen einen Irrgarten aus Klammern und hoffen, dass sich der Elefant darin verirrt..."

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

---

statt

Code:

---

  (acad_strlsort liste)

---

  einfach

Code:

---

(vl-remove-if-not '(lambda (str)(wcmatch str "ZE*-"))(acad_strlsort liste))

---

schreiben geht auch, dann werden die Layer erst am Ende aus der sortierten Liste entfernt.
oder erst entfernen, dann sortieren, geht einige Millisekunden schneller.

------------------
Mit freundlichem Gruß

Udo Hübner
www.CAD-Huebner.de

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

---

Vielen Dank allen für die Antworten, ich werde das nach dem Wochenende mal austesten.

------------------
Christian

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

---

Ich hab's getestet und es funktionier perfekt.

Vielen vielen Dank an Euch.

Hier nochmal der ganze Code.

Code:

---

(defun c:LayerlisteWahlTest(/)
; Ruft das nächste Program mit einem Parameter auf
  (c:LayerListeWahl "ZE*-")
)

(defun c:LayerListeWahl (Kriterium / liste layer)
  ;Eine Liste mit allen Layernamen laut Variable 'Kriterium' schreiben
  (setq layer (tblnext "LAYER" t))
  (while layer
    (setq liste (cons (cdr (assoc 2 layer)) liste))
    (setq layer (tblnext "LAYER"))
  )
  (vl-remove-if-not '(lambda (str)(wcmatch str Kriterium))(acad_strlsort liste))
)

---

------------------
Christian

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

---

das C: am Anfang des Funktionsnamens würde ich weglassen, das wird typischerweise nur zur Definiton von AutoCAD Kommandos verwendet. Die Funktionen dürfen dann aber keine Parameter haben.
Noch ein allgemeiner Programmiertipp:
Verteile die Aufgabe in meherere Funktionen, die nur ihre Audgabe erfüllen, dann kann man diese Funktionen auch für andere Programme wiederverwenden.

Code:

---

; Unterfunktionen
;; LayerListe unverändert von fuchsi
(defun LayerListe (/ liste layer)
  (setq layer (tblnext "LAYER" t))
  (while layer
    (setq liste (cons (cdr (assoc 2 layer)) liste))
    (setq layer (tblnext "LAYER"))
  )
  (acad_strlsort liste)
)
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
(defun entferneausliste (liste Kriterium)
  (vl-remove-if-not
    '(lambda (str)(and (= (type str) 'STR) ; Nur Strings vergleichen
                      (wcmatch str Kriterium)
                  )
    )
    Liste
  )
)
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
;; AutoCAD Kommando definieren zur Ausgabe
;; aller Layer beginnend mit ZE und endent mit -.

(Defun C:LLZE  ()
    (entferneausliste (Layerliste) "ZE*-")
)

---

------------------
Mit freundlichem Gruß

Udo Hübner
www.CAD-Huebner.de

[Diese Nachricht wurde von CAD-Huebner am 23. Aug. 2010 editiert.]

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

---

Hallo Udo,
danke für den allgemeinen Tipp. Seh ich immer gerne.

Das mit dem c: war für mich immer so ein Ratespiel.
Und ich hatte mir gemerkt, dass ich Dinger mit c: aus der Befehlzeile starten kann.
Durch den Hinweis mit den Parametern ist mir die Logik jetzt klarer.

------------------
Grüße aus München
Christian

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

---

Die Antwort ist einfach:
Autolisp kennt keine Platzhalter.
Ergo kann man nicht einfach mit "ZE*" oder "*-" arbeiten
SUBSTR und STRLEN helfen weiter
etwa so
(setq lnam (cdr (assoc 2 layer) ) llen (strlen lnam) )
(if (and (= (substr lnam 1 2) "ZE") (= (substr lnam llen 1) "*-") )

usw.

cmd

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

---

Zitat:

---

Original erstellt von cmd:
Die Antwort ist einfach:
Autolisp kennt keine Platzhalter.
Ergo kann man nicht einfach mit "ZE*" oder "*-" arbeiten
SUBSTR und STRLEN helfen weiter
etwa so
(setq lnam (cdr (assoc 2 layer) ) llen (strlen lnam) )
(if (and (= (substr lnam 1 2) "ZE") (= (substr lnam llen 1) "*-") )

usw.

cmd

---

schon mal die Autolispfunktion WCMATCH angeguckt ???.. wegen Platzhalter und so ???  ( steht auch ganz oben schon mal ...)

------------------
  - Thomas -          
"Bei 99% aller Probleme ist die umfassende Beschreibung des Problems bereits mehr als die Hälfte der Lösung desselben."

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

---

Zitat:

---

Original erstellt von cmd:
Die Antwort ist einfach:
Autolisp kennt keine Platzhalter.
Ergo kann man nicht einfach mit "ZE*" oder "*-" arbeiten
SUBSTR und STRLEN helfen weiter
etwa so
(setq lnam (cdr (assoc 2 layer) ) llen (strlen lnam) )
(if (and (= (substr lnam 1 2) "ZE") (= (substr lnam llen 1) "*-") )

usw.

cmd

---

Aber natürlich kennt Auto/VisualLisp Platzhalter:
(wcmatch str "ZE*-")

Ich würde dem OP aber empfehlen, die Sache mehr Lisp-mäßig anzugehen und die Funktion zum Lesen aller Layer gar nicht zu ändern (bis auf den Namen, den würde ich zur Unterscheidung von einer Variablen, die eine Layerliste speichern soll, z.B. erzeuge-layerliste nennen).

In einer weiteren Funktion kann er dann jeden Layer darauf prüfen, ob er bestimmte Kriterien erfüllt:

(foreach layer (erzeuge-layerliste)
  (if (wcmatch layer "ZE*-")
    (setq result (cons layer result))
  )
)
(reverse result)

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