Makro zum Umkehren der Richtung einer Abflachung

Hallo, ich entwickle ein Makro für SOLIDWORKS und kann die Befehlszeile nicht finden, die die Funktion der Schaltfläche " Ansicht umschalten " erfüllt, wenn ich auf die Ansicht im aufgeklappten Zustand klicke (damit ich die Richtung der Falten umkehren kann)


Hat jemand eine Idee?

Nun, ich habe endlich meine eigene Frage beantwortet, der Befehl lautet swView.FlipView = True
Informationen finden Sie hier:Erstellen und Spiegeln einer Abwicklungsansicht eines Blechteils Beispiel (VB) - 2023 - SOLIDWORKS API Help

Ja, das stimmt, das kann ich bestätigen.

Eine weitere Möglichkeit besteht darin, die symmetrische Ansicht nach Ihren Bedürfnissen zu überprüfen:

'Cocher Symétrie de la vue horizontal
                    Dim mirrored As Boolean
                    Dim orientation As Long
                    swView.SetMirrorViewOrientation True, swMirrorViewPositions_e.swMirrorViewPosition_Horizontal
                    swView.GetMirrorViewOrientation mirrored, orientation
                    Debug.Print "Mirrored? " & mirrored
                    Debug.Print "Orientation (0 = horizontal)? " & orientation

image

1 „Gefällt mir“

Hallo sbadenis,
Ausgezeichnete Informationen, es funktioniert perfekt.
Für diejenigen, die interessiert sind, hier ist der vollständige Code:

Option Explizit
Dimmen swApp als Objekt
Dim swModel As SldWorks.ModelDoc2
Dim swDraw As SldWorks.DrawingDoc
Dim swView As SldWorks.View

Sub main()
Legen Sie swApp = Application.SldWorks fest
Festlegen von swModel = swApp.ActiveDoc
Festlegen von swDraw = swModel
Set swView=swDraw.GetFirstView' wählt die Seite aus
Set swView=swView.GetNextView' wählt die erste Ansicht aus

'Überprüfen Sie die Symmetrie der horizontalen Ansicht
Gespiegelt als boolescher Wert
Schwache Ausrichtung: Solange
swView.SetMirrorViewOrientation True, swMirrorViewPositions_e.swMirrorViewPosition_Horizontal
swView.GetMirrorViewOrientation gespiegelte Ausrichtung
Debug.Print "Gespiegelt?" " & gespiegelt
Debug.Print "Ausrichtung (0 = horizontal)? " & Ausrichtung
Ende Sub

Vielen Dank :pray:

@Thierry_ARNOULD ...
Erwägen Sie , @sbadenis die " Beste Antwort " zuzuweisen ... " weil er es wert ist "...
image
:grin:

1 „Gefällt mir“

Vielen Dank @maclane ausnahmsweise muss ich Ihnen keine Tantiemen für Ihr Lieblingsbild zahlen!

1 „Gefällt mir“

Ahhhhh! Flöte, ich hatte es vergessen... :grin: :moneybag: :moneybag: :moneybag:

1 „Gefällt mir“