VBA - Shrinkwrap example fails using "None" or "Range" for hole patching

VBA - Shrinkwrap example fails using "None" or "Range" for hole patching

michaelspace
Contributor Contributor
200 Views
0 Replies
Message 1 of 1

VBA - Shrinkwrap example fails using "None" or "Range" for hole patching

michaelspace
Contributor
Contributor

 

I am trying to modify the example Shrinkwrap substitute code provided in the API help documentation.  When I try to use anything but kDerivedPatchAll for the hole patching, the routine fails.

 

Call oDerivedAssemblyDef.SetHolePatchingOptions(kDerivedPatchAll)
'Call oDerivedAssemblyDef.SetHolePatchingOptions(kDerivedPatchNone)
'Call oDerivedAssemblyDef.SetHolePatchingOptions(kDerivedPatchRange, 25#, 100#)

 

I have tried the 3 options above and the None and Range options both fail when you try to add the derived assembly:

 

Set oDerivedAssembly = oPartDef.ReferenceComponents.DerivedAssemblyComponents.Add(oDerivedAssemblyDef)

(above fails with the message below)

 

Run-time error '-2147024809 (80070057)':

The parameter is incorrect

 

 

What do I need to do to get the None and Range options to work?  Any help is appreciated.

 

 

 
0 Likes
201 Views
0 Replies
Replies (0)