SolidWorks FAQ - API Programmierung

Lösung: Benutzen Sie dazu die Funktion GetObject(,"SldWorks.Application"). Sie müssen selbst den Fehler abfangen, den diese Funktion liefert, wenn SolidWorks nicht läuft, aber dadurch wissen Sie dann, ob oder nicht es läuft. das könnte z.B. so aussehen:

Private Sub cmdWeiter_Click()
    ' Demoroutine für GetObject, mit dem nur an ein bestehendes
    ' SolidWorks angeklinkt wird.

    Dim SwApp As Object

    ' für den GetObject wird die Fehlerroutine auf unsere eigene
    ' Sprungmarke gelenkt, denn es kommt ein Fehler, wenn SolidWorks
    ' nicht schon läuft. Anschließend Fehlerbehandlung wieder einschalten.
    On Error GoTo NoSolidWorks
    Set SwApp = GetObject(, "SldWorks.Application")
    On Error GoTo 0

    ' hura, SolidWorks läuft schon. Jetzt kommt hier der Teil,
    ' was passieren soll, wenn SolidWorks läuft

    Call MsgBox("Wow, SolidWorks läuft schon", vbInformation)

    ' und zum Schluß noch die Fehlersprungmarke umgehen, also
    ' die Funktion oder Prozedur verlassen
    Exit Sub

NoSolidWorks:
    ' upps, SolidWorks läuft nicht
    Call MsgBox("Bitte starten Sie erstmal SolidWorks", vbCritical)

End Sub

Zurück zum Seitenanfang

Kritik und Anregungen bitte an Stefan Berlitz. Letzte Änderung dieser Seite am Mittwoch, 16. Mai 2007 15:06