Error on Sweep Feature VBA, Inventor

[Anonymous]

there is code, Is anybody know how to fix it?
Where is the place I can learn the VBA in Inventor?

Thank you!

[bradeneuropeArthur]

---

@Anonymous wrote:

there is code, Is anybody know how to fix it?

can you upload it as text?
Where is the place I can learn the VBA in Inventor?

In the programming help file in Inventor.

Thank you!

---

[_dscholtes_]

You need to create a sweep definition first, in order to add a sweep.

This is an excerpt from an article on Manufacturing DevBlog:

Dim oSweepDef As SweepDefinition
Set oSweepDef = oCompDef.Features.SweepFeatures.CreateSweepDefinition( _
        kPathSweepType, oProfile, oPathNew, kSurfaceOperation)
  
Dim oSweepOne As SweepFeature
Set oSweepOne = oCompDef.Features.SweepFeatures.Add(oSweepDef)

I recently wrote code creating a sweep and used Google to find me some posts / blog articles.

Never bookmarked them, because I got it working.