Sub ww()
Dim doc As AssemblyDocument: Set doc = ThisApplication.ActiveDocument
Dim DocDef As AssemblyComponentDefinition: Set DocDef = doc.ComponentDefinition
Dim edge As EdgeProxy: Set edge = ThisApplication.CommandManager.Pick(SelectionFilterEnum.kPartEdgeCircularFilter, "выбери круговую кромку")
Dim hio As Inventor.Circle: Set hio = edge.Curve(CurveTypeEnum.kCircleCurve)
Dim assWP As WorkPoint
Set assWP = DocDef.WorkPoints.AddFixed(hio.Center)
assWP.Name = "Точка"
Call DocDef.Constraints.AddMateConstraint(edge, assWP, 0)
End Sub