Auto dimensionner à partir de l'origine de la pièce uniquement dans la mise en plan

Macro
1

Bonjour, je souhaiterais savoir quel serait le moyen de changer le point d’origine de la cotation en utilisant la méthode Autodimension ? Je veux que toutes les cotations commencent par l’origine de la pièce.

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

Bonjour,
Pourquoi ne pas prendre l’habitude (si situation justifiée) dès l’esquisse de la pièce, tout coter à partir de l’origine? Puis importer les cotes en automatique sur la mise en plan.

3

Nous voulons justement appliquer cette démarche pour les prochains designs à faire.