API: Creating extrude problem

[Jef_E]

Hi all!

I have this new problem, i'm trying to create a Surface extrude from a Arc.

My sketch has 3 Arc, and then i select the first Arc in it. This is the one i need to Extrude. But somthing i wrong with my code.. Don't know where the error is, as I have never done a Extrude feature..

My sample code:

        Dim oDoc As PartDocument = oInvApp.ActiveDocument
        Dim oDef As PartComponentDefinition = oDoc.ComponentDefinition
        Dim oArc As SketchArc = oDef.Sketches.Item("Segm_C02").SketchArcs(1)

        Dim oExtrudeDef As ExtrudeDefinition
        oExtrudeDef = oDef.Features.ExtrudeFeatures.CreateExtrudeDefinition(oArc, PartFeatureOperationEnum.kSurfaceOperation)
        oExtrudeDef.SetDistanceExtent("1000", PartFeatureExtentDirectionEnum.kPositiveExtentDirection)
        oDef.Features.ExtrudeFeatures.Add(oExtrudeDef).Name = "Extrude"

What do i need to change?

[MechMachineMan]

What error are you getting? Screenshot of both windows can be useful for helping determine what is wrong.

[Jef_E]

Hi,

Sorry for my late response.

This is the error i get on the posted code.

Can not convert COM object of type System .__ ComObject to interface type Inventor.Profile .
This operation failed because the QueryInterface call on the COM component for the interface with
IID { 8006A03A - ECC4-11D4-8DE9-0010B541CAA8 } failed with the
following error : No such interface supported (Exception from HRESULT: 0x80004002 ( E_NOINTERFACE ) ) .

Any ideas?

[MechMachineMan]

Your syntax is wrong you are doing the equivalent of trying to assign a
string to am integer. That's what 'casting' as worded in the error means.

[MechMachineMan]

Your syntax is wrong you are doing the equivalent of trying to assign a
string to am integer. That's what 'casting' as worded in the error means.

[Jef_E]

I don't get it.

the error is produced on this line:

oExtrudeDef = oDef.Features.ExtrudeFeatures.CreateExtrudeDefinition(oArc, PartFeatureOperationEnum.kSurfaceOperation)

But my oArc is as SketchArc? What is causing the error then? I don't see it..

[MechMachineMan]

Are you passing the function a closed loop? If you can't do it manually...
you can't do it with API.

[Jef_E]

I can do i manually, thats why i want to automate it.

It's an arc that i want to extrude as surface, not as solid, so no it's not a closed loop.

I need this to create a thicken feature later in the program.

So i think for a surface i call

PartFeatureOperationEnum.kSurfaceOperation

But it's not working for me. 

Thanks for helping me!

[MechMachineMan]

How do you know for sure it's that line giving issue?

[Anonymous]

Well, i think so because it highlights in visual studio? 😄

It could be that it gets a bad input.. But what?

[Jef_E · Accepted solution]

Found it, forgot to add for surface, didn't know that was needed. Will help me on my next step too!

Dim oSketch As PlanarSketch = oDef.Sketches.Item("Segm_C" & oBodyCount)
Dim oArc As SketchArc = oSketch.SketchArcs(1)
Dim oProfile As Profile = oSketch.Profiles.AddForSurface(oArc)

Dim oExtrudeDef As ExtrudeDefinition
oExtrudeDef = oDef.Features.ExtrudeFeatures.CreateExtrudeDefinition(oProfile, PartFeatureOperationEnum.kSurfaceOperation)

Thanks for the help!