| | |
 | Gut zu wissen: Hilfreiche Tipps und Tricks aus der Praxis prägnant, und auf den Punkt gebracht für Autodesk Produkte |
| | |
 | Autodesk Inventor: Blechkonstruktion - Online, ein Seminar am 21.10.2025
|
|
Autor
|
Thema: alle Layout löschen (311 mal gelesen)
|
CADuceus
Mitglied
LWL-Netzplaner GIS
   Beiträge: 359
Registriert: 20.01.2005 LWL Netzplanung
AutoCAD Map 3D 2020
Win10 64bit / Chrome
Intel® Core™ i7-4770K 3.50GHz / 32GB
NVidia Quadro P400
HP DesignJet T795
|
erstellt am: 27. Sep. 2005 14:47  <-- editieren / zitieren -->   Unities abgeben:          
Guten Tag geschätzte Mitklickerinnen und Mitklicker Ich möchte meinen "Fertigstellen"-Button soweit raffinieren, dass er vor "bereinigen", "plätten" und "prüfen" noch "alle ausser aktuelles Layout löschen" durchführt. Einzeln über die Befehlzeile kein Problem. Aber wie kann ich das auf alle Zeichnungen anwenden, wenn die Layout-Namen verschieden sind? Kann man das überhaupt mit Makro lösen, oder nur mit LISP? ------------------
Du kannst in anderen nur entzünden,
was in Dir selber brennt!   Ich bin ein Traffic-Dieb! Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP |
CADmium
Moderator
Maschinenbaukonstrukteur
    
Beiträge: 13527
Registriert: 30.11.2003 Hinweis: Meine Mitarbeit auf CAD.DE ist fakultativ, unentgeltlich und beruht nur auf einem ausgeprägtem Helfersyndrom.
|
erstellt am: 27. Sep. 2005 15:07 <-- editieren / zitieren --> Unities abgeben: Nur für CADuceus 
Das Lisp im Anhang löscht dir alle Layouts bis auf das Modell und das aktuelle. ------------------
 - 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 |
CADuceus
Mitglied
LWL-Netzplaner GIS
Beiträge: 359
Registriert: 20.01.2005 LWL Netzplanung
AutoCAD Map 3D 2020
Win10 64bit / Chrome
Intel® Core™ i7-4770K 3.50GHz / 32GB
NVidia Quadro P400
HP DesignJet T795
|
erstellt am: 27. Sep. 2005 15:19 <-- editieren / zitieren --> Unities abgeben:
Vielen Dank Thomas
Obwohl ich langsam die Übersicht über sie selbstgeladenen LISP-Tools verliere, habe ich versucht Dein File zu laden.
Doch ich kriege die Fehlermeldung "Die Initialisierung des Tools ist leider fehlgeschlagen.". Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP |
CADchup
Ehrenmitglied V.I.P. h.c.
Beiträge: 3336
Registriert: 14.03.2001 Sicher ist, dass nichts sicher ist. Selbst das nicht.
Joachim Ringelnatz
|
erstellt am: 27. Sep. 2005 16:20 <-- editieren / zitieren --> Unities abgeben: Nur für CADuceus
Hi, wie sieht's damit aus: Code:
;|
Lösche
alle
Layouts
bis
auf
das
aktuelle
|;
(defun c:Lalbada (/ i tab)
(vl-load-com)
(vlax-for i (vla-get-Layouts
(vla-get-activedocument (vlax-get-acad-object))
)
(if
(and (/= (setq tab (strcase (vla-get-name i))) "MODEL")
(/= tab (strcase (getvar "CTAB")))
)
(vla-delete i)
)
)
)
Gruß
CADchup ------------------
www.cadditions.de Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP |
| |
CADuceus
Mitglied
LWL-Netzplaner GIS
Beiträge: 359
Registriert: 20.01.2005 LWL Netzplanung
AutoCAD Map 3D 2020
Win10 64bit / Chrome
Intel® Core™ i7-4770K 3.50GHz / 32GB
NVidia Quadro P400
HP DesignJet T795
|
erstellt am: 27. Sep. 2005 16:37 <-- editieren / zitieren --> Unities abgeben:
|
Foren auf CAD.de (alle Foren)
| 
