Auto-size from part origin only in drawing

Macro
1

Hello, I would like to know what would be the way to change the point of origin of the dimension using the Autodimension method? I want all quotes to start with the origin of the coin.

Option Explicit

Dim swApp As SldWorks.SldWorks
Dim Part As SldWorks.ModelDoc2

Dim longstatus As Long

Sub main()

    Set swApp = Application.SldWorks
    Set Part = swApp.ActiveDoc

    Dim views As Variant
    views = Array("Drawing View1", "Drawing View2", "Drawing View3", "Drawing View4", "Drawing View5", "Drawing View6", "Drawing View7", "Drawing View8")

    Dim i As Integer

    For i = 0 To 2
        
        ' Limpiar selección
        Part.ClearSelection2 True
        
        ' Activar hoja
        Part.ActivateSheet "Sheet1"
        
        ' Activar vista
        Part.ActivateView views(i)
        
        ' seleccionar la vista
        Part.Extension.SelectByID2 views(i), "DRAWINGVIEW", 0, 0, 0, False, 0, Nothing, 0
        
        ' Ejecutar AutoDimension
        longstatus = Part.AutoDimension(1, 2, 1, 2, -1)

    Next i

End Sub
2

Hello,
Why not get into the habit (if the situation is justified) from the sketch of the piece, to dimension everything from the beginning? Then import the dimensions automatically on the drawing.

3

We want to apply this approach to the next designs to be made.