Rozszerzenie menedżera elementów podczas tworzenia widoku na rysunku

Cze wszystkim

Zastanawiałem się nad zautomatyzowaną funkcją oprogramowania, której nie rozumiem użycia.

image

Na rysunku mogę mieć wiele arkuszy, tak jak na tym obrazie.

Jeśli umieszczę nowy widok w jednym z arkuszy, wszystkie arkusze automatycznie rozwiną się w menedżerze funkcji, jak na poniższym obrazku.

Ciągle jestem zmuszony klikać prawym przyciskiem myszy> zbierać. Trudno mi zrozumieć, co ta funkcja przynosi jako zaletę i chciałbym wiedzieć, czy można ją wyłączyć, ponieważ nie mogę znaleźć zbyt wiele na ten temat w opcjach.

To komfort użytkowania, nic poważnego, to nie jest problem z blokowaniem, ale jestem ciekaw opinii innych osób.

Witaj rbessonner,

Rzeczywiście, robi to również dla mnie.
Poświęcę chwilę, aby się temu przyjrzeć.
@+.
AR.

1 polubienie

Wyobrażam sobie, że to samo zachowanie, aby umożliwić łatwiejsze przeciąganie widoku z jednego arkusza do drugiego.
Ale nie znaleziono nic, co mogłoby zablokować to zachowanie, co rzeczywiście może być denerwujące, gdy tworzysz rysunki z wieloma arkuszami (co nie jest moim przypadkiem!)

1 polubienie

Rzeczywiście, często pracuję z plikami planów, które czasami zawierają kilkadziesiąt planów (u nas nazywamy to planami przepływu, są to plany części jednostkowych, które mają być obrabiane wewnętrznie)

rbessonnet ponownie,

Mam F9, który zamyka i otwiera okno drzewa, ale nie składa drzewa... Ciąg dalszy nastąpi.
@+.
AR.

1 polubienie

Witaj @rbessonnet ,

Po tylu latach mam do zaproponowania rozwiązanie. To jest to, co chciałem zaoferować w tamtym czasie, ale nie miałem odpowiedniej kolejności, aby to wszystko połączyć. Dzięki @sbadenis mam go teraz, w dużej mierze jest to zasługa jego. Moją jedyną zasługą jest to, że o tobie nie zapomniałem.

Oto makro, które tworzy nowy arkusz, a następnie zbiera (składa) całe drzewo:

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

NewSheet+Gather.swp (23 KB)

Wszystko, co musisz zrobić, to dodać to makro do skrótów klawiaturowych, przypisując mu wybrany przez siebie skrót, którego będziesz używać do dodawania nowych arkuszy.


To makro jest równoważne tej metodzie ręcznej:

  1. Dodawanie arkusza
  2. Shift+C
2 polubienia

Cześć, dzięki za makro! Myślę jednak, że to nie zmienia podstawowego problemu, ponieważ ta funkcja pojawia się po umieszczeniu nowego widoku na arkuszu.

Ale to makro z pewnością i tak uszczęśliwi ludzi!