Macro om de richting van een afvlakking om te keren

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?

Nou, ik heb eindelijk mijn eigen vraag beantwoord, het commando is swView.FlipView = Waar
info hier te vinden:Creëer en draai een plat patroonweergave van een voorbeeld van een plaatwerkonderdeel (VB) - 2023 - SOLIDWORKS API Help

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

image

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

Hartelijk dank :pray:

@Thierry_ARNOULD ...
Overweeg om het " Beste antwoord " toe te wijzen aan @sbadenis ... " omdat hij het waard is"...
image
:grin:

1 like

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

1 like

Ahhhhh! fluit, ik was het vergeten... :grin: :moneybag: :moneybag: :moneybag:

1 like