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
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
@Thierry_ARNOULD …
Pensez à attribuer la « Meilleur réponse » à @sbadenis … « parce qu’il le vaut bien » …
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 »