Quel est la ligne a ecrire pour se mettre en vue de face?

Out of category
1

Je voudrais faire une macro qui enregistre une photo de chaque vue de l'assemblage ouvert mais lorsque j'enregistre la macro les changement de vu ne s'enregistre pas quel est la ligne a taper pour réaliser ceci ?

2

Bonjour

Voici la liste des vues :

Dim swApp As Object
Dim Part As Object

Sub main()

Set swApp = Application.SldWorks
Set Part = swApp.ActiveDoc

' Part.ShowNamedView2 "Normal à", 0   'Normal à un plan ou une face sélectionné(e)
Part.ShowNamedView2 "Face", 1
' Part.ShowNamedView2 "Dos", 2
' Part.ShowNamedView2 "Gauche", 3
' Part.ShowNamedView2 "Droite", 4
' Part.ShowNamedView2 "Dessus", 5
' Part.ShowNamedView2 "Dessous", 6
' Part.ShowNamedView2 "Isométrique", 7
' Part.ShowNamedView2 "Trimétrique", 8
' Part.ShowNamedView2 "Dimétrique", 9

' Part.ShowNamedView2 "Vue perso 1", -1
' Part.ShowNamedView2 "Vue perso 2", -1

Part.ViewZoomtofit2   'Ajuste le cadrage de la pièce ou l'assemblage à la vue

End Sub

 

Pour les vues standards, le nom de la vue entre guillemets est purement indicatif, vous pouvez le remplacer par "" ou "blabla" ça fonctionne quand même, seul le numéro définit la vue à montrer.

Pour les vues personnalisées, a contrario, le numéro est toujours -1 et seul le nom entre guillemets (correspondant bien sûr au nom donné à la vue lors de sa création) définit la vue à montrer.

4 « J'aime »
3

Bonjour,Voici la macro que j'ai fait, pourquoi elle ne fonctionne pas ?

' ******************************************************************************
' C:\Users\domon\AppData\Local\Temp\swx19096\Macro1.swb - macro recorded on 08/11/22 by domon
' ******************************************************************************
Dim swApp As Object

Dim Part As Object
Dim boolstatus As Boolean
Dim longstatus As Long, longwarnings As Long

Sub main()

Set swApp = Application.SldWorks

Set Part = swApp.ActiveDoc
Dim myModelView As Object
Set myModelView = Part.ActiveView
myModelView.FrameState = swWindowState_e.swWindowMaximized
' Part.ShowNamedView2 "Face", 1
' Part.ViewZoomtofit2

' Save As
longstatus = Part.SaveAs3("E:\Desktop\Capture\Vue de face.JPG", 0, 2)
End Sub
 


macro0004.swp
1 « J'aime »
4

Bonjour

Parce que tu as laissé les lignes ShowNamedView2 et ViewZoomtoFit2 en commentaire... il faut supprimer les apostrophes de début de lignes.

PS: J'ai commencé à écrire une macro avancée pour gérer l'enregistrement de masse d'images de vues, pour plusieurs docs, plusieurs vues, des vues paramétrées, and more. Preview :

3 « J'aime »
5

Sympa le projet @Sylk , Si tu peux nous partager cela ensuite, je serais curieux de voir ça!

2 « J'aime »
6

Bien entendu @sbadenis , c'est mon intention et le but.

1 « J'aime »