---

hallo,

layerfilter alle aufeinmal löschen ... kein problem
bestimmte komfortabel auswählen ist für mich ein problem

ich habe in der zeichnung 10filter die ich benötige und die restlichen 100 nicht. hat wer eine lösung für mich?

grüsse
sleepwalker

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

---

Servus

Sind die 10 Filter in einer Anderen Datei Definiert?

Wenn JA alle löschen, dann über DC einen beliebigen Layer einfügen.

Wenn NEIN alle löschen, und neu definieren.

Wenn NEIN und anderer Weg gewollt (nehm ich mal stark an) hoffen auf die LISPLER.

------------------
Same shit, different DAU. DAU Jones

  Bernd P.     

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

---

Hi,
ich habe das mal so versucht:
bei jedem Einfügen eines Objektes oder einfügen von xrefs werden die Layerfilter übernommen. Ich habe eine Musterzeichnung mit den gewünschten Filtern angelegt und kopiere nach dem löschen ein Objekt in die aktuelle Zeichnung und schon sind die Filter wieder da.
Etwas umständlich, aber solange noch nichts besseres...

------------------
Bis demnächst
Rainer

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

---

(defun C:del_but ( / )
  (setq nicht_Löschen (list
                        '("name1");Namen reinschreiben
                        '("name2")
                        '("name3...")
                        )
        )
  (DELFILTERS nicht_Löschen)
  )
(defun DELFILTERS ( not_del_list / lext-dict ldict lay_entity lay_filters filter_names)
(vl-load-com)
  (setq lext-dict
    (entget
      (vlax-vla-object->ename
        (vla-GetExtensionDictionary
          (vla-get-layers
            (vla-get-ActiveDocument
              (vlax-get-acad-object)
            )
          )
        )
      )
    )
  )
  (if (setq ldict (member (cons 3 "ACAD_LAYERFILTERS") lext-dict))
    (cdr (assoc 360 ldict))
    nil
  )
  (if ldict
    (progn
  (setq lay_entity (cdr (assoc 360 ldict)))
  (setq lay_filters (entget lay_entity))
  (while (assoc 3 lay_filters)
    (progn
      (setq filter_names (cdr (assoc 3 lay_filters)))
      (if (not(member filter_names not_del_list))
      (dictremove lay_entity filter_names)
        )
      (setq lay_filters (entget lay_entity))
    )
  )
  )
    )
(princ)
)

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

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

---

hallo cad-wiesel,

ich habe das so probiert

(defun C:del_but ( / )
  (setq nicht_Löschen (list
                        '("___ALLE");Namen reinschreiben
                        '("___PIT_BAU")
                        )))

hat aber nicht funktioniert ... hab ich bei der eingabe was falsch?

danke
sleepwalker

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

---

oops - sorry - Grober schnitzer

so passts:

(defun del_but (/)
  (setq nicht_Löschen
        (list
          '("Test")
          '("willi")
          '("name3...")
          ) ;_ end of list
        ) ;_ end of setq
  (DELFILTERS nicht_Löschen)
  ) ;_ end of defun

(defun DELFILTERS (not_del_list  /              lext-dict
                  ldict          lay_entity    lay_filters
                  filter_names
                  )
  (vl-load-com)
  (setq lext-dict
        (entget
          (vlax-vla-object->ename
            (vla-GetExtensionDictionary
              (vla-get-layers
                (vla-get-ActiveDocument
                  (vlax-get-acad-object)
                  ) ;_ end of vla-get-ActiveDocument
                ) ;_ end of vla-get-layers
              ) ;_ end of vla-GetExtensionDictionary
            ) ;_ end of vlax-vla-object->ename
          ) ;_ end of entget
        ) ;_ end of setq
  (if (setq ldict (member (cons 3 "ACAD_LAYERFILTERS") lext-dict))
    (cdr (assoc 360 ldict))
    nil
    ) ;_ end of if
  (if ldict
    (progn
      (setq lay_entity (cdr (assoc 360 ldict)))
      (setq lay_filters (entget lay_entity))
      (while lay_filters
        (if (= 3 (caar lay_filters))
          (if (not (member (list (cdar lay_filters)) not_del_list))
            (progn
              (dictremove lay_entity (cdar lay_filters))
              (setq lay_filters (cdr lay_filters))
              ) ;_ end of progn
            ) ;_ end of if
          ) ;_ end of if
        (setq lay_filters (cdr lay_filters))
        ) ;_ end of while
      ) ;_ end of progn
    ) ;_ end of if
  (princ)
  )

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

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

---

Hi,
Programm in Editor kopiert, als del_but.lsp abgespeichert, lsp als Anwendung geladen, in Befehlszeile del_but eingegeben - unbekannter Befehl
Was mache ich verkehrt?

------------------
Bis demnächst
Rainer

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

---

erstmal laden mit appload (oder per Drag&Drop ins Dateifenster in aCAD ziehen)
dann mit (del_but) starten - also MIT Klammer !
- oder den Code ändern in : (defun c:del_put ....

------------------
- Sebastian Mattis -

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

---

Danke, jetzt klappts.

------------------
Bis demnächst
Rainer

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