VBA - Shrinkwrap example fails using "None" or "Range" for hole patching
- Mark as New
- Bookmark
- Subscribe
- Mute
- Subscribe to RSS Feed
- Permalink
- Report
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.