---

Moin Moin VBA-Bastler mit SWX

Benötige dringend Informationen zu VBA, WIE ich beim Öffnen und Speichern eines SWX-Objektes, “ALLE” Meldungen die auftreten können, unterdrücken kann.
So z.B. der Hinweis, das das Teil beim Speichern konvertiert wird.

Des weiteren bräuchte ich auch die Info, mit welchem VBA-Befehl ich fehlerhafte Features, Skizzen und Verknüpfungen ermitteln kann, um diese zu dokumentieren.

Danke im voraus

------------------
Gruß aus Braunschweig
Carsten 

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

---

Hallo Carsten,

retval = SldWorks.OpenDoc6 ( filename, type, options, configuration, &Errors, &Warnings )

Das erreichst du beim öffnen eines Dokuments z.B. mit dem Parameter options, in welchen du der Enumerationsvariablen swOpenDocOptions_e festlegst.

Die Option um alle Meldungen zu unterdrücken ist swOpenDocOptions_Silent.

Also als Parameter für options einfach swOpenDocOptions_e.swOpenDocOptions_Silent übergeben

------------------
Mfg Daniel

Es gibt nur drei Möglichkeiten: Sieg, Unentschieden oder Niederlage
----------------------------------------------
SolidWorks API-Programmierung | Makros | Tools | Addins | Schulung

SolidWorks API Programmierung; Schuler Design Automation GmbH |   kontakt@schuler-da.de

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

---

Ob ein Feature einen Fehler hat, kannst Du mit Feature.GetErrorCode abfragen...

------------------
Lutz Federbusch
Mein Gästebuch
Der Mensch, Herr oder Sklave der Technik?

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

---

vielen Dank Daniel und Lutz.

Schönen Feierabend.

------------------
Gruß aus Braunschweig
Carsten 

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

---

Hallo CBon,

das mit den Meldungen machen ich mit einen Programm "PTFB" => Press the Freakin Button wenn Du es willst dann kann ich es Dir zusenden, es ist relativ "alt" aber es erfüllt zeinen Zweck sehr gut.

Gruß Mc Fly

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

---

Hallo,

möchte nochmal auf VBA zurückkommen und bräuchte einen kleinen Hinweis von euch, mit welcher Einstellung, oder mit welchem Befehl ich der Meldung: "Ansichten inaktiver Fenster müssen aktualisiert werden ..." beim Speichern, die Antwort JA automatisch mitgebe.

------------------
Gruß aus Braunschweig
Carsten 

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

---

Kommt das auch, wenn Du vorher jedes Blatt mal aktiviert und neuaufgebaut hast? Sollte dann eigentlich nicht...

------------------
Lutz Federbusch
Mein Gästebuch
Der Mensch, Herr oder Sklave der Technik?

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

---

Leider gibt es hierfür keine Option. Haben sogar beim API-Support angerufen.

Du kannst in diesem Fall nur die Ansichten per API in allen Blätter aktuallisieren, so wie es die MessageBox verlangt!
Das kannst du aber schnell erledigen!
Zwei Schleifen, einmal alle Blätter und dann alle Ansichten einer Zeichnung durchlaufen!

------------------
Mfg Daniel

Es gibt nur drei Möglichkeiten: Sieg, Unentschieden oder Niederlage
----------------------------------------------
SolidWorks API-Programmierung | Makros | Tools | Addins | Schulung

SolidWorks API Programmierung; Schuler Design Automation GmbH |   kontakt@schuler-da.de

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

---

Zitat:

---

Original erstellt von tbd:
Leider gibt es hierfür keine Option. Haben sogar beim API-Support angerufen.

Du kannst in diesem Fall nur die Ansichten per API in allen Blätter aktuallisieren, so wie es die MessageBox verlangt!
Das kannst du aber schnell erledigen!
Zwei Schleifen, einmal alle Blätter und dann alle Ansichten einer Zeichnung durchlaufen!

---

Danke. Hast Du ein kleines Beispiel für die Schleifen und das durchlaufen der Blätter?

------------------
Gruß aus Braunschweig
Carsten 

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

---

Hallo Carsten,

klar, aber es ist noch einfacher als ich in Erinnerung hatte.
Man muss nur die Blätter aktivieren, das war es!

Code:

---

Public Shared Function AlleBlaettenNacheinanderAktivieren( _
            ByVal oSwDrawingDoc As SldWorks.DrawingDoc) As Boolean

        Try

            Dim sSheetNames() As String
            Dim bStatus As Boolean

            sSheetNames = CType( _
                    oSwDrawingDoc.GetSheetNames, String())

            For i As Integer = 0 To sSheetNames.GetUpperBound(0)
                'Blatt aktivieren
                bStatus = oSwDrawingDoc.ActivateSheet(sSheetNames(i))
                Debug.Assert(bStatus)
            Next i

            'wieder Blatt 1 aktiveren
            bStatus = oSwDrawingDoc.ActivateSheet(sSheetNames(0))
            Debug.Assert(bStatus)

            Return True
        Catch ex As Exception
            Debug.Assert(False)
            Return False
        End Try

    End Function

---

Das ist eine VB.Net Funktion, ich hoffe du kannst damit was anfangen, ist ja aber nicht wirklich schwer!

------------------
Mfg Daniel

Es gibt nur drei Möglichkeiten: Sieg, Unentschieden oder Niederlage
----------------------------------------------
SolidWorks API-Programmierung | Makros | Tools | Addins | Schulung

SolidWorks API Programmierung; Schuler Design Automation GmbH |   kontakt@schuler-da.de

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