---

Hallo,

bitte helft mir bei folgenden Startschwierigkeiten bei der Steuerung von SolidWorks mit vb.net. Ich möchte als erste Aufgabe nur eine Skizze markieren:

    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click

        Dim swApp As SldWorks.SldWorks

        swApp = Microsoft.VisualBasic.GetObject(Class:="sldworks.application")

        swApp.ActiveDoc.Extension.SelectByID2("Skizze1", "SKETCH", 0, 0, 0, True, 0, Nothing, 0)

    End Sub

Dabei bekomme ich den Fehler: Typkonflikt. (Ausnahme von HRESULT: 0x80020005 (DISP_E_TYPEMISMATCH))

Was mache ich falsch?

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

---

Hallo Michael,

du musst den Typ bei der Initialisierung explizit angeben.

Code:

---

SwApp = CType(GetObject(, _
            Class:=""SldWorks.Application"), sldworks.SldWorks)

---

Oder du musst in deinen Projekteinstellungen (MyProjekt > Kompilieren) die Option "Option Strict" auf Off setzen. Das würde ich dir aber nicht empfehlen.
Mehr Informationen dazu findest du im Workshop SolidWorks Dokumente und Objekte auf MySldWorks.de im Kaptiel 1.6.

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

www.MySldWorks.de - SolidWorks API Snippets

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

---

Danke für den Tipp, leider besteht der Fehler weiterhin:

Code:

---

Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click

    Dim swApp As SldWorks.SldWorks

    swApp = CType(Microsoft.VisualBasic.GetObject(Class:="SldWorks.Application"), SldWorks.SldWorks)

    swApp.ActiveDoc.Extension.SelectByID2("Skizze1", "SKETCH", 0, 0, 0, True, 0, Nothing, 0)

End Sub

---

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

---

Haha, ich habs gepackt! Das war ja noch ziemlich daneben...

Jetzt funktionierts:

Code:

---

    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click

        Dim swApp As SldWorks.SldWorks

        Dim oModelDocExt As SldWorks.ModelDocExtension

        swApp = CType(Microsoft.VisualBasic.GetObject(Class:="SldWorks.Application"), SldWorks.SldWorks)

        oModelDocExt = swApp.ActiveDoc.Extension

        oModelDocExt.SelectByID2("Skizze1", "SKETCH", 0, 0, 0, True, 0, Nothing, 0)

    End Sub

---

Jetzt kann mich nichts mehr stoppen! 

Danke für den hilfreichen Link!

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

---

> Jetzt kann mich nichts mehr stoppen!

die naechste Fallgrube wartet sicher schon ;-))

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