Ansicht.zip

Hallo SolidWorker!

Ich hab gerade ein Makro mit dem in 2001 endlich dazu gekommenen VBA (Klasse!) geschrieben und wollte euch das nicht vorenthalten.

Es ist für denjenigen gedacht, der oft Ebenen, Temp.Achsen usw. ein- und ausblenden muss.
Hier bekommt man jetzt einen kleinen Dialog, den man offen lassen und in die Ecke schieben kann, um mit dem die Referenzgeometrien ein- und auszublenden.

Für alle, die sich mit Makros nicht so auskennen ein paar Infos zum Einrichten:
- Im SWX-Programmverzeichnis einen Ordner "Macros" anlegen
- Ansicht.swp da rein und SWX neu starten
- Im Menü auf Extras\Anpassen...
- Auf Seite Tastatur unter Kategorien "Makros" auswählen
- Bei Befehle sollte jetzt Ansicht drin stehen
- Einen schönen Shortcut zuweisen (z.B. Strg+SpaceBar)
- Zuweisen klicken nicht vergessen

Das wars schon.

Ich hoffe ihr könnt was damit anfangen, ich fand es ganz praktisch.

Gruß,
Axel

Jippie,

genau so was habe ich gesucht, weil übernommene Baugruppen von Achsen und Ursprüngen strotzen, die mich echt nerven. Vielen Dank dafür!!

Hi Axel!

Obwohl ich die temp. Achsen und Ursprünge auf einer Tastenkombination habe  , finde ich es super, wenn solche Makros hier zur Verfügung gestellt werden.

Hallo Axel,
vielen Dank fuer das Tool fuer die Welt.....

Nur haben wir damit ein kleines Problemchen... in Einzelteilen funktioniert es prima :-) allerdings versagt es seinen Dienst in Baugruppen? :-(
Wenn man unter "Ansicht" (oben neben Datei) die Typen (temp.Achsen usw.) ein + ausschaltet funktioniert die Darstellung mit temp.Achsen oder ohne einwandfrei.

Hast Du da einen Tipp, warum es bei uns nicht funktioniert? Bei "guischmi" scheint es ja zu funktionieren.

Danke fuer die Info....

Hallo Axel

Kann mich den Vorgängern nur anschließen, das Tool ist super. 

@Rolf Lampert: Versuch mal, das Makro zu starten, wenn du nur die Baugruppe offen hast. (Makro mußte bei mir neu gestartet werden, damit es in der Baugruppe geklappt hat.)

Hoffe, das warŽs.

Peter

Hai Axel,

zuerst 1x das Makro ist echt suppi,
was wir aber noch bräuchten ist => das man die Skizzen aus,-einblenden kann, wie muss ich das machen, wäre Dir sehr dankbar wenn Du mir helfen könntest.

Private Sub CheckBox7_Change()
    If Events Then
        Part.ViewDispSketch
    End If
End Sub

so geht leider nicht, o. ist da ein Fehler drin

Gruß
Mc Fly