I record a marco like the following

I want to insertcentermark,for example

Set Part = swApp.ActiveDoc

boolstatus = Part.ActivateView("view2")

boolstatus = Part.Extension.SelectByID2("", "EDGE", 0.2284440625389, 0.2479594661968, -4499.475, False, 0, Nothing, 0)

Dim myCenterMark As Object

Set myCenterMark = Part.InsertCenterMark3(0, True, True)

I do't want to select the EDGE manual, if I can slect the edge by name(its refeted Part) then My program  can select it  automaticly

is there any way?