| |
| Gut zu wissen: Hilfreiche Tipps und Tricks aus der Praxis prägnant, und auf den Punkt gebracht für Autodesk Produkte |
| |
| Request a special discount on NVIDIA RTX 5000 Ada Generation GPU !, eine Pressemitteilung
|
Autor
|
Thema: Anzahl von Layout / 2 von 25 (1684 mal gelesen)
|
Dirk.B Mitglied Tischler / Leiter Arbeitsvorbereitung
Beiträge: 534 Registriert: 25.11.2003 AutoCAD 2021/2022 CAD+T HP ZBook 15 G4, 64-bit, WIN 10 Pro
|
erstellt am: 07. Jan. 2011 13:09 <-- editieren / zitieren --> Unities abgeben:
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 AcadLayoutFor 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 |
CADmium Moderator Maschinenbaukonstrukteur
Beiträge: 13527 Registriert: 30.11.2003 ACAD 2008 Mechanical
|
erstellt am: 07. Jan. 2011 13:12 <-- editieren / zitieren --> Unities abgeben: Nur für Dirk.B
|
runkelruebe Ehrenmitglied V.I.P. h.c. Straßen- / Tiefbau
Beiträge: 8086 Registriert: 09.03.2006 sw: Win7-x64 Office 365 ProPlus C3D (& LT ) ET; DACH; Extensions ------------------- hw: FX3800 i5 CPU 670 8GB RAM
|
erstellt am: 07. Jan. 2011 13:23 <-- editieren / zitieren --> Unities abgeben: Nur für Dirk.B
|
CADmium Moderator Maschinenbaukonstrukteur
Beiträge: 13527 Registriert: 30.11.2003 ACAD 2008 Mechanical
|
erstellt am: 07. Jan. 2011 13:31 <-- editieren / zitieren --> Unities abgeben: Nur für Dirk.B
|
runkelruebe Ehrenmitglied V.I.P. h.c. Straßen- / Tiefbau
Beiträge: 8086 Registriert: 09.03.2006 sw: Win7-x64 Office 365 ProPlus C3D (& LT ) ET; DACH; Extensions ------------------- hw: FX3800 i5 CPU 670 8GB RAM
|
erstellt am: 07. Jan. 2011 13:36 <-- editieren / zitieren --> Unities abgeben: Nur für Dirk.B
|
Ex-Mitglied
|
erstellt am: 07. Jan. 2011 15:20 <-- editieren / zitieren -->
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 |
Dirk.B Mitglied Tischler / Leiter Arbeitsvorbereitung
Beiträge: 534 Registriert: 25.11.2003
|
erstellt am: 07. Jan. 2011 15:55 <-- editieren / zitieren --> Unities abgeben:
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 |
Ex-Mitglied
|
erstellt am: 07. Jan. 2011 16:37 <-- editieren / zitieren -->
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 |