Hallo, ich versuche einen BRep-Zylinder in VB.Net zu erzeugen:
Private Sub CreateCylinder(Pnt1 As Point, Pnt2 As Point, diameter As Double)
Dim oTBRep = invApp.TransientBRep
Dim oCylinder As SurfaceBodies
oCylinder = oTBRep.CreateSolidCylinderCone(Pnt1, Pnt2, diameter, diameter, diameter)
Dim oBaseFeature As NonParametricBaseFeature
oBaseFeature = partDef.Features.NonParametricBaseFeature.Add(oCylinder)
End Sub
Leider bekomme ich folgenden Lautzeitfehler
Exception thrown: 'System.InvalidCastException' in WindowsApp4Inventor.exe
An exception of type 'System.InvalidCastException' occurred in WindowsApp4Inventor.exe but was not handled in user code
Das COM-Objekt des Typs "System.__ComObject" kann nicht in den Schnittstellentyp "Inventor.SurfaceBodies" umgewandelt werden. Dieser Vorgang konnte nicht durchgeführt werden, da der QueryInterface-Aufruf an die COM-Komponente für die Schnittstelle mit der IID "{5DF860AE-6B16-11D3-B794-0060B0F159EF}" aufgrund des folgenden Fehlers nicht durchgeführt werden konnte: Schnittstelle nicht unterstützt (Ausnahme von HRESULT: 0x80004002 (E_NOINTERFACE)).
invApp und parfDef sind folgendermaßen definiert:
Dim invApp As Inventor.Application
invApp = GetObject(, "Inventor.Application")
Dim partDoc As PartDocument = invApp.ActiveDocument
Ich vermute das hier hilft mir für VB.NET auch nicht weiter, oder?
Vielleicht hatte jemand sowas schonmal?
Georg
