lock a drawingsketch using centerMark

[^_^clovis^_^]

Hello Guys,

I'm trying to lock a drawingsketch using the info/arc/circle from the centerMark and projecting it.

..

'oEnt = centerMark

Dim oEnt As Object
Set oEnt = oSel.Item(1)

..

If oEnt.Attached = True Then
            Dim oEdge As Edge
            Set oEdge = oEnt.AttachedEntity.Geometry.ModelGeometry.EdgeUses.Item(1).Edge
End If

...

oSketch.Edit
        oSketch.AddByProjectingEntity (oEdge)

...

but I get a mismatch error.

What do I must change?

Thanks for the support.