Can't move Centermark Extension Points

[abdullah_elq]

I am trying to pull the top of a Centermark line to the top of a drawing view. My code neither works nor crashes. Does anyone have any suggestions?

Dim oCM As Centermark = ThisApplication.CommandManager.Pick(SelectionFilterEnum.kDrawingCentermarkFilter, "Pick Centermark")
Dim oDV As DrawingView = oCM.Parent.DrawingViews(1)
Dim Coords(1) As Double
Coords(0) = oCM.Position.X
Coords(1) = oDV.Top
'Doesn't do anything or throw an error
oCM.ExtensionPointTwo.PutPointData(Coords)

[dalton98 · Accepted solution]

I'm not sure why that doesn't work. A suggestion would be to just change the geometry of the extension point directly. It also doesn't seem to mind if you dont give the point an x cordinate.

Dim oCM As Centermark = ThisApplication.CommandManager.Pick(SelectionFilterEnum.kDrawingCentermarkFilter, "Pick Centermark")
Dim oDV As DrawingView = oCM.Parent.DrawingViews(1)

Dim oPoint As Point2d = ThisApplication.TransientGeometry.CreatePoint2d(0, oDV.Top)
oCM.ExtensionPointTwo = oPoint

[abdullah_elq]

Thank you very much. That worked!