Auto-Größe ab Bauteilursprung nur in der Zeichnung

Macro
1

Hallo, ich würde gerne wissen, wie man den Ursprungspunkt der Dimension mit der Autodimension-Methode ändern könnte? Ich möchte, dass alle Zitate mit dem Ursprung der Münze beginnen.

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,
Warum nicht von Anfang an die Gewohnheit entwickeln (wenn die Situation gerechtfertigt ist), alles von Anfang an zu dimensionieren? Dann importiere die Maße automatisch in die Zeichnung.

3

Wir möchten diesen Ansatz auf die nächsten entwürfige Designs anwenden.