---

Hi Leute,

möchte gerne aus diesem Auswahlsatz ss-all MP1 und MP2 rauslöschen!
Dieser Code macht aber nur einen teil und überspringt einige!

(setq ss-all (ssget "x" (list (cons 0 "INSERT"))))
(setq i 0)
  (while (setq aws-obj (ssname ss-all i))
    (setq obj-name (cdr (assoc 2 (entget aws-obj))))
    (if (or (= "MP1" obj-name)(= "MP2" obj-name));Löschen von MP1 und MP2 aus Auswahlsatz SS-all
(ssdel aws-obj ss-all)
      )   
    (setq i (+ i 1))   
    );end of while

kann es MS-Vista sein ?

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

---

 

Zitat:

---

Original erstellt von GG-GREGOR:
kann es MS-Vista sein ?

---

Mit Sicherheit nicht!! Lisp nutzt den in ACAD eingebauten Interpreter .. und der kann den jeweiligen Befehlssatz im Zusammenhang mit der Zeichnungsdatenbankstruktur der Version.

Die Filterung über die Blocknamen, so wie du sie machst, versagt aber bei dynamischen Blöcken .. vielleicht liegts daran?

Groß und Kleinschreibung bei den Blocknamen sollte nicht ins Gewicht fallen, aber ich würde da jeweils beim Vergleich noch en strcase drumrumpacken ..

der Konstrukt mit While, der Zählvariable und ssdel ist auch nicht so doll .... einfach nochmal durchdenken!

Mein Vorgehensvorschlag (prinzipiell , hier reicht ja theor. ein anderer ssget-Filter):

1. aus dem AuswahlSatz eine Objekt-Liste erzeugen
dann kann man
2.mit mapcar oder vl-remove-if usw die Liste so wie man sie haben will bearbeiten
und dann
3.mit ssadd einen neuen auswahlsatz kreieren und den als Funktionsrückgabe definieren

------------------
      - 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

---

Ich würde die Blockreferenzen erst garnicht mit auswählen:
(ssget "_X" '((0 . "INSERT")(-4 . "<not")(2 . "MP1,MP2")(-4 . "not>")))

Und wenn ich dann doch auf deinen Code eingehe so schätze ich mal das
es nur daran liegt das du Groß- und Kleinschreibung beim Vergleichen
berücksichtigst !

(setq obj-name (strcase(cdr (assoc 2 (entget aws-obj)))))
...(or (= "MP1" obj-name)(= "MP2" obj-name))

geht sicher wie gewünscht, allerdings würde es dann doch nicht wirklich funktionieren weil sich deine Anzahl der Objekte im Aws ändert und somit dein Zähler"i" immer das nächste
element nach einem Treffer überspringt.

------------------
die alte SUCHfunktion.. - System-Angaben - User:FAQ(Adesk)

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

---

(setq ss-all (ssget "x" (list (cons 0 "INSERT"))))
(setq i 0)
  (while (setq aws-obj (ssname ss-all i))
    (setq obj-name (cdr (assoc 2 (entget aws-obj))))
    (if (or (= "MP1" obj-name)(= "MP2" obj-name));Löschen von MP1 und MP2 aus Auswahlsatz SS-all
(Progn
(ssdel aws-obj ss-all)
(setq i (- i 1))
)
      )   
    (setq i (+ i 1))   
    );end of while

ja der Zäherl war falsch so ein dummer fehler :-(
Danke!

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

---

dann denke über das strcase bitte auch noch nach, das spart dann 1-2 Postings in naher Zukunft 

------------------
die alte SUCHfunktion.. - System-Angaben - User:FAQ(Adesk)

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