---

Hallo zusammen!

Gibt es zufällig einen Befehl,bei dem man z.B. ein Objekt auf einem bestimmten Layer anklickt und alle anderen Layer werden automatisch ausgeschaltet/gefroren, so dass nur noch der gewählte Layer in der Zeichnung sichtbar ist?

Danke für Eure Hilfe 

Liebe Grüße aus Aachen
Daniela

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

---

Hi

wenn du die Express-Tools draufhast, gibt es Layer Isolieren.

------------------
Gruß

Yvonne

Besucht uns auf der inoffiziellen ADT-Help-Site

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

---

Layer Walk in den Express Tools ist so was in der Art. Ab 2005 denk ich !
[nmpf - das nenn ich mal gleichzeitig]

[Diese Nachricht wurde von cosgeo am 12. Mai. 2005 editiert.]

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

---

Hallo Daniela,

wenn Du Express-Tools nicht haben solltest, setze einfach den gewünschten Layer aktuell und gebe dann folgende Zeile ein:

-LA FR *

nach dem Stern drücke so oft die Eingabe oder Leertaste bis Du wieder im Befehlsmodus bist. Groß- oder Kleinbuchstaben sind
bei der Befehlseingabe egal. Die Leertaste ist gleichzeitig die Eingabe- oder Enter-Taste.

Erklärung:

Der Bindestrich unterdrücke die Dialogbox,
LA (Alias für Layer) ruft den Befehl Layer auf,
FR kurzform für Frieren,
* für alle Layer
und die folgenden Enter für Meldungen und Befehl beenden.

Gruß

Werner

------------------
www.Werner-Maahs.de

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

---

frieren würde ich die Layer aber nicht.
lieber blos ausschalten.

als Knöppchen:  ^C^C-layer;a;*;;

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

---

Hab noch was auf meine Platte gefunden:
Für Layeraus:
(defun c:Layer-wie( / LAYER OK)
  (while (not OK)   
    (if(=(setq LAYER (getstring 'T "Alle Layer aus, außer: <Von Objekt>: ")) "")
      (setq LAYER(cdr(assoc 8 (entget(car(nentsel))))))
    ) 
    (if (not (setq OK (tblsearch "LAYER" LAYER)))   
      (princ "\n Eingegebener Layer existiert nicht.\n")
    ) 
  )
  (if OK
    (while (setq EINTRAG (tblnext "LAYER" (null EINTRAG)))
      (setq EINTRAG(entget(tblobjname "LAYER" (cdr(assoc 2 EINTRAG)))))
      (if(/=(strcase(cdr(assoc 2 EINTRAG)))(strcase LAYER))
        (entmod(subst (cons 62 (* -1 (abs(cdr(assoc 62 EINTRAG)))))(assoc 62 EINTRAG)EINTRAG))
      ) 
    ) 
  )
  (princ)
)

Für Layer frieren

(defun c:Layer-wie-FR( / LAYER OK)
  (while (not OK)   
    (if(=(setq LAYER (getstring 'T "Alle Layer aus, außer: <Von Objekt>: ")) "")
      (setq LAYER(cdr(assoc 8 (entget(car(nentsel))))))
    ) 
    (if (not (setq OK (tblsearch "LAYER" LAYER)))   
      (princ "\n Eingegebener Layer existiert nicht.\n")
    ) 
  )
  (if OK
    (progn
      (setvar "CLAYER" LAYER)
      (while (setq EINTRAG (tblnext "LAYER" (null EINTRAG)))
        (setq EINTRAG(entget(tblobjname "LAYER" (cdr(assoc 2 EINTRAG)))))
        (if(/=(strcase(cdr(assoc 2 EINTRAG)))(strcase LAYER))               
          (entmod(subst (cons 70 (logior (cdr(assoc 70 EINTRAG))1))  (assoc 70 EINTRAG)EINTRAG))
        ) 
      ) 
    ) 
  )
  (princ)
)

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

---

Leute, Ihr seid suuuuper!

Klappt alles wunderbar!

Vieleeeeen Dank und Gruß aus Aachen

Daniela 

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