Layer plotbar (Autodesk/Lisp)


	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 Meldungen abonnieren
Autor	Thema: Layer plotbar (631 mal gelesen)
GeorgK Mitglied Beiträge: 619 Registriert: 06.06.2001	erstellt am: 22. Jan. 2008 15:32 <-- editieren / zitieren --> Unities abgeben: Hallo, wie kann ich bei allen ausgeschalteten Layern auch noch das Plotten auf aus setzen? Vielen Dank und Grüße Georg Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP
joern bosse Ehrenmitglied Dipl.-Ing. Vermessung und AutoLISPler Beiträge: 1781 Registriert: 11.10.2004 Window 11 ACAD 2021 CIVIL 2021 BricsCAD ab V14 11th Gen Intel(R) Core(TM) i7-1165G7 @ 2.80GHz 2.80 GHz 32.0GB RAM NVIDIA GeForce MX450<P>	erstellt am: 22. Jan. 2008 15:39 <-- editieren / zitieren --> Unities abgeben: Nur für GeorgK Hallo Georg, ungetestet: (if (and(setq layer (tblobjname "LAYER" "MeinLAyer")) (<(cdr(assoc 62 layer))0)) (entmod (subst (cons 290 0)(assoc 290 layer)layer))) Und das dann in eine Schleife. ------------------ viele Grüße Jörn Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP
CADmium Moderator Maschinenbaukonstrukteur Beiträge: 13533 Registriert: 30.11.2003 .	erstellt am: 22. Jan. 2008 15:40 <-- editieren / zitieren --> Unities abgeben: Nur für GeorgK (defun c:Loffnoplot(/ LAYER) (while(setq LAYER(tblnext "LAYER" (null LAYER))) (setq LAYER(entget(tblobjname "LAYER"(cdr(Assoc 2 LAYER))))) (if(<(cdr(assoc 62 LAYER))0) (entmod(subst'(290 . 0)(assoc 290 LAYER)LAYER)) ) ) ) An wirst du sie ja dann wieder alleine bekommen.. ------------------ - 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
GeorgK Mitglied Beiträge: 619 Registriert: 06.06.2001	erstellt am: 22. Jan. 2008 15:56 <-- editieren / zitieren --> Unities abgeben: Vielen Dank. Das ist eine super Lösung. Wünsche Euch noch einen schönen Tag Grüße Georg Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP

Anzeige.:
X

Anzeige: (Infos zum Werbeplatz >>)