---

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

---

"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

---

oder gleich mit:

Code:

---

..
For each entity in ThisDrawing.Layouts
  ..

---

da spart man sich solch lästige Fehler ...

Grüße
Klaus 

Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP