---

Aloah leute

Gibt es eine möglichkeit in Autocad, eine zeichnung nach linien zu durchsuchen. d.h ich will sicherstellen, dass in meiner zeichnung keine Violetten linien mehr vorhanden sind. Kann ich diese irgendwie anzeigen lassen ? In der hilfe find ich irgendwie nix schlaues.

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

---

Lies dir bitte mal den Beitrag durch http://ww3.cad.de/foren/ubb/Forum145/HTML/000169.shtml

------------------
Gruß
     http://www.cadwiesel.de" TARGET=_blank>CADwiesel</A>
bin auch im Urlaub: 29.07 - 27.08

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

---

Hui Ist das lisp ? txt datei draus machen + apploaden ?? Oder geht das anders, was ist dann der befehl um das aufzurufen bzw was müsste ich von dem zeug alles ins lisp hineinkopieren ?

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

---

Um Linien auszufiltern kann man auch den Befehl Filter verwenden. Die in dem von CADwiesel gelinkten Beitrag dargestellten Möglichkeiten sind zwar sehr gut, der Befehl Filter ist aber flexibler für nicht-Lispler in der Anwendung 

------------------

gruß
Stephan

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

---

Ich habe dir den Kot von Holger zusammengepackt und auf Magenta eingestellt.
nimmst das was Zwischen ;;;------code beginn
und ;;;----------code ende steht, machst eine *.txt datei auf (Notepad), kopierst das da rein, speicherst das im acad\support verzeichniss als z.b. Magentaweg.LSP ab.
dann in Acad laden über _appload und in der Befehlszeile starten mit magentaweg

magenta iss weg!

;;;------------code beginn
(defun ssget:Farbe (farbe vLayer / at autom as)
  (if vlayer
    (setq at    T
          autom (apply
                  'strcat
                  (mapcar
                    '(lambda (S)
                      (if at
                        (progn
                          (setq at nil)
                          S
                          )            ;progn
                        (strcat "," S)
                        ) ;_ end of if
                      ) ;_ end of lambda
                    (apply 'append
                          (mapcar
                            '(lambda (L)
                                (if (= (cdr L) farbe)
                                  (list (car L))
                                  ) ;_ end of if
                                ) ;_ end of lambda
                            (f:get_eig (get_allnames_table "LAYERS") 'COLOR)
                            ) ;_ end of mapcar
                          ) ;_ end of apply
                    ) ;_ end of mapcar
                  ) ;_ end of apply
          as    (ssget "_X"
                      (list
                        '(-4 . "<and")
                        (cons 8 autom)
                        (cons 62 256)
                        '(-4 . "and>")
                        ) ;_ end of list
                      ) ;_ end of ssget
          ) ;_ end of setq
    (setq as
          (ssget "_X"
                  (list
                    (cons 62 farbe)
                    ) ;_ end of list
                  ) ;_ end of ssget
          ) ;_ end of setq
    ) ;_ end of if
  (if as
    (bau_elemli as)
    ) ;_ end of if
  ) ;_ end of defun
(defun f:get_eig (li eig /)
  (mapcar '(lambda (L / prop)
            (cons (car L) (vlax-get-property (cdr L) eig))
            ) ;_ end of lambda
          li
          ) ;_ end of mapcar
  ) ;_ end of defun
(defun bau_elemli (asatz / n elemli)
  (setq n 0)
  (repeat (sslength asatz)
    (setq elemli (cons (ssname asatz n) elemli)
          n      (1+ n)
          ) ;_ end of setq
    ) ;_ end of repeat
  elemli
  ) ;_ end of defun
(defun drawing ()
  (vlax-get-property
    (vlax-get-acad-object)
    "ActiveDocument"
    ) ;_ end of vlax-get-property
  ) ;_ end of defun
(defun get_count_table (table /)
  (vlax-get-property
    (vlax-get-property
      (drawing)
      table
      ) ;_ end of vlax-get-property
    'count
    ) ;_ end of vlax-get-property
  ) ;_ end of defun
(defun get_allnames_table (table / names z)
  (repeat (get_count_table table)
    (setq z    (if z
                  (1+ z)
                  0
                  ) ;_ end of if
          names (cons (cons (vlax-get-property
                              (setq dimobjtmp (vlax-invoke-method
                                                (vlax-get-property
                                                  (drawing)
                                                  table
                                                  ) ;_ end of vlax-get-property
                                                'item
                                                z
                                                ) ;_ end of vlax-invoke-method
                                    ) ;_ end of setq
                              'name
                              ) ;_ end of vlax-get-property
                            dimobjtmp
                            ) ;_ end of cons
                      names
                      ) ;_ end of cons
          ) ;_ end of setq
    ) ;_ end of repeat
  (if names
    (reverse names)
    ) ;_ end of if
  ) ;_ end of defun
;;;Löscht alle Elemente, die Weiß sind - also beides zusammen
(defun c:magentaweg (/)
  (mapcar 'entdel
          (append
            (ssget:Farbe 6 T)
            (ssget:Farbe 6 nil)
            ) ;_ end of append
          ) ;_ end of mapcar
  ) ;_ end of defun
;;;----------code ende

------------------
Gruß
CADwiesel
bin auch im Urlaub: 29.07 - 27.08

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

---

toll. danke

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

---

Hallo,
wie wärs denn mit dem befehl filter.
einfach die linie auswählen die deinen suchkriterien entspricht...
und los gehts
Gruss
Peter

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

---

Hallo Peter
das Lisp sucht dir alle Linien die Magenta sind und alle die
VONLAYER (Magenta) sind - das kann der Filter nicht !

-Ob der Gute sowas tolles wollte ist allerdings auch fraglich...

------------------
Gruß Sebastian , Ffm
Der Feind des Guten ist das Bessere.

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

---

Hallo Sebastian,
schon richtig, so speziell geht das mit Filter auf Knopfdruck nicht, aber wenn Du ausserdem auch noch alle blauen, gelben, grünen haben musst, musste den Lisp ewig umschreiben. Bei Filter kannste einfach halt die andere Farbe wählen. Wie schon oben gesagt: für nicht-Lispler ist Filter die bessere Wahl, für AutoCAD-Profis Lispeln (zumindest ansatzweise) ein "MUSS". 

------------------

gruß
Stephan

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

---

das ist ja klar Stephan...

Es wäre übrigens DER KNALLER wenn Adesk mal die Möglichkeiten
vom Filter und Sauswahl UND DER SUCHE/ERSETZEN (_find) kombinieren würden ! -
das würde glatt 10UŽs von mir geben 

Beispiele:

Sauswahl - Blocknamen zum wählen anbieten...
          Speichermöglichkeit

Filter  - nach Linienlänge suchen...

Und für alle : (_find) - Attributwerte in Blöcken suchen...

Mein bisheriges Fazit: Filter geht fast alles
                      - "also besser"

                      Sauswahl geht für einfache Abfragen komfortabler
                      - also nutze ich sie (viel) häufiger

------------------
Gruß Sebastian , Ffm
Der Feind des Guten ist das Bessere.

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