Announcements
Attention for Customers without Multi-Factor Authentication or Single Sign-On - OTP Verification rolls out April 2025. Read all about it here.
dgreatice
in reply to: AlexFielder

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

Please use the ACCEPT AS SOLUTION or KUDOS button if my Idea helped you to solve the problem.

Autodesk Inventor Professional Certified 2014