| |
| Gut zu wissen: Hilfreiche Tipps und Tricks aus der Praxis prägnant, und auf den Punkt gebracht für Autodesk Produkte |
Autor
|
Thema: alle Layout löschen in Zeichnung (2089 mal gelesen)
|
vittorio0 Mitglied
Beiträge: 35 Registriert: 13.07.2009 AutoCAD 2009, 2011, Access 2003
|
erstellt am: 14. Mrz. 2013 16:24 <-- editieren / zitieren --> Unities abgeben:
Hallo, ich möchte alle vorhandenen Layouts in der aktuellen Zeichnung löschen. Vorher füge ich noch ein Layout mit dem Namen "dummy" ein da ja man immer min. 1 Layout und den Modellbereich in Autocad haben muss. Der folgende Code funktioniert bis er auf den Layoutnamen "Model" kommt. Danach kommt die Fehlermeldung "Error 5: Ungültiger Prozeduraufruf oder ungültiges Argument" Was mach ich da falsch? Code: ' Delete all layouts '@@@ Dim TabCount As Long, TabOrder As Long Dim TabName As String ThisDrawing.Layouts.Add "dummy" For TabCount = 0 To ThisDrawing.Layouts.Count + 1 TabName = ThisDrawing.Layouts(TabCount).Name If TabName <> "Model" Then If TabName <> "dummy" Then MsgBox TabName & " ist nicht Model und nicht dummy " & TabCount ThisDrawing.Layouts(TabCount).Delete Else MsgBox " ist Model oder dummy " & TabCount End If End If Next TabCount
Danke für Eure Hilfe. Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP |
wronzky Ehrenmitglied V.I.P. h.c. CAD-Dienstleistungen für Architekten
Beiträge: 2154 Registriert: 02.05.2005 CAD: AutoCAD 2.6 bis 2014 ADT 2005 - ACA 2013 Arcibem System: Windows NT, 2000, XP Internet-Startseite: http://www.archi.de
|
erstellt am: 14. Mrz. 2013 19:04 <-- editieren / zitieren --> Unities abgeben: Nur für vittorio0
"count" liefert die Anzahl der Layouts. Wenn Du also die Layouts über den Index abarbeiten willst mußt Du Code: ... For TabCount = 0 To ThisDrawing.Layouts.Count - 1 ^ ...
schreiben.Grüsse, Henning ------------------ Henning Jesse VoxelManufaktur Computer-Dienstleistungen für Architekten und Ingenieure http://www.voxelman.de Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP |
KlaK Ehrenmitglied V.I.P. h.c. Dipl. Ing. Vermessung, CAD- und Netz-Admin
Beiträge: 2624 Registriert: 02.05.2006 AutoCAD LandDesktop R2 bis 2004 Civil 3D 2005 - 2022 Plateia, Canalis Visual Basic
|
erstellt am: 15. Mrz. 2013 14:55 <-- editieren / zitieren --> Unities abgeben: Nur für vittorio0
|