Hallo, ik ben bezig met het ontwikkelen van een macro voor solidworks en ik kan de opdrachtregel niet vinden die de functie van de knop " toggle view " vervult wanneer ik op de weergave in uitgevouwen toestand klik (om me in staat te stellen de richting van de vouwen om te keren)
Iemand een idee?
Ja, dat klopt, dat kan ik bevestigen.
Een andere mogelijkheid is om de symmetrische weergave te controleren op basis van uw behoeften:
'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 like
Hallo sbadenis,
Uitstekende informatie, het werkt perfect.
Voor degenen die geïnteresseerd zijn, hier is de volledige code:
Optie Expliciete
Dim swApp als object
Dim swModel als SldWorks.ModelDoc2
Dim swDraw als SldWorks.DrawingDoc
Dim swView als SldWorks.Bekijk
Sub hoofd()
Stel swApp = Toepassing.SldWorks in
Stel swModel = swApp.ActiveDoc in
Stel swDraw = swModel in
Set swView=swDraw.GetFirstView' selecteert de pagina
Stel swView=swView.GetNextView' selecteert de eerste weergave
'Controleer de symmetrie van horizontale aanzichten
Dim gespiegeld als Booleaanse
Dim oriëntatie zo lang
swView.SetMirrorViewOrientation True, swMirrorViewPositions_e.swMirrorViewPosition_Horizontal
swView.GetMirrorViewOriëntatie gespiegelde oriëntatie
Debug.Print "Gespiegeld?" " & gespiegeld
Debug.Print "Oriëntatie (0 = horizontaal)? " & oriëntatie
Einde Sub
@Thierry_ARNOULD ...
Overweeg om het " Beste antwoord " toe te wijzen aan @sbadenis ... " omdat hij het waard is"...


1 like
Bedankt @maclane voor een keer hoef ik je geen royalty's te betalen op je favoriete afbeelding!
1 like