---

Servus

Das Teile funktionierte in AC2000, wieso machtŽs ab 2004 nixmehr.
Kann wer helfen.

Wer es nicht kennt: Überträgt Layereinstellungen (gefroren, nicht gefroren) von einem Ansichtsfenster zum Andernen.
----------------------------------------------
defun c:layer-pinsel( / layers target)
  (setq layers
    (vl-remove-if
      (function
        (lambda(pair / )(/= 341(car pair)))
      )
      (entget(car(entsel"\nQuelle wählen: ")))
    )
  )
  (while(setq target(car(entsel"\nZiel wählen: ")))
    (command"_vplayer""_th""*"layer"")
    (foreach layer layers
      (print(cdr(assoc 2(entget(cdr layer)))))
      (command"_vplayer""_fr"(cdr(assoc 2(entget(cdr layer))))"_s"target"""")
    )
  )
)
-----------------------------------------------------

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

  Bernd P.     

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

---

Der Gruppencode für die gefrorenen Layer ist mittlerweile 331 statt 341. Wenn man das anpasst, dann tuts wieder.

sayonara
Torsten Möhlenhoff
ACAD-Systemhaus Bremen

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

---

Zitat:

---

Original erstellt von Bernd P:
Servus

Das Teile funktionierte in AC2000, wieso machtŽs ab 2004 nixmehr.
Kann wer helfen.

Wer es nicht kennt: Überträgt Layereinstellungen (gefroren, nicht gefroren) von einem Ansichtsfenster zum Andernen.

---

hallo bernd, wie ist das mit den ansichtsfenstern denn zu verstehen? ich versteh nicht so ganz wie das lisp funktioniert. vielleicht kannst du mir ja nen tipp geben.

gruss markus

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

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

---

Nach dem Lades des Programms kann man den Befehl layer-pinsel im Layout benutzen. Dort klickt man zunächst das Quellfenster und anschließend alle Zielfenster an. Die Zielfenster übnehmen dann die Festlegung der gefrorenen Layer des Quellfensters, d.h. in den Zielfenstern werden zunächst alle Layer getaut und anschließend die gefroren, die im Quellfenster auch gefroren waren.

sayoara
Torsten Möhlenhoff
ACAD-Systemhaus Bremen

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

---

Servus

Jau das von Torsten warŽs. Für alle dies auch haben wollen
--------------------------------------------------------------------------------------------
defun c:layer-pinsel( / layers target)
  (setq layers
    (vl-remove-if
      (function
        (lambda(pair / )(/= 331(car pair)))
      )
      (entget(car(entsel"\nQuelle wählen: ")))
    )
  )
  (while(setq target(car(entsel"\nZiel wählen: ")))
    (command"_vplayer""_th""*"layer"")
    (foreach layer layers
      (print(cdr(assoc 2(entget(cdr layer)))))
      (command"_vplayer""_fr"(cdr(assoc 2(entget(cdr layer))))"_s"target"""")
    )
  )
)

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

  Bernd P.     

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

---

Hallo zusammen!

Ich bin auf der Suche nach einer Möglichkeit, wie ich mit möglichst geringem Aufwand die Layersteuerung aus einem bestehendem Ansichtsfenster auf ein anderes bestehendes Ansichtsfenster übertragen kann (->welche Layer im Ansichtsfenster gefroren sind).
Das ganze sollte ähnlich wie der Befehl "Eigenschaften anpassen" (Pinsel) funktionieren.
Bei der Suche hier im Forum fand ich diesen Beitrag.
Die oben beschriebene Lösung hört sich für mich auch sehr vielversprechend an. Genau das was ich suche. Doch leider erhalte ich in AutoCAD 2006 (bzw. Civil 3D 2006) nach dem Laden der Lisp (die untere Version) folgende Fehlermeldung:
; Fehler: Fehlerhafter Argumenttyp: numberp: nil
Weiß jemand woran das liegt?

Gruß
Christian

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

---

Hallo Christian,

Das Lisp muss mit einer ( anfangen.
Die Fehlt oben im Beitrag. Füge einfach die Klammer vor dem Defun ein und dann sollte es klappen.

Gruß, Carsten

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

---

Hallo zusammen

Leider kommt bei mir die Meldung "Unbekannter Befehl "LAYER-PINSEL"."
Lisp ist mit Appload geladen, Supportpfad ist eingetragen.
Was mach ich falsch? Was müsste in CUI  Menüs und oder Werkzeugkasten in Macro eingetragen werden?

Gruss
symo

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

---

Hallo Symo, das ist einfach. Lies mal alle Beiträge. Carsten1210 hatte bereits festgestellt, dass die öffnende Klammer vor dem DEFUN fehlt.

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

Udo Hübner

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

---

Hallo Udo Hübner

Klammer war eingetragen und der Code getauscht.
Lisp ist mit Appload geladen, Supportpfad ist eingetragen.

Was müsste in CUI  Menüs und oder Werkzeugkasten in Macro eingetragen werden? Vielleicht klappt es dann?

Gruss

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

---

Makro müßte sein:

Code:

---

^c^c(if (null C:LAYER-PINSEL)(load "layer-pinsel.lsp"))(princ);LAYER-PINSEL;

---

Voraussetzungen hierfür:
1. Die Funktion ist in einer Datei "layer-pinsel.lsp" gespeichert.
2. Diese Datei liegt im AutoCAD Suchpfad.

------------------
Ciao,
Marc

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

---

Hallo,
ich hole das Thema nochmal hoch. Ist es auch möglich das man die Ansichtsfenstereigenschaften zwischen verschiedenen DWG überträgt?
Wir haben hier 2 Räume die Spiegelbildlich sind. Das "nervige" ist, das die gefrorenen Layer beim Layout kopieren wieder getaut sind.
Oder vielleicht hat einer von euch auch eine andere Methode wie das geht.
Gruß Stephan

------------------
mfg Stephan

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

---

Hi,

nicht schön, funktioniert aber:
Ansichtsfenster aktiv schalten, Layerstatus über den Layereigenschaften-Manager speichern (darauf achten, dass die Häkchen bei im Ansichtsfenster.... gesetzt sind), in das andere Ansichtsfenster wechseln, Layerstatus wiederherstellen und es sollte funktionieren.

------------------
Gruß Yvonne                                   ADT-Help-Site

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

---

Oh danke Yvonne!!
Das hat geholfen! Langsam wachsen die ACAD-Kenntnisse immer weiter!

gruß Stephan

------------------
mfg Stephan

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

---

Hallo,

ich habe das Programm LAYER-PINSEL mal benutzt.
Folgendes:
Quellfenster - Layer A ist gefroren
              Layer B ist getaut

Zielfenster -  Layer A ist getaut
              Layer B ist gefroren

Wenn ich den Layer-Pinsel benutze wird die Eigenschaft vom Layer A übernommen aber nicht von Layer B.
Hat auch einer diese Problem?

Hier noch der CODE:

Code:

---

(
defun c:layer-pinsel( / layers target)
  (setq layers
    (vl-remove-if
      (function
        (lambda(pair / )(/= 331(car pair)))
      )
      (entget(car(entsel"\nQuelle wählen: ")))
    )
  )
  (while(setq target(car(entsel"\nZiel wählen: ")))
    (command"_vplayer""_th""*"layer"")
    (foreach layer layers
      (print(cdr(assoc 2(entget(cdr layer)))))
      (command"_vplayer""_fr"(cdr(assoc 2(entget(cdr layer))))"_s"target"""")
    )
  )
)

---

------------------
mfg Stephan

[Diese Nachricht wurde von s.greiwe am 09. Okt. 2006 editiert.]

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