---

Hallo zusammen,
hat einer ein Makro womit man alle eingeblendeten Skizzen und Flächen ausblenden kann?
oder eine Idee wie ich dies Schnell erreiche?

Kurz mein Problem:
Einer meiner Kolegen hat immer alle Ebenen & Skizzen einblendet.
Wenn jetzt jemand seine Teile in seine BG nimmt hat er immer das Problem das er
kaum noch was erkennt.
Wenn er jetzt in der BG arbeiten will und Skizzen übernehmen will kann er es auch nicht einfach ausblenden.

Deswegen bin ich auf der suche nach einer schnellen & einfachen lösung.
Kann mir da einer von euch helfen?

Gruß Hobi

------------------

Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP

---

Makro Nummer 30 wäre eine Lösung; die andere hat mit Schlagen und Deinen Kollegen zu tun 

------------------
Gruß, der Teddibaer

Besucht mich doch einmal ... oder ... auch zweimal ...   
-----------------------------------------------------------------
Brot kann schimmeln ... und was kannst Du?

[Diese Nachricht wurde von Teddibaer am 02. Jul. 2008 editiert.]

Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP

---

Hallo Teddibaer,
das Makro ist im grund ja nicht schlecht nur das man alles Trotzdem anwählen muß ist nicht so das schöne.

Das mit dem Schlagen bringt nicht so viel, wir haben das gefühl das er auf sowas steht :-) 

------------------

Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP

---

Hallo Hobi,

ich hab dir da mal was gebastelt.

Code:

---

' **********************************************************************
' * Makro blendet alle Skizzen in einem Teil aus. Anforderung siehe
' * http://ww3.cad.de/foren/ubb/Forum2/HTML/015512.shtm
' *
' * 03.07.2008 Stefan Berlitz (stefan.berlitz@solidworks.cad.de)
' *
' * http://solidworks.cad.de
' * http://swtools.cad.de
' **********************************************************************

' die Konstanten aus swconst.bas, damit nicht mit Zahlen gearbeitet werden muss
Const swDocPART = 1               ' Used to be TYPE_PART

Sub Main()

    Dim SwApp As Object
    Dim Part As Object
    Dim Feature As Object

    Set SwApp = CreateObject("SldWorks.Application")
    Set Part = SwApp.ActiveDoc

    If Part Is Nothing Then
        MsgBox ("Kein Modell geöffnet")
        End
    End If

    ' ausserdem funktioniert das so nur mit Parts, also sollte das aktive
    ' Dokument auch ein Part sein
    If Part.GetType() <> swDocPART Then
        MsgBox ("Das Makro funktioniert nur mit Parts")
        End
    End If

    ' das erste Feature im Part suchen
    Set Feature = Part.FirstFeature

    ' dann eine Schleife über alle Feature
    While Not Feature Is Nothing

        If Feature.GetTypeName = "ProfileFeature" Or _
          Feature.GetTypeName = "3DProfileFeature" Then

            ' selektieren
            Part.SelectByID Feature.Name, "SKETCH", 0, 0, 0
            ' ausblenden
            Part.BlankSketch
        End If
       
        ' und das nächste Feature abklappern
        Set Feature = Feature.GetNextFeature()
    Wend

End Sub

---

Ciao,
Stefan

------------------
Inoffizielle deutsche SolidWorks Hilfeseite    http://solidworks.cad.de
Stefans SolidWorks Blog

Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP

---

Zitat:

---

Original erstellt von The Mc 7:
... Das mit dem Schlagen bringt nicht so viel, wir haben das gefühl das er auf sowas steht :-)  ;)

---

Dann schlagt Ihr nicht fest genug ...

------------------
Gruß, der Teddibaer

Besucht mich doch einmal ... oder ... auch zweimal ...
-----------------------------------------------------------------
Brot kann schimmeln ... und was kannst Du?

Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP

---

Dank Stefan,
das Makro ist ja schon nicht schlecht (eigentlich schon total super).
Kannst du mir jetzt noch ein Tip geben wie ich das mit den EBENEN auch noch da rein bekomme?
Dann bekommst du das 'e' vom Danke auch noch.

@Teddibaer
wenn wir noch fester zuschlagen ist die gafahr zu groß das unser 100er Holz bricht 

------------------

Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP

---

Her mit dem "e" 

Code:

---

' **********************************************************************
' * Makro blendet alle Skizzen und Ebenen in einem Teil aus.
' * Anforderung siehe
' * http://ww3.cad.de/foren/ubb/Forum2/HTML/015512.shtm
' *
' * 03.07.2008 Stefan Berlitz (stefan.berlitz@solidworks.cad.de)
' *
' * http://solidworks.cad.de
' * http://swtools.cad.de
' **********************************************************************

' die Konstanten aus swconst.bas, damit nicht mit Zahlen gearbeitet werden muss
Const swDocPART = 1              ' Used to be TYPE_PART

Sub Main()

    Dim SwApp As Object
    Dim Part As Object
    Dim Feature As Object

    Set SwApp = CreateObject("SldWorks.Application")
    Set Part = SwApp.ActiveDoc

    If Part Is Nothing Then
        MsgBox ("Kein Modell geöffnet")
        End
    End If

    ' ausserdem funktioniert das so nur mit Parts, also sollte das aktive
    ' Dokument auch ein Part sein
    If Part.GetType() <> swDocPART Then
        MsgBox ("Das Makro funktioniert nur mit Parts")
        End
    End If

    ' das erste Feature im Part suchen
    Set Feature = Part.FirstFeature

    ' dann eine Schleife über alle Feature
    While Not Feature Is Nothing

        If Feature.GetTypeName = "ProfileFeature" Or _
          Feature.GetTypeName = "3DProfileFeature" Then
            ' selektieren
            Part.SelectByID Feature.Name, "SKETCH", 0, 0, 0
            ' ausblenden
            Part.BlankSketch
        End If
       
        ' und noch Referenzebenen ausblenden
        If Feature.GetTypeName = "RefPlane" Then
            ' selektieren
            Part.SelectByID Feature.Name, "PLANE", 0, 0, 0
            ' ausblenden
            Part.BlankRefGeom
        End If
       
        ' und das nächste Feature abklappern
        Set Feature = Feature.GetNextFeature()
    Wend

End Sub

---

------------------
Inoffizielle deutsche SolidWorks Hilfeseite    http://solidworks.cad.de
Stefans SolidWorks Blog

Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP

---

DANKE Stefan

------------------

Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP

---

Ähem, sorry, aber warum schreibt ihr ellenlange Makros (wofür ich euch echten Respekt zolle), wenn man auch über den Befehl Ansicht einzelne Typen wie z.B. auch Ebenen oder Skizzen auswählen kann??

Greets

Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP

---

  Hallo? 

Noch mal LESEN, Verstehen - Hinweis: zwei unterschiedliche Sachen.   

G.   thomas

Ps: DANKE STEFAN!!!!!!!!!!!!!!!!!!!!

------------------
   

[Diese Nachricht wurde von myca am 08. Jul. 2008 editiert.]

Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP

---

Hallo Brödlahans

Zitat:

---

Original erstellt von Brödlahans:
Ähem, sorry, aber warum schreibt ihr ellenlange Makros (wofür ich euch echten Respekt zolle), wenn man auch über den Befehl Ansicht einzelne Typen wie z.B. auch Ebenen oder Skizzen auswählen kann??

---

Über das Ansichtsmenu kannst du nur alle oder keine Ebene/Skizzen ausblenden, wie so eine Art Hauptschalter. Manchmal ist es notwendig, einzelne Ebenen oder Skizzen (z.B. Anschlußebenen oder Layoutskizzen) permanent oder vor allem auch mal temporär einzublenden, damit die besser gesehen oder genutzt werden können.

Wenn jetzt ein Konstruktuer in seiner Arbeitsweise gewohnt ist, erst mal sicherheitshalber alle Ebenen und Skizzen über den Sichtbarkeitsstatus des Objektes einzublenden (und, was ich dann selbst erlebt habe, eben alles wieder über das Ansichtsmenu ausblendet) und jemand verbaut diese Teile, hast du überall diese Spuren auf dem Bildschirm, auch wenn du nur eine bestimmte Skizze einblenden willst, um die zu sehen.

Dafür musst du dann eben wirklich in die Teile rein und Referenzgeometrie (Ebenen) und Skizzen einzeln wieder ausblenden.

Ciao,
Stefan

------------------
Inoffizielle deutsche SolidWorks Hilfeseite    http://solidworks.cad.de
Stefans SolidWorks Blog

Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP

---

Hallo Stefan,

wieder mal ein SUPER Makro!! Toll! Heut hat mich ein Kollege nach genau sowas gefragt, allerdings für Baugruppen  . Geht leider mit diesem Makro soo nicht. Kannst du da noch was dranstricken?? 1000 Units sind dir schon jetzt sicher 

Gruß
Fredy

Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP

---

Hi Fredy,

jupp, das Makro prüft ab, ob es ein Teil ist, ich hab es umgeändert, so dass es mit allen Modellen funktioniert:

Code:

---

' **********************************************************************
' * Makro blendet alle Skizzen und Ebenen in einem Teil aus.
' * Anforderung siehe
' * http://ww3.cad.de/foren/ubb/Forum2/HTML/015512.shtm
' *
' * 03.07.2008 Stefan Berlitz (stefan.berlitz@solidworks.cad.de)
' *
' * http://solidworks.cad.de
' * http://swtools.cad.de
' **********************************************************************

' die Konstanten aus swconst.bas, damit nicht mit Zahlen gearbeitet werden muss
Const swDocDRAWING = 3               ' Used to be TYPE_PART

Sub Main()

    Dim SwApp As Object
    Dim Part As Object
    Dim Feature As Object

    Set SwApp = CreateObject("SldWorks.Application")
    Set Part = SwApp.ActiveDoc

    If Part Is Nothing Then
        MsgBox ("Kein Modell geöffnet")
        End
    End If

    ' ausserdem funktioniert das so nur mit Parts, also sollte das aktive
    ' Dokument auch ein Part sein
    If Part.GetType() = swDocDRAWING Then
        MsgBox ("Das Makro funktioniert nur mit Modellen")
        End
    End If

    ' das erste Feature im Part suchen
    Set Feature = Part.FirstFeature

    ' dann eine Schleife über alle Feature
    While Not Feature Is Nothing
        ' Debug.Print Feature.GetTypeName

        If Feature.GetTypeName = "ProfileFeature" Or _
           Feature.GetTypeName = "3DProfileFeature" Then
            ' selektieren
            Part.SelectByID Feature.Name, "SKETCH", 0, 0, 0
            ' ausblenden
            Part.BlankSketch
        End If
       
        ' und noch Referenzebenen ausblenden
        If Feature.GetTypeName = "RefPlane" Then
            ' selektieren
            Part.SelectByID Feature.Name, "PLANE", 0, 0, 0
            ' ausblenden
            Part.BlankRefGeom
        End If
       
        ' und das nächste Feature abklappern
        Set Feature = Feature.GetNextFeature()
    Wend

End Sub

---

Die geänderten Stellen sind in Fett, da kannst du das auch eben in deinem Makro ändern.

Ciao und schöne Restarbeitswoche,
Stefan

------------------
Inoffizielle deutsche SolidWorks Hilfeseite    http://solidworks.cad.de
Stefans SolidWorks Blog

Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP

---

DarstellunginBaugruppenändern.zip

Okay, ich habe nun die beiden Makros von Stefan Berlitz zum Ausblenden eingeblendeter  Skizzen und Ebenen und das Makro zum Setzen der Komponentenstati von TeamWorks integriert, weil wir das intern benötigen!

Stefans Makro blendet nur die Geometriereferenz der obersten Ebene aus! Eine perfekte Vorlage, um es auf unsere Anforderung, auch in Unterbaugruppen auszublenden, umzuschreiben!

Das TeamWorks Makro setzt den Status von Unterbaugruppen und Teilen in einer Oberbaugruppe. So lassen sich ausgeblendete und unterdrückte Dokumente über alle Ebenen  einblenden, invertieren.

Das Makro von Stefan habe ich um Achsen erweitert und in das Makro von TeamWorks, das eben auch alle Unterbaugruppen durchläuft integriert. Das Makro durchläuft alle Schritte fehlerfrei. Nur Stefans Part läuft nicht richtig: eingeblendete Geometriereferenzen werden partout nicht selektiert!
Hat jemand Interesse daran, mir bei dem Problem zu helfen? Ich verstehe das nicht!
Das Makro läuft durch die gewünschten Schritte durch; springt in jede Unterbaugruppe, selektiert und blendet aber keine Ebene / Achse / Skizze aus!

Woran liegt das? Stefans Makro läuft doch in der ersten Ebene!

Ratlose Grüße,
Malte

---

Ich muss diesen Beitrag doch noch einmal auskramen, da ich trotz Feiertagen nicht weiter gekommen bin. In der API-Hilfe habe ich für mich keine weiteren Ideen finden können, warum das Makro zwar läuft, aber die Funktion nicht ausführt.

Noch einmal zur Aufgabenstellung:
Importiert man eine Fremddatei (Makro) entstehen eine Menge Ebenen, die alle bis auf drei Haupt-/ Referenzebenen nicht benötigt werden. Da diese drei Ebenen dauerhaft sichtbar bleiben müssen, weil zum Verknüpfen notwendig, ist der Befehl „Ansicht → Ebenen“ nicht nutzbar, da hierbei alle Ebenen unterdrückt werden (und nicht mehr schön sichtbar zum Verknüpfen).

Mit dem Makro möchte ich nun erreichen, dass alle Ebenen ausgeblendet werden und ich dann manuell die (drei) gewünschten Ebenen einblenden kann.

Könnte sich bitte jemand das Makro ansehen und mir helfen?

Gruß,
Malte

---

Du brauchst doch nur alle Ebenen vor dem Ausblenden auf die Namen der 3 Standardebenen untersuchen und die dann eben nicht ausblenden!

------------------
Lutz Federbusch
Mein Gästebuch
Der Mensch, Herr oder Sklave der Technik?

Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP

---

Hallo Malte,

das liegt daran, dass du in dem Loop über die Komponenten nicht das ModelDoc, also das Teil selbst, in der API ansprichst, sondern immer weiterhin das aktive Dokument, also die gerade offene Baugruppe. Da die Ebenen, Achsen usw. aber ja auf Teileebene ausgeblendet werden müssen musst du in dem Loop alle Komponenten abklappern, zu den Komponenten das ModelDoc holen, und dann die Loops über die Features in diesen ModelDocs machen.

Noch als Hinweis: dadurch änderst du ggf. das Teil, das müsste dann gespeichert werden, damit diese Änderung dauerhaft ist ... mit allen Konsequenzen für irgendwelche Datenverwaltung 

Ciao,
Stefan

------------------
Inoffizielle deutsche SolidWorks Hilfeseite    http://solidworks.cad.de
Stefans SolidWorks Blog

Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP

---

ACHTUNG! Sie antworten auf einen Beitrag der älter als 1 Jahr ist!

Hallo Malte,

ich bin heute auf deinen Beitrag gestoßen. Ich habe auch das Problem, wenn Teil in Teil eingefügt wird, das dann alle Ebenen, Achsen u.s.w. sichtbar dargestellt werden.
Mit dem Macro von Stefan konnte ich die Ebenen alle ausblenden. Leider nicht die Achsen. Du hattest dich damals daran probiert und das Macro dahingehend erweitert.
Da ich keine Ahnung von Macroprogrammierung habe, wollte ich dich fragen, ob du mir die fehlenden Zeilen von Stefans Macro verrätst?

Gruß Thomas

Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP

---

Moin Zusammen,

muss diesen Beitrag mal ausgraben.

Hat da jemand schon was in Richtung Baugruppe umprogrammiert?
Sodass ich das Makro auch in der Baugruppe anwenden kann?

Gruß Steffen

------------------
Wer Rechtschreibfehler findet darf sie gerne behalten! :-)

www.egoproducts.com

Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP

---

AlleSkizzen_inBaugr_ausblenden.zip

ACHTUNG! Sie antworten auf einen Beitrag der älter als 1 Jahr ist!

Hallo SteffenB,

um alle Komponenten-Skizzen einer Baugruppe auszublenden habe ich aus der SolidWorks-API-Referenz ein Makro herauskopiert und in eine Excel-Tabelle integriert. Die Excel-Tabelle schreibt mit, welche Komponente gerade abgearbeitet wird. Vielleicht kannst du etwas damit anfangen.

Gruß
Mike

Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP