Automatyczne rozmiarowanie od początku części tylko w rysunku

Macro
1

Cześć, chciałbym się dowiedzieć, jaki byłby sposób na zmianę punktu początkowego wymiaru za pomocą metody Autodimension? Chcę, aby wszystkie cytaty zaczynały się od pochodzenia monety.

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

Cześć,
Dlaczego nie wrobić sobie nawyku (jeśli sytuacja jest uzasadniona) od szkicu dzieła do wymiarowania wszystkiego od początku? Następnie automatycznie importuj wymiary z rysunku.

3

Chcemy zastosować to podejście do kolejnych projektów.