Macro permettant d'inverser le sens d'une mise à plat

Bonjour, je développe une macro pour solidworks et je n’arrive pas à trouver la ligne de commande qui remplit la fonction du bouton « basculer la vue » lorsque je clique sur la vue à l’état déplié (pour me permettre d’inverser le sens des pliages)


Quelqu’un a une idée?

Bon ben je viens enfin de répondre à ma propre question, la commande c’est swView.FlipView = True
info trouvée ici :Create and Flip Flat-Pattern View of Sheet Metal Part Example (VB) - 2023 - SOLIDWORKS API Help

Oui c’est bien cela je te confirme.

Une autre possibilité est de coché la vue symétrique suivant ton besoin:

'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 « J'aime »

Bonjour sbadenis,
Excellent comme information, cela fonctionne parfaitement.
Pour ceux que ça intéresserait voici le code complet :

Option Explicit
Dim swApp As Object
Dim swModel As SldWorks.ModelDoc2
Dim swDraw As SldWorks.DrawingDoc
Dim swView As SldWorks.View

Sub main()
Set swApp = Application.SldWorks
Set swModel = swApp.ActiveDoc
Set swDraw = swModel
Set swView = swDraw.GetFirstView 'sélectionne la page
Set swView = swView.GetNextView 'sélectionne la première vue

'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
End Sub

Merci beaucoup :pray:

@Thierry_ARNOULD
Pensez à attribuer la « Meilleur réponse » à @sbadenis … « parce qu’il le vaut bien » …
image
:grin:

1 « J'aime »

Merci @maclane pour une fois j’ai pas besoin de te payer des droits d’auteur sur ton image préféré!

1 « J'aime »

Ahhhhh! flute, j’avais z’oublié… :grin: :moneybag: :moneybag: :moneybag:

1 « J'aime »