| | | Gut zu wissen: Hilfreiche Tipps und Tricks aus der Praxis prägnant, und auf den Punkt gebracht für SOLIDWORKS | | | | PLM TechnologieForum Hannover |
Autor
|
Thema: Anfängerfrage vb.net (828 mal gelesen)
|
Michael. Mitglied
Beiträge: 7 Registriert: 29.09.2009
|
erstellt am: 29. Sep. 2009 09:47 <-- editieren / zitieren --> Unities abgeben:
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 |
tbd Mitglied Teamleiter
Beiträge: 825 Registriert: 26.01.2006 Dell Percision T5400 Intel(R) Xeon(R) CPU X5460 @ 3.16GHz 3,25 GB RAM Nvidia Quadro FX 4600 ----- Win XP Prof SP 3 SW 2008 SP 5.0 PARTsolutions 8.1.08 Cideon SAP PLM 5.103.5.17 Visual Studio 2008
|
erstellt am: 29. Sep. 2009 10:10 <-- editieren / zitieren --> Unities abgeben: Nur für Michael.
|
Michael. Mitglied
Beiträge: 7 Registriert: 29.09.2009
|
erstellt am: 29. Sep. 2009 11:39 <-- editieren / zitieren --> Unities abgeben:
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 |
Michael. Mitglied
Beiträge: 7 Registriert: 29.09.2009
|
erstellt am: 29. Sep. 2009 12:13 <-- editieren / zitieren --> Unities abgeben:
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 |
modeng Ehrenmitglied V.I.P. h.c.
Beiträge: 7061 Registriert: 10.12.2003
|
erstellt am: 29. Sep. 2009 12:37 <-- editieren / zitieren --> Unities abgeben: Nur für Michael.
|
| Anzeige.:
Anzeige: (Infos zum Werbeplatz >>)
|