| |
![](https://ww3.cad.de/php/image.php?resolution=width:20050) | Gut zu wissen: Hilfreiche Tipps und Tricks aus der Praxis prägnant, und auf den Punkt gebracht für Autodesk Produkte |
Autor
|
Thema: LAYER-PINSEL (4156 mal gelesen)
|
Bernd P Ehrenmitglied V.I.P. h.c. cook-general
![](/foren/avatars/Bernd_P.gif)
![Schreiben Sie einen Gästebucheintrag für Bernd P](/foren/ubb/pmimages/gbu.gif) Beiträge: 3420 Registriert: 07.06.2001 W10-64bit, AMD Ryzen 7 3700X,32GB RAM, Sapphire Pulse Radeon RX 570 8G G5, Canon TX-3000 MFP, Maus Cherry MW4500, Sub:Infrastructure Design Suite, Office 365
|
erstellt am: 19. Mai. 2004 12:04 <-- editieren / zitieren --> Unities abgeben: ![1 Unity (wenig hilfreich, aber dennoch)](/foren/ubb/z1.gif) ![2 Unities](/foren/ubb/z2.gif) ![3 Unities](/foren/ubb/z3.gif) ![4 Unities](/foren/ubb/z4.gif) ![5 Unities](/foren/ubb/z5.gif) ![6 Unities](/foren/ubb/z6.gif) ![7 Unities](/foren/ubb/z7.gif) ![8 Unities](/foren/ubb/z8.gif) ![9 Unities](/foren/ubb/z9.gif)
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 |
tmoehlenhoff Ehrenmitglied V.I.P. h.c. Gutzum, CAD-Therapeut und BIM-Priester ;-)
![](/foren/avatars/tmoehlenhoff.gif)
![Schreiben Sie einen Gästebucheintrag für tmoehlenhoff](/foren/ubb/pmimages/gbu.gif) Beiträge: 2996 Registriert: 14.10.2002 AutoCAD 2017, AutoCAD Architecture 2017, Revit 2017 und was sonst noch so Spaß macht ...
|
erstellt am: 19. Mai. 2004 17:49 <-- editieren / zitieren --> Unities abgeben: ![1 Unity (wenig hilfreich, aber dennoch)](/foren/ubb/z1.gif) ![2 Unities](/foren/ubb/z2.gif) ![3 Unities](/foren/ubb/z3.gif) ![4 Unities](/foren/ubb/z4.gif) ![5 Unities](/foren/ubb/z5.gif) ![6 Unities](/foren/ubb/z6.gif) ![7 Unities](/foren/ubb/z7.gif) ![8 Unities](/foren/ubb/z8.gif) ![9 Unities](/foren/ubb/z9.gif) Nur für Bernd P
|
don max Mitglied architekt
![](/foren/ubb/star3.gif)
![Schreiben Sie einen Gästebucheintrag für don max](/foren/ubb/pmimages/gbu.gif) Beiträge: 48 Registriert: 23.02.2004 Windows 2000, A-Cad 2000 (spanisch)
|
erstellt am: 21. Mai. 2004 14:13 <-- editieren / zitieren --> Unities abgeben: ![1 Unity (wenig hilfreich, aber dennoch)](/foren/ubb/z1.gif) ![2 Unities](/foren/ubb/z2.gif) ![3 Unities](/foren/ubb/z3.gif) ![4 Unities](/foren/ubb/z4.gif) ![5 Unities](/foren/ubb/z5.gif) ![6 Unities](/foren/ubb/z6.gif) ![7 Unities](/foren/ubb/z7.gif) ![8 Unities](/foren/ubb/z8.gif) ![9 Unities](/foren/ubb/z9.gif) Nur für Bernd P
Zitat: Original erstellt von Bernd P: ServusDas 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 ------------------ ![](/foren/ubb/confused.gif) Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP |
tmoehlenhoff Ehrenmitglied V.I.P. h.c. Gutzum, CAD-Therapeut und BIM-Priester ;-)
![](/foren/avatars/tmoehlenhoff.gif)
![Schreiben Sie einen Gästebucheintrag für tmoehlenhoff](/foren/ubb/pmimages/gbu.gif) Beiträge: 2996 Registriert: 14.10.2002 AutoCAD 2017, AutoCAD Architecture 2017, Revit 2017 und was sonst noch so Spaß macht ...
|
erstellt am: 22. Mai. 2004 16:16 <-- editieren / zitieren --> Unities abgeben: ![1 Unity (wenig hilfreich, aber dennoch)](/foren/ubb/z1.gif) ![2 Unities](/foren/ubb/z2.gif) ![3 Unities](/foren/ubb/z3.gif) ![4 Unities](/foren/ubb/z4.gif) ![5 Unities](/foren/ubb/z5.gif) ![6 Unities](/foren/ubb/z6.gif) ![7 Unities](/foren/ubb/z7.gif) ![8 Unities](/foren/ubb/z8.gif) ![9 Unities](/foren/ubb/z9.gif) Nur für Bernd P
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 |
Bernd P Ehrenmitglied V.I.P. h.c. cook-general
![](/foren/avatars/Bernd_P.gif)
![Schreiben Sie einen Gästebucheintrag für Bernd P](/foren/ubb/pmimages/gbu.gif) Beiträge: 3420 Registriert: 07.06.2001 W10-64bit, AMD Ryzen 7 3700X,32GB RAM, Sapphire Pulse Radeon RX 570 8G G5, Canon TX-3000 MFP, Maus Cherry MW4500, Sub:Infrastructure Design Suite, Office 365
|
erstellt am: 24. Mai. 2004 11:17 <-- editieren / zitieren --> Unities abgeben: ![1 Unity (wenig hilfreich, aber dennoch)](/foren/ubb/z1.gif) ![2 Unities](/foren/ubb/z2.gif) ![3 Unities](/foren/ubb/z3.gif) ![4 Unities](/foren/ubb/z4.gif) ![5 Unities](/foren/ubb/z5.gif) ![6 Unities](/foren/ubb/z6.gif) ![7 Unities](/foren/ubb/z7.gif) ![8 Unities](/foren/ubb/z8.gif) ![9 Unities](/foren/ubb/z9.gif)
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 |
Sir Vival Mitglied Fachplaner Kanalsanierung
![](/foren/ubb/star3.gif) ![](/foren/ubb/star3.gif)
![Schreiben Sie einen Gästebucheintrag für Sir Vival](/foren/ubb/pmimages/gbu.gif) Beiträge: 134 Registriert: 12.09.2003
|
erstellt am: 02. Feb. 2006 12:58 <-- editieren / zitieren --> Unities abgeben: ![1 Unity (wenig hilfreich, aber dennoch)](/foren/ubb/z1.gif) ![2 Unities](/foren/ubb/z2.gif) ![3 Unities](/foren/ubb/z3.gif) ![4 Unities](/foren/ubb/z4.gif) ![5 Unities](/foren/ubb/z5.gif) ![6 Unities](/foren/ubb/z6.gif) ![7 Unities](/foren/ubb/z7.gif) ![8 Unities](/foren/ubb/z8.gif) ![9 Unities](/foren/ubb/z9.gif) Nur für Bernd P
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 |
Carsten1210 Mitglied staatl. geprüfter Holztechniker
![](/foren/ubb/star3.gif) ![](/foren/ubb/star3.gif) ![](/foren/ubb/star3.gif) ![](/foren/ubb/star3.gif)
![Schreiben Sie einen Gästebucheintrag für Carsten1210](/foren/ubb/pmimages/gbu.gif) Beiträge: 1358 Registriert: 24.07.2002 AutoCAD ACA 2018 Solidworks 2016 Sp5 Enterprise PDM 2016 Sp5 Pascam Woodworks Visual Studio 2017 Pro Windows 10 64Bit Dell T3620 Intel Core i7-7700K 16 GB Arbeitsspeicher 2x Samsung S24C650 Dell M4800
|
erstellt am: 02. Feb. 2006 13:22 <-- editieren / zitieren --> Unities abgeben: ![1 Unity (wenig hilfreich, aber dennoch)](/foren/ubb/z1.gif) ![2 Unities](/foren/ubb/z2.gif) ![3 Unities](/foren/ubb/z3.gif) ![4 Unities](/foren/ubb/z4.gif) ![5 Unities](/foren/ubb/z5.gif) ![6 Unities](/foren/ubb/z6.gif) ![7 Unities](/foren/ubb/z7.gif) ![8 Unities](/foren/ubb/z8.gif) ![9 Unities](/foren/ubb/z9.gif) Nur für Bernd P
|
symo Mitglied
![](/foren/ubb/star3.gif)
![Schreiben Sie einen Gästebucheintrag für symo](/foren/ubb/pmimages/gbu.gif) Beiträge: 26 Registriert: 04.05.2002
|
erstellt am: 13. Feb. 2006 15:52 <-- editieren / zitieren --> Unities abgeben: ![1 Unity (wenig hilfreich, aber dennoch)](/foren/ubb/z1.gif) ![2 Unities](/foren/ubb/z2.gif) ![3 Unities](/foren/ubb/z3.gif) ![4 Unities](/foren/ubb/z4.gif) ![5 Unities](/foren/ubb/z5.gif) ![6 Unities](/foren/ubb/z6.gif) ![7 Unities](/foren/ubb/z7.gif) ![8 Unities](/foren/ubb/z8.gif) ![9 Unities](/foren/ubb/z9.gif) Nur für Bernd P
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 |
CAD-Huebner Ehrenmitglied V.I.P. h.c. Verm.- Ing., ATC-Trainer
![](/foren/avatars/CAD-Huebner.gif)
![Schreiben Sie einen Gästebucheintrag für CAD-Huebner](/foren/ubb/pmimages/gbu.gif) Beiträge: 9795 Registriert: 01.12.2003 AutoCAD 2.5 - 2025, Civil 3D, MAP 3D, ACADM, ACA Inventor Prof. 2025, AIP 4-2025 Win 11
|
erstellt am: 13. Feb. 2006 22:40 <-- editieren / zitieren --> Unities abgeben: ![1 Unity (wenig hilfreich, aber dennoch)](/foren/ubb/z1.gif) ![2 Unities](/foren/ubb/z2.gif) ![3 Unities](/foren/ubb/z3.gif) ![4 Unities](/foren/ubb/z4.gif) ![5 Unities](/foren/ubb/z5.gif) ![6 Unities](/foren/ubb/z6.gif) ![7 Unities](/foren/ubb/z7.gif) ![8 Unities](/foren/ubb/z8.gif) ![9 Unities](/foren/ubb/z9.gif) Nur für Bernd P
|
symo Mitglied
![](/foren/ubb/star3.gif)
![Schreiben Sie einen Gästebucheintrag für symo](/foren/ubb/pmimages/gbu.gif) Beiträge: 26 Registriert: 04.05.2002
|
erstellt am: 14. Feb. 2006 08:48 <-- editieren / zitieren --> Unities abgeben: ![1 Unity (wenig hilfreich, aber dennoch)](/foren/ubb/z1.gif) ![2 Unities](/foren/ubb/z2.gif) ![3 Unities](/foren/ubb/z3.gif) ![4 Unities](/foren/ubb/z4.gif) ![5 Unities](/foren/ubb/z5.gif) ![6 Unities](/foren/ubb/z6.gif) ![7 Unities](/foren/ubb/z7.gif) ![8 Unities](/foren/ubb/z8.gif) ![9 Unities](/foren/ubb/z9.gif) Nur für Bernd P
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 |
marc.scherer Ehrenmitglied V.I.P. h.c. CAD-Administrator
![](/foren/avatars/marc.scherer.gif)
![Schreiben Sie einen Gästebucheintrag für marc.scherer](/foren/ubb/pmimages/gbu.gif) Beiträge: 2494 Registriert: 02.11.2001 Windows 10 64bit AutoCAD Architecture 2018/2019 (deu/eng) AEC-Collection 2019 (Revit und Zeugs) Wenn sich's nicht vermeiden läßt: D-A-CH Erweiterung (mies implementierter Schrott)
|
erstellt am: 14. Feb. 2006 09:20 <-- editieren / zitieren --> Unities abgeben: ![1 Unity (wenig hilfreich, aber dennoch)](/foren/ubb/z1.gif) ![2 Unities](/foren/ubb/z2.gif) ![3 Unities](/foren/ubb/z3.gif) ![4 Unities](/foren/ubb/z4.gif) ![5 Unities](/foren/ubb/z5.gif) ![6 Unities](/foren/ubb/z6.gif) ![7 Unities](/foren/ubb/z7.gif) ![8 Unities](/foren/ubb/z8.gif) ![9 Unities](/foren/ubb/z9.gif) Nur für Bernd P
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 |
s.greiwe Mitglied Projektleiter
![](/foren/ubb/star3.gif)
![Schreiben Sie einen Gästebucheintrag für s.greiwe](/foren/ubb/pmimages/gbu.gif) Beiträge: 79 Registriert: 11.09.2006
|
erstellt am: 28. Sep. 2006 17:44 <-- editieren / zitieren --> Unities abgeben: ![1 Unity (wenig hilfreich, aber dennoch)](/foren/ubb/z1.gif) ![2 Unities](/foren/ubb/z2.gif) ![3 Unities](/foren/ubb/z3.gif) ![4 Unities](/foren/ubb/z4.gif) ![5 Unities](/foren/ubb/z5.gif) ![6 Unities](/foren/ubb/z6.gif) ![7 Unities](/foren/ubb/z7.gif) ![8 Unities](/foren/ubb/z8.gif) ![9 Unities](/foren/ubb/z9.gif) Nur für Bernd P
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 |
charlieBV Ehrenmitglied V.I.P. h.c. Bauzeichnerin
![](/foren/avatars/charlieBV.gif)
![Schreiben Sie einen Gästebucheintrag für charlieBV](/foren/ubb/pmimages/gbu.gif) Beiträge: 9319 Registriert: 28.08.2003
|
erstellt am: 28. Sep. 2006 19:57 <-- editieren / zitieren --> Unities abgeben: ![1 Unity (wenig hilfreich, aber dennoch)](/foren/ubb/z1.gif) ![2 Unities](/foren/ubb/z2.gif) ![3 Unities](/foren/ubb/z3.gif) ![4 Unities](/foren/ubb/z4.gif) ![5 Unities](/foren/ubb/z5.gif) ![6 Unities](/foren/ubb/z6.gif) ![7 Unities](/foren/ubb/z7.gif) ![8 Unities](/foren/ubb/z8.gif) ![9 Unities](/foren/ubb/z9.gif) Nur für Bernd P
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 |
s.greiwe Mitglied Projektleiter
![](/foren/ubb/star3.gif)
![Schreiben Sie einen Gästebucheintrag für s.greiwe](/foren/ubb/pmimages/gbu.gif) Beiträge: 79 Registriert: 11.09.2006 AutoCAD 2015 Windows 8.1 (normal) Rechner: Lenovo Y50, i7, 16GB RAM, 512GB SSD Grafikkarte: Nvidia Geforce GTX 860m, 4GB RAM
|
erstellt am: 29. Sep. 2006 07:51 <-- editieren / zitieren --> Unities abgeben: ![1 Unity (wenig hilfreich, aber dennoch)](/foren/ubb/z1.gif) ![2 Unities](/foren/ubb/z2.gif) ![3 Unities](/foren/ubb/z3.gif) ![4 Unities](/foren/ubb/z4.gif) ![5 Unities](/foren/ubb/z5.gif) ![6 Unities](/foren/ubb/z6.gif) ![7 Unities](/foren/ubb/z7.gif) ![8 Unities](/foren/ubb/z8.gif) ![9 Unities](/foren/ubb/z9.gif) Nur für Bernd P
|
s.greiwe Mitglied Projektleiter
![](/foren/ubb/star3.gif)
![Schreiben Sie einen Gästebucheintrag für s.greiwe](/foren/ubb/pmimages/gbu.gif) Beiträge: 79 Registriert: 11.09.2006
|
erstellt am: 09. Okt. 2006 11:40 <-- editieren / zitieren --> Unities abgeben: ![1 Unity (wenig hilfreich, aber dennoch)](/foren/ubb/z1.gif) ![2 Unities](/foren/ubb/z2.gif) ![3 Unities](/foren/ubb/z3.gif) ![4 Unities](/foren/ubb/z4.gif) ![5 Unities](/foren/ubb/z5.gif) ![6 Unities](/foren/ubb/z6.gif) ![7 Unities](/foren/ubb/z7.gif) ![8 Unities](/foren/ubb/z8.gif) ![9 Unities](/foren/ubb/z9.gif) Nur für Bernd P
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 |