Create a WorkPointProxy from center of circle or arc

[Anonymous]

Hi,

I try the create a WorkPointProxy from the center of an arc and use this proxy to add a constraint with an other part.

But I don't know how to create the WorkPointProxy.

Dim app As Inventor.Application = GetObject(, "Inventor.Application")
Dim doc As Inventor.AssemblyDocument = app.ActiveDocument
Dim occ As Inventor.ComponentOccurrence = doc.ComponentDefinition.Occurrences(1)
Dim body As Inventor.SurfaceBody = occ.SurfaceBodies(1)
Dim edge As Inventor.Edge = body.Edges(47)
Dim pt As Inventor.Point = CType(edge.Geometry, Object).Center
Dim workPointProxy As Inventor.WorkPointProxy = Nothing

'This command doesn't work
occ.CreateGeometryProxy(pt, workPointProxy)

 Thanks,

Pascal

[Anonymous]

In others words :

I want to make a constraint on center of an edge.

Thanks,

Pascal