---

Hallo,

ich versuche mit einem Makro die Anzahl der Views einer Zeichnung mit 2 Blättern zu ermitteln. Mit der Zeile AnzahlView=DrawingDoc.GetViewCount werden auch immer die views des 2. Blattes mitgezählt.

Wie bekomme ich aber nur die Anzahl der Views des 1. Blattes?

------------------
Einen schönen Gruß, Thomas

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

---

Hallo Thomas,

schau dir doch mal im SWX-Forum den folgenden Beitrag an:
https://forum.solidworks.com/message/275647

Im letzten Beispiel bekommst du eine Liste mit Views, die den Sheets
zugeordnet sind. Diese Liste musst du nur noch Filtern und kannst dann
die Anzahl ermitteln.

------------------
==========
Gruß
Andreas
==========

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

---

Hallo Thomas,

mit Sheet::GetViews bekommst du von einem Blatt die Zeichenansichten als Variant. Daraus solltest du mit UBOUND(...) die Anzahl der Views bekommen. Ungefähr so:

Code:

---

' **********************************************************************
' * Makro gibt Anzahld er Views auf dem aktuellen zeichenblatt aus
' *
' * 22.05.2007 Stefan Berlitz (stefan.berlitz@solidworks.cad.de)
' * http://solidworks.cad.de
' * http://swtools.cad.de
' *
' **********************************************************************

Dim swApp          As Object
Dim DrawingDoc      As Object
Dim Sheet          As Object

Dim ViewNames      As Variant
Dim ViewName        As Variant

' Konstante aus swconst.bas
Const swDocDRAWING = 3

Sub main()

    ' an SolidWorks anhängen
    Set swApp = Application.SldWorks
    ' ddas aktive Dokument holen (soltle eien Zeichnung sein!)
    Set DrawingDoc = swApp.ActiveDoc
    ' aktuelles Blatt holen
    Set Sheet = DrawingDoc.GetCurrentSheet

    ' den Viewnamen aus den Blatteigenschaften auslesen
    ViewNames = Sheet.GetViews
   
    ' und Anzahl der Views ausgeben
    Debug.Print UBound(ViewNames) + 1
   
    For Each ViewName In ViewNames
        Debug.Print ViewName.Name
    Next

End Sub

---

Ciao,
Stefan

------------------
Inoffizielle deutsche SolidWorks Hilfeseite    http://solidworks.cad.de

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

---

Danke euch für die Hilfen! Der Schnipsel von Andreas funktioniert wunderbar!

Bei Stefans Lösung werden lustigerweise auch die noch nicht in der Zeichnung platzierten Ansichten aus der Ansichtpalette mit erfasst.

------------------
Einen schönen Gruß, Thomas

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