Uitbreiding van functiebeheer bij het maken van een weergave in een tekening

2D plans
1

Hoi allemaal

Ik vroeg me af over een geautomatiseerde functie van de software waarvan ik het gebruik niet begrijp.

image

In een tekening kan ik meerdere vellen hebben zoals in deze afbeelding.

Als ik een nieuwe weergave in een van de werkbladen plaats, worden alle werkbladen automatisch uitgevouwen in de functiebeheerder, zoals in de onderstaande afbeelding.

image
afbeelding212×702 32.9 KB

Ik word constant gedwongen om met de rechtermuisknop te klikken > te verzamelen. Ik vind het moeilijk om te begrijpen wat deze functie als voordeel heeft, en ik zou graag willen weten of het mogelijk is om deze uit te schakelen, omdat ik er niet veel over kan vinden in de opties.

Het is gebruiksgemak, niets ernstigs, het is geen blokkerend probleem, maar ik ben benieuwd naar de feedback van andere mensen.

2

Hallo rbessonner,

Sterker nog, het doet het ook voor mij.
Ik ga daar even naar kijken.
@+.
AR.

1 like
3

Hetzelfde gedrag, ik kan me voorstellen dat het is om je in staat te stellen een weergave gemakkelijker van het ene blad naar het andere te slepen.
Maar er is niets gevonden om dit gedrag te blokkeren, wat inderdaad vervelend kan zijn als je tekeningen maakt met veel vellen (wat niet mijn geval is!)

1 like
4

Ik werk namelijk vaak met planbestanden die soms enkele tientallen plannen bevatten (bij ons noemen we dit stroomplannen, dit zijn de plannen van de intern te bewerken eenheidsonderdelen)

5

rbessonnet opnieuw,

Ik heb de F9-toets die het boomvenster sluit en opent, maar de boom niet vouwt... Wordt vervolgd.
@+.
AR.

1 like
6

Hallo @rbessonnet ,

Na al die tijd heb ik een oplossing voor te stellen. Dat is wat ik op dat moment wilde aanbieden, maar ik had niet de juiste volgorde om het allemaal in elkaar te zetten. Dankzij @sbadenis ik het nu heb, gaat de eer voor een groot deel naar hem. Mijn enige verdienste is dat ik je niet ben vergeten.

Hier is de macro die een nieuw blad maakt en vervolgens de hele boom verzamelt (vouwt):

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
    
    swApp.RunCommand swCommands_e.swCommands_Insert_Sheet, ""
    swApp.RunCommand swCommands_Collapseallitems_Tree, ""

End Sub

Nieuwblad+Verzamelen.swp (23 KB)

Het enige dat u hoeft te doen, is deze macro toevoegen aan de sneltoetsen en deze de snelkoppeling van uw keuze toewijzen, die u gaat gebruiken om nieuwe bladen toe te voegen.

Deze macro is gelijk aan deze handmatige methode:

  1. Een blad toevoegen
  2. Shift+C
1 like