Auto-grootte vanaf onderdeel oorsprong alleen in tekeningen

Macro
1

Hallo, ik zou graag willen weten wat de manier is om het oorsprongspunt van de dimensie te wijzigen met behulp van de Autodimension-methode? Ik wil dat alle citaten beginnen met de oorsprong van de munt.

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

Hallo,
Waarom zou je niet vanaf de schets van het stuk de gewoonte aannemen (als de situatie gerechtvaardigd is) om alles vanaf het begin te dimensioneren? Importeer vervolgens automatisch de afmetingen op de tekening.

3

We willen deze aanpak toepassen op de volgende ontwerpen die gemaakt moeten worden.