how to use ShrinkwrapComponents and ShrinkwrapDefinition API

[liminma8458]

Hi,

From Inventor 2018, there are new API particularly to create Shrinkwrap, such as ReferenceComponents.ShrinkwrapComponents.CreateDefinition(), ShrinkwrapDefinition.RemoveChamfersStyle and so on. But I can't find any sample from anywhere. The samples I can find are all old style using DerivedAssemblyComponents as in http://adndevblog.typepad.com/manufacturing/2013/06/create-simplified-part-by-api.html.

Can someone provide some example how to use the new shrinkwrap API?

Thank you very much!

[liminma8458]

Autodesk used to provide something like Inventor2014API.ivb for some samples of new release API. But I can't find any for Inventor 2016, 2017, 2018 and 2019. Do you have any?

[AlexFielder]

This is the best sample I can find at the API Documentation site:

http://help.autodesk.com/view/INVNTOR/2019/ENU/?guid=GUID-9E92691A-7EEA-4BA8-94D7-3F64AA9ABA30

I hope it helps!

[liminma8458]

But they do not carry any shrinkwrap object; they just carry derivedassembly object, a different way.

[AlexFielder]

I see what you mean, it's odd that there's a new API presented but no examples of how to use it...

[dgreatice · Accepted solution]

Sub createShrinkWrapWithDefinition()

Dim oApp As Application

Dim oAD As AssemblyDocument

Dim oACD As AssemblyComponentDefinition

Set oApp = ThisApplication

Set oAD = oApp.ActiveDocument

Set oACD = oAD.ComponentDefinition

oPath = oAD.FullDocumentName

Dim oPartDoc As PartDocument

Dim oPCD As PartComponentDefinition

Dim ShRDef As ShrinkwrapDefinition

Dim ShrComp As ShrinkwrapComponent

Set oPartDoc = oApp.Documents.Add(kPartDocumentObject, , True)

Set oPCD = oPartDoc.ComponentDefinition

Set ShRDef = oPCD.ReferenceComponents.ShrinkwrapComponents.CreateDefinition(oPath)

ShRDef.ActiveDesignViewRepresentation = "Default"
ShRDef.ActiveLevelOfDetailRepresentation = "Master"
ShRDef.ActivePositionalRepresentation = "Master"
'Call ShRDef.AdditionalExcludedOccurrences.Add(Object) 'Need User Selection
'Call ShRDef.AdditionalIncludedOccurrences.Remove(Object)'Need User Selection
ShRDef.BreakLink = False
ShRDef.CreateIndependentBodiesOnFailedBoolean = True
ShRDef.DeriveStyle = kDeriveAsSingleBodyWithSeams
ShRDef.IsAssociativeDesignView = False
'Call ShRDef.PreservedFeatures.Add(Object) 'Need User Selection
ShRDef.RemoveAllInternalVoids = False
ShRDef.RemoveChamfersDistanceRange = 10 'cm
ShRDef.RemoveChamfersStyle = kShrinkwrapRemoveByRange
ShRDef.RemoveFilletsRadiusRange = 10 'cm
ShRDef.RemoveFilletsStyle = kShrinkwrapRemoveByRange
ShRDef.RemoveHolesDiameterRange = 10 'cm
ShRDef.RemoveHolesStyle = kShrinkwrapRemoveByRange
ShRDef.RemoveInternalParts = False
ShRDef.RemovePartsBySize = True
ShRDef.RemovePartsSize = 10 'cm
ShRDef.RemovePocketsMaxFaceLoopRange = 10 'cm
ShRDef.RemovePocketsStyle = kShrinkwrapRemoveByRange
ShRDef.RenameComponent = True
ShRDef.UseColorOverrideFromSourceComponent = True

Set ShrComp = oPCD.ReferenceComponents.ShrinkwrapComponents.Add(ShRDef)

End Sub

[liminma8458]

Perfect!

Thank you very much!