Community
Inventor Programming - iLogic, Macros, AddIns & Apprentice
Inventor iLogic, Macros, AddIns & Apprentice Forum. Share your knowledge, ask questions, and explore popular Inventor topics related to programming, creating add-ins, macros, working with the API or creating iLogic tools.
cancel
Showing results for 
Show  only  | Search instead for 
Did you mean: 

Import AutoCAD 3DFACES to Solid

2 REPLIES 2
Reply
Message 1 of 3
Mitch_31
320 Views, 2 Replies

Import AutoCAD 3DFACES to Solid

Hi all,

Here is my goal, Import AutoCAD 3DFACES to Solid

1) The Import routine is ok.

2) Then I would like to convert my 6 faces into a solid body

     In Inventor GUI "Repair/Stich" works fine, but API doesn't seem to expose a Stich method...

 

The best I obtain is Creating a "NonParametricBaseFeature",

 

But then the KnitFeature best response is "The method as failed". It works fine in the GUI.

 

I'm on Win7 x64 VBA (Then I will convert it to a lovely DotNet AddIn)

Here is my code:

 

Sub CreateNonParametricFeature(oDef As ComponentDefinition, oSrfBodies As SurfaceBodies)

    ' Create a non-parametric base feature based on the transient body.
    Dim oTransBRep As TransientBRep
    Set oTransBRep = oInvApp.TransientBRep

    Dim oFeatureDef As NonParametricBaseFeatureDefinition
    Set oFeatureDef = oDef.Features.NonParametricBaseFeatures.CreateDefinition

    Dim oCollection As ObjectCollection
    Set oCollection = oInvApp.TransientObjects.CreateObjectCollection
    
    oCollection.Add oSrfBodies.Item(1)

    oFeatureDef.BRepEntities = oCollection
    oFeatureDef.OutputType = kCompositeOutputType

    Dim oBaseFeature As NonParametricBaseFeature
    Set oBaseFeature = oDef.Features.NonParametricBaseFeatures.AddByDefinition(oFeatureDef)
    
    'Knitting the NonParametricBaseFeature
    Dim oFacesCollection As ObjectCollection
    Set oFacesCollection = oInvApp.TransientObjects.CreateObjectCollection
    
    Dim I As Integer
    For I = 1 To oBaseFeature.SurfaceBodies.Count
        Call oFacesCollection.Add(oBaseFeature.SurfaceBodies.Item(I))
    Next I
    
    Dim oKnitFeature As KnitFeature
    Set oKnitFeature = oDef.Features.KnitFeatures.Add(oFacesCollection)
    
End Sub

 

The Knit sample help code works, but not mine Smiley Frustrated Is there a bug somewhere in my code?

Thanks,

Michel

 

 

2 REPLIES 2
Message 2 of 3
ekinsb
in reply to: Mitch_31

I've verified that this is a problem.  I've raised the priority of the change request, but can't say when a solution might be available.

 


Brian Ekins
Inventor and Fusion 360 API Expert
Mod the Machine blog
Message 3 of 3
Mitch_31
in reply to: ekinsb

Hi Brian,

Will you tell us in this thread when a solution will be available, or do we need to check for SPs content?

Cheers,

Michel.

Can't find what you're looking for? Ask the community or share your knowledge.

Post to forums  

Autodesk Design & Make Report