iLogic Fehler (Autodesk/Inventor)

Hallo,

ich versuche seit ein paar Tagen eine Konturvereinfachung über iLogic "automatisch" erstellen zu lassen.

Ich habe mittlerweile auch etwas Code, da ich noch recht neu im Thema iLogic bin habe ich Gegoogelt und ihn mit zusammengesetzt und ergänzt.

Ich kann ihn compilieren bekomme dann aber Folgende Fehlermeldung:

Fehler in Regel: Konturvereinfachung in Dokument: Beispiel.ipt

Das COM-Objekt des Typs "System.__ComObject" kann nicht in den Schnittstellentyp "Inventor.AssemblyDocument" umgewandelt werden. Dieser Vorgang konnte nicht durchgeführt werden, da der QueryInterface-Aufruf an die COM-Komponente für die Schnittstelle mit der IID "{29F0D465-C114-11D2-B77F-0060B0F159EF}" aufgrund des folgenden Fehlers nicht durchgeführt werden konnte: Schnittstelle nicht unterstützt (Ausnahme von HRESULT: 0x80004002 (E_NOINTERFACE)).

Hier der Code:

Code:
Sub Main CreateShrinkwrapSubstitute()
Dim oDoc As AssemblyDocument
oDoc = ThisApplication.ActiveDocument
Dim oDef As AssemblyComponentDefinition
oDef = oDoc.ComponentDefinition
' Create a new part document that will be the shrinkwrap substitute
Dim oPartDoc As PartDocument
oPartDoc = ThisApplication.Documents.Add(kPartDocumentObject, "C:\Users\", False)
Dim oPartDef As PartComponentDefinition
oPartDef = oPartDoc.ComponentDefinition
Dim oDerivedAssemblyDef As DerivedAssemblyDefinition
oDerivedAssemblyDef = oPartDef.ReferenceComponents.DerivedAssemblyComponents.CreateDefinition(oDoc.FullDocumentName)
' Set various shrinkwrap related options
oDerivedAssemblyDef.DeriveStyle = kDeriveAsSingleBodyNoSeams
oDerivedAssemblyDef.IncludeAllTopLevelWorkFeatures = kDerivedIncludeAll
oDerivedAssemblyDef.IncludeAllTopLevelSketches = kDerivedIncludeAll
oDerivedAssemblyDef.IncludeAllTopLeveliMateDefinitions = kDerivedExcludeAll
oDerivedAssemblyDef.IncludeAllTopLevelParameters = kDerivedExcludeAll
oDerivedAssemblyDef.ReducedMemoryMode = True
'Call oDerivedAssemblyDef.SetHolePatchingOptions(kDerivedPatchAll)
'Call oDerivedAssemblyDef.SetRemoveByVisibilityOptions(kDerivedRemovePartsAndFaces, 25)
' Create the shrinkwrap component
Dim oDerivedAssembly As DerivedAssemblyComponent
oDerivedAssembly = oPartDef.ReferenceComponents.DerivedAssemblyComponents.Add(oDerivedAssemblyDef)
oDerivedAssembly.BreakLinkToFile

' Get the PropertySets object.
Dim oPropSets As PropertySets
oPropSets = oDoc.PropertySets
' Get the design tracking property set.
Dim oPropSet As PropertySet
oPropSet = oPropSets.Item("Design Tracking Properties")
' Get the part number iProperty.
oPartNumiProp = oPropSet.Item("Part Number")
' Save the part
Dim strSubstituteFileName As String
strSubstituteFileName = f & oPartNumiProp.Value & ".ipt"

' strSubstituteFileName = Left$(oDoc.FullFileName, Len(oDoc.FullFileName) - 4)
' strSubstituteFileName = strSubstituteFileName & "_ShrinkwrapSubstitute.ipt"
ThisApplication.SilentOperation = True
Call oPartDoc.SaveAs(strSubstituteFileName, False)
ThisApplication.SilentOperation = False
' ' Create a substitute level of detail using the shrinkwrap part.
' Dim oSubstituteLOD As LevelOfDetailRepresentation
' Set oSubstituteLOD = oDef.RepresentationsManager.LevelOfDetailRepresentations.AddSubstitute(strSubstituteFileName)
' Release reference of the invisibly opened part document.
oPartDoc.ReleaseReference
End Sub

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