sheetmetal combinefeature

etaCAD — Wed, 28 Oct 2020 10:46:28 GMT

Hi,

I try to add a combine feature to a sheet metal. With the user interface it works fine, but with the API I get an error in the last line (see VBA code below and the attached file).

Any hints?

Public Sub CombineFeature() Dim oDoc As PartDocument Set oDoc = ThisApplication.ActiveDocument Dim oTObj As TransientObjects Set oTObj = ThisApplication.TransientObjects Dim oSheetMetalDef As SheetMetalComponentDefinition Set oSheetMetalDef = oDoc.ComponentDefinition Dim oSheetMetalFeatures As SheetMetalFeatures Set oSheetMetalFeatures = oSheetMetalDef.Features Dim baseBody As SurfaceBody Set baseBody = oSheetMetalDef.SurfaceBodies.Item(1) Dim toolBodies As ObjectCollection Set toolBodies = oTObj.CreateObjectCollection Call toolBodies.Add(oSheetMetalDef.SurfaceBodies.Item(2)) Dim combFeature As CombineFeature Set combFeature = oSheetMetalFeatures.CombineFeatures.Add(baseBody, toolBodies, kCutOperation, False) End Sub

Re: sheetmetal combinefeature

FINET_Laurent — Wed, 28 Oct 2020 10:55:56 GMT

Morning,

I think you should post this on the customisation forum. You might better help, since this is code related.

Regards,

FINET L.

Betreff: sheetmetal combinefeature

c.perinka — Fri, 05 Nov 2021 07:09:14 GMT

Hi,

i have the same Problem.

Is there now a solution available?

thx

topic Re: sheetmetal combinefeature in Inventor Programming Forum

sheetmetal combinefeature

Re: sheetmetal combinefeature

Betreff: sheetmetal combinefeature