---

Hallo zusammen!

Wir bekommen von einem Neukunden Zeichnungen mit bis zu 30 Layouts.
Diese sind leider nicht benannt wie z.B. 1 von 30 bzw. 11 von 30, sondern nennen sich irgendwie.

Um schnell zu ermitteln wieviele Lauyouts es gibt und in welchem ich gerade bin, wollte ich mir mal schnell ein kleines Tool schreiben und mir die Infos in einer MsgBox anzeigen lassen.

Code:

---

Sub Layout_Angaben()
Dim i As Integer
Dim a As Integer
Dim LName As String
Dim AnzahlLayout As AcadLayout

For i = 0 To ThisDrawing.Layouts.Count - 1
Next i

'Wie ermittel ich hier die Nummer (a) des aktiven Layouts???

LName = ThisDrawing.ActiveLayout.Name

MsgBox i & " / " & LName

'MsgBox a & " von " & i & " / " & LName

End Sub

---

Könnte mir hier jemand kurzfristig helfen, wie das zu lauten hätte?

Vielen Dank im Voraus.

------------------
Gruß

Dirk

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

---

Für die Anzahl pack dir das auf einen Button:

(alert (strcat "Die Zeichnung enthält "(itoa(length(layoutlist))) " Paperlayout(s)"))

für die Nummer guck dir die Property TABORDER des LAyouts an
.. z.B.
(alert (strcat "Layout "
              (itoa(vla-get-taborder
                      (vla-get-activelayout
                        (vla-get-activedocument(vlax-get-acad-object))
                      )
                    )                   
              )
              " von "
              (itoa(length(layoutlist)))
              " Layouts"
            )
)

------------------
       - 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

---

Hi,
warum nicht einfach so:

Code:

---

Debug.Print ThisDrawing.Layouts(i).Name & " = Layout Nr. " & i & " von " & ThisDrawing.Layouts.Count & " Layouts"

---

------------------
Gruß,
runkelruebe          Herr Kann-ich-nich wohnt in der Will-ich-nich-Straße...

System-Info | Dateianhänge | FAQ-ACAD | CAD.de-Hilfe | Sei eine Antilope

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

---

Zitat:

---

Original erstellt von runkelruebe:
Hi,
warum nicht einfach so:

Code:

---

Debug.Print ThisDrawing.Layouts(i).Name & " = Layout Nr. " & i & " von " & ThisDrawing.Layouts.Count & " Layouts"

---

---

weil IMHO das die i die Erstellreihenfolge und nicht die Tabreihenfolge repräsentiert !

------------------
  - 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

---

@Cadmium Recht haste, aber wenigstens hab ich die richtige Sprache erwischt   

------------------
Gruß,
runkelruebe          Herr Kann-ich-nich wohnt in der Will-ich-nich-Straße...

System-Info | Dateianhänge | FAQ-ACAD | CAD.de-Hilfe | Sei eine Antilope

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

---

Hi,

hier mit TabOrder (in richtiger Sprache )

Code:

---

Dim tLayout As AcadLayout
For Each tLayout In ThisDrawing.Layouts
  Debug.Print ("Name: " & tLayout.Name & " TabOrder: " & tLayout.TabOrder)
Next

---

- alfred -

------------------
www.hollaus.at

---

Vielen Dank!

So funktioniert es nun:

Code:

---

Sub Layout_Angaben()
Dim i As Integer
Dim LName As String
Dim ALayout As AcadLayout

LName = ThisDrawing.ActiveLayout.Name
Set ALayout = ThisDrawing.ActiveLayout

For i = 0 To ThisDrawing.Layouts.Count - 1
Next i

MsgBox ALayout.TabOrder & " von " & i & "  /  " & LName

End Sub

---

------------------
Gruß

Dirk

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

---

Hi,

die Schleife rechnest Du aber umsonst, denn in dieser wird nichts gemacht, also könntest Du doch  ThisDrawing.Layouts.Count  direkt verwenden, oder?

- alfred -

------------------
www.hollaus.at