| |
| Gut zu wissen: Hilfreiche Tipps und Tricks aus der Praxis prägnant, und auf den Punkt gebracht für Autodesk Produkte |
| |
| PNY wird von NVIDIA zum Händler des Jahres gewählt – zum dritten Mal in Folge, eine Pressemitteilung
|
Autor
|
Thema: layfreeze (364 mal gelesen)
|
mangeli Mitglied Dipl.Ing.Architekt
Beiträge: 64 Registriert: 12.02.2003 Autocad LT 2013 / 2016, Deutsch
|
erstellt am: 13. Mrz. 2003 16:00 <-- editieren / zitieren --> Unities abgeben:
|
Kramer24 Ehrenmitglied V.I.P. h.c. Architekt
Beiträge: 5896 Registriert: 09.11.2001 Acad Architecture 2023 WIN 10
|
erstellt am: 13. Mrz. 2003 16:04 <-- editieren / zitieren --> Unities abgeben: Nur für mangeli
|
Caladia Ehrenmitglied V.I.P. h.c.
Beiträge: 2546 Registriert: 04.03.2002 ACAD2009 ACAD2010 SP2 ACAD2011 SP1 ABDS-S 2012 SP2 ABDS-S 2013 SP2 ABDS-S 2014 SP1 ABDS-S 2015 SP2 ABDS-S 2016 Expresstools A3-Makroboard 16-Tasten Lupe Impression 3 Win7 64bit IE11 Firefox Office2003 SP3
|
erstellt am: 13. Mrz. 2003 16:14 <-- editieren / zitieren --> Unities abgeben: Nur für mangeli
|
1000Hands Mitglied CEO
Beiträge: 990 Registriert: 24.03.2002 HP Workstation Z840 Building Design Suite Premium 2018 auf Windows7 64Bit
|
erstellt am: 13. Mrz. 2003 16:28 <-- editieren / zitieren --> Unities abgeben: Nur für mangeli
|
Kramer24 Ehrenmitglied V.I.P. h.c. Architekt
Beiträge: 5896 Registriert: 09.11.2001 Acad Architecture 2023 WIN 10
|
erstellt am: 13. Mrz. 2003 16:39 <-- editieren / zitieren --> Unities abgeben: Nur für mangeli
Stefan, nein, da hast Du Recht , also: Basteln Lothar (wobei der Sinn für ALLE Frieren, noch nicht so klar ist) ------------------ "Stellt Euch vor, es geht, und keiner kriegt's hin." (Neuss)
[Diese Nachricht wurde von Kramer24 am 13. März 2003 editiert.] Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP |
1000Hands Mitglied CEO
Beiträge: 990 Registriert: 24.03.2002 HP Workstation Z840 Building Design Suite Premium 2018 auf Windows7 64Bit
|
erstellt am: 13. Mrz. 2003 17:01 <-- editieren / zitieren --> Unities abgeben: Nur für mangeli
Zitat: Original erstellt von Kramer24:
(wobei der Sinn für ALLE Frieren, noch nicht so klar ist)
Wenn ich Mittag essen gehe, friere ich den aktuellen Layer damit AutoCAD nicht ohne mich weitermacht... ------------------ mfG Stefan Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP |
mangeli Mitglied Dipl.Ing.Architekt
Beiträge: 64 Registriert: 12.02.2003 Autocad LT 2013 / 2016, Deutsch
|
erstellt am: 13. Mrz. 2003 18:06 <-- editieren / zitieren --> Unities abgeben:
|
Thomas Rausch Mitglied
Beiträge: 1200 Registriert: 26.03.2001 Intel Xeon 3,6 GHz 32 GB RAM NVIDIA Quadro P2000 Windows 10 Enterprise AutoCADmap 3D 2023 WS-Landcad 2023 QGIS 3.28.5
|
erstellt am: 14. Mrz. 2003 07:25 <-- editieren / zitieren --> Unities abgeben: Nur für mangeli
Hallo, ich befürchte, ich habe es nicht ganz verstanden. Wozu sollen denn dafür die ExpressTools gut sein? Der Befehl lautet doch -layer und dann die Eingaben FR (für frieren)und * (für alle) und wenn ich denn ein Knöpfchen brauche, dann eben als Makro _-layer;fr;*;; und _-layer;t;; ------------------ gruß thomas [Diese Nachricht wurde von Thomas Rausch am 14. März 2003 editiert.] [Diese Nachricht wurde von Thomas Rausch am 14. März 2003 editiert.] Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP |
Brischke Ehrenmitglied V.I.P. h.c. CAD on demand GmbH
Beiträge: 4187 Registriert: 17.05.2001 AutoCAD 20XX, defun-tools
|
erstellt am: 14. Mrz. 2003 08:30 <-- editieren / zitieren --> Unities abgeben: Nur für mangeli
Hallo, über den Sinn kann man streiten, man kann es aber auch lassen. Ich habe in meinem Acad-Leben schon von so vielen Wünschen gehört, die absolut irrsinnig waren, aber für den Einzelfall durchaus Sinn machten. Lange Rede kurzer Sinn hier eine Lösung in Lisp:
Code:
(defun c:frzall (/ lay) (command "_.undo" "_group") (setq lay (tblnext "LAYER" T)) (while lay (if (/= (getvar "CLAYER") (cdr (assoc 2 lay))) (ltb_frz (cdr (assoc 2 lay))) ) (setq lay (tblnext "LAYER")) ) (command "_.undo" "_end") ) (defun ltb_frz (ltb_name / ltb_bit70 ltb_layer ltb_do) (if (and (tblsearch "LAYER" ltb_name) (not (= ltb_name (getvar "CLAYER"))) );and (progn (if (= 0 (logand (cdr(assoc 70 (setq ltb_layer (entget (tblobjname "LAYER" ltb_name))))) 1)) (progn (setq ltb_bit70 (cons 70 (1+ (cdr(assoc 70 ltb_layer)))) ltb_layer (subst ltb_bit70 (assoc 70 ltb_layer) ltb_layer) ltb_do T ) (entmod ltb_layer) ) ) ) ) ltb_do )
Bei Fragen ... Grüße Holger ------------------ Holger Brischke CADlon - Lisp over night! Neue Tool's im Free-&Download Zugang zum Download schon gesichert? [Diese Nachricht wurde von Brischke am 14. März 2003 editiert.] Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP |
Kramer24 Ehrenmitglied V.I.P. h.c. Architekt
Beiträge: 5896 Registriert: 09.11.2001 Acad Architecture 2023 WIN 10
|
erstellt am: 14. Mrz. 2003 08:40 <-- editieren / zitieren --> Unities abgeben: Nur für mangeli
Moin Holger, wann hast Du denn das gemacht? Zwischen 1. Tasse Kaffee und 2. Frühstück. Brauche Dein Lisp leider nicht, dennoch... Lothar ------------------ "Stellt Euch vor, es geht, und keiner kriegt's hin." (Neuss) Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP |
Brischke Ehrenmitglied V.I.P. h.c. CAD on demand GmbH
Beiträge: 4187 Registriert: 17.05.2001 AutoCAD 20XX, defun-tools
|
erstellt am: 14. Mrz. 2003 08:55 <-- editieren / zitieren --> Unities abgeben: Nur für mangeli
Hallo Lothar, Lisp over night! basiert auf etlichen Tool's und SUB's die so in der Schublade liegen. Unter anderem eben auch so einige Layer-SUB's die noch aus der Zeit vor den Bonus- und Expresstool's stammen. Da diese auch nicht jeder hat, nutze ich da lieber meine eigenen. Um Deine Frage zu beantworten: Bei meiner 1. Tasse Kaffee im Büro. (und da ist noch etwas drin) ;-)) Bei Fragen ... Grüße Holger ------------------ Holger Brischke CADlon - Lisp over night! Neue Tool's im Free-&Download Zugang zum Download schon gesichert? Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP |