---

Hallo weltbestes Forum,

Ich benötige wieder mal euren Rat. Ich hatte in der Vergangenheit irgendwann mal beim Öffnen einer Zeichnung aus der Baugruppe/Bauteil heraus einen Auswahldialog bekommen, welche Zeichnung geöffnet werden soll.
Um von einem Bauteil/Baugruppe nun verschiedene Zeichnungen zu machen (z.B. Kundenzeichnung, Interne Zeichnung etc.) und diese über das jeweilige Bauteil/Baugruppe in SWX durch "Zeichnung öffnen" zu öffnen und dabei ein Abfrage zu bekommen, welche Zeichnung geöffnet werden soll, muss ich verstehen, wie dieser Auswahldialog zu Stande kommt, bzw. wie ich SWX dazu bringe mir diesen anzubieten.

Ich habe alternativ bereits versucht, SWX-Zeichnungen in der jeweiligen Baugruppe/Bauteil im Konstruktionsordner zu verknüpfen - denn hier kann man z.B. PDF's oder andere Dokumente verknüpfen - Aber bei SWX eigenen Dateien ist das nicht möglich, was ich schade finde.

Kann mir dazu jemand auf die Sprünge helfen? und PDM ist keine Option.

Danke
Bernhard

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

---

Hallo Bernhard

Ich habe folgendes verstanden :
Du verwendest Baugruppen/Teile in Zeichnungen, die :
- nicht den gleichen Dateinamen wie .sldprt/.sldasm haben
- nicht im gleichen Verzeichnis liegen
- (oder beides)

Dazu brauchst Du einen Referenzenwächter /-scanner!
früher SWX-file-Utilities  (geht auch ohne pdm)

Habe ich deine Frage richtig verstanden ?

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

---

Hallo SLDW-FEM,

Ja, das ist einigermaßen richtig. Ich mache Fertigungszeichnungen die den gleichen Namen wie das jeweilige Bauteil bzw. Baugruppe haben und auch im gleichen Verzeichnis liegen. Zusätzlich möchte ich aus den gleichen Bauteilen/Baugruppen spezifische Zeichnungen machen (z.B. Kundenspezifische Ersatzteilzeichnungen etc...) die einen anderen Namen und im gleichen Verzeichnis liegen oder den Gleichen Namen haben und in einem Unterordner des SWX-Verzeichnisses liegen. Und diese möchte ich auch so einfach öffnen können, ohne immer im SWX-Verzeichnis suchen zu müssen.

Ich meine mich zu erinnern, dass bei gleichem Namen und verschiedene Verzeichnisse (Unterverzeichnis denke ich .... ) mir schon mal so ein Auswahldialog eingeblendet wurde. Ist aber schon lange her und kann es nicht mehr nachstellen. Damals hab ich es ignoriert und nicht großartig darüber nachgedacht, jetzt würde ich es benötigen .... 

lg

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

---

Hallo Bernhard

deine Funktion war schon mal drin (version 2012...)

eine (moderne) Lösung siehe tip in pm (Login => private message)

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

---

Hi

Du musst bei den Ausgeblendeten Meldungen in den Solidworks Einstellungen schauen.
Das hattest Du mal ausgeblendet, dann wirds auch nicht mehr angezeigt.

Wenn Du den Eintrag aus der Liste der "ausgeblendeten Meldungen" löscht, wir das auch wider beim öffnen angezeigt.

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

---

Hallo Dirkschr,

Meines Wissens kann so ein Auswahldialogfeld nicht ausgeblendet werden, da eine Aktion vom User erwartet wird, ohne die es nicht weitergeht.
Ich habs trotzdem in den Einstellungen gecheckt. Keine derartige Meldung in der Liste vorhanden....

Jemand noch eine Idee?
lg Bernhard

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

---

Hallo,
ich öffne unsere Zeichnungen und PDFs mit einem Mausklick auf einen Button der ein jeweiliges Makro ausführt.
Egal, ob ich in einer Baugruppe, einem Teil oder in der Zeichnung bin.

Meine Makros habe ich hier zur Verfügung gestellt.

https://ww3.cad.de/foren/ubb/Forum2/HTML/026683.shtml#000000

https://ww3.cad.de/foren/ubb/Forum2/HTML/027029.shtml#000000

Wer möchte, kann sie sich ja nach belieben anpassen.

Grüße, Andi

------------------
Hast du kein Problem?
Such dir eins. ( Und löse es )

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

---

Screenshot-20231108-18_06_12.png

Hallo Andi,

Vielen dank für den Hinweis mit deinen Makros.
Leider bin ich erst jetzt dazugekommen, mich wieder mit dem Thema zu beschäftigen.
Ist es möglich, diese beiden Makros zu kombinieren, sodass der Hauptordner (= dort wo die CAD Daten liegen) inkl. der Unterordner (in der Regel nur eine Handvoll z.B. Ersatzteilzeichnung, Montagezeichnung, Berechnungen etc....) nach vorhandensein einer Zeichnung ( Bauteil/Baugruppenname = Zeichnungsname) durchsucht werden und in einem Auswahlfenster angeboten werden?
Ich bin leider der Programmiersprache nicht mächtig und kann nur geringfügige Änderungen machen. Kann mir dabei jemand helfen?

Ich habe es geschafft, ein ähnliches Verhalten in SWX zu generieren. Dazu in der Bauteilebene/Baugruppenebene eine Zeichnung erstellen. Diese Zeichnung so wie sie ist in einen Unterordner kopieren. Danach die Zeichnung im Unterordner manuell öffnen. Diese wieder schließen und anschließend über rechte Maustaste die Zeichnung wieder öffnen. Das erzeugt ein Auswahlfeld von SWX. Anscheinend ist die zuvor geöffnete Zeichnung nach dem schließen noch im Arbeitsspeicher und es kommt zu einem Konflikt beim Öffnen, der eine Auswahl durch den User verlangt ..... (Bild anbei).

Vielen Dank
Bernhard

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

---

Zitat:

---

Original erstellt von gearloose7:

Ist es möglich, diese beiden Makros zu kombinieren,

---

Hallo Bernhard,
sicherlich lässt sich vieles anpassen und auch umsetzen.

Seitdem SOLIDWORKS vor einiger Zeit die Online-Lizenz gestrichen hat und HomeUse auch nicht mehr geht, kann ich zu Hause nicht mal mehr ins Makro reinschauen.
Ich kann dir da leider nicht weiterhelfen.
Allerdings sind die Anpassungen nicht so dramatisch, da das meiste bereits in den beiden Makros zu finden ist.
Eigentlich ein guter Einstieg für Anfänger, die etwas Zeit zum knobeln und Ehrgeiz mitbringen. 
Ich habe auch so angefangen, indem ich Makros von anderen für mich angepasst habe.

Grüße Andi

------------------
Hast du kein Problem?
Such dir eins. ( Und löse es )

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

---

Nach meiner Kenntnis, gibt es drei Möglichkeiten:

1) Ist der Dateiname ohne Endung gleich dem Dateinamen des Modells ohne Endung, ist es einfach. Es gibt ein VBA das FileScripting-Object und die Verzeichnis-Struktur könnte nach der gewünschten Zeichnung gesucht werden.
2) Für PDM haben wir ein kleines Makro bekommen, welches genau dieses Problem löst mit Hilfe der PDM-Api löst. Das PDM kennt die Verweise allerdings erst nach dem ersten Einchecken. Dafür kann der Dateiname der Zeichnung vom Modell abweichen. Es klappt, da über die Verweise des Modells die Zeichnung gefunden wird. Ab neueren PDM Versionen 2021(?) soll der Befehl ab Werk drin sein. Damit habe ich leider noch keine Erfahrungen sammeln können.
3) Nutzung der Document-Manager-Dll und alle Zeichnungen innerhalb einer Verzeichnis-Struktur nach ihren jeweiligen Referenzen zu durch suchen, ob es die gerade geöffnete Baugruppe in der aktuellen Konfig enthält. Ob die Dll auch über VBA ansprechbar ist, habe ich nie probiert. Auf jeden Fall erfordert die Nutzung der DLL einen Key, welchen man als Wartungskunde kostenlos bekommt.

Gruß, Klaus.

[Diese Nachricht wurde von riesi am 09. Nov. 2023 editiert.]

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

---

Hallo Klaus,

Danke für deinen input.
Es ist genau so wie du in Punkt 1 geschrieben hast. Dateiname ohne Endungen sind identisch. "Normale" Fertigungszeichnung von Baugruppe XY mit Namen "0123-00-001A_XY.slddrw" liegt im Projektordner und z.B. eine Ersatzteilzeichnung der gleichen Baugruppe in einem Unterordner ("Ersatzteilzeichnungen") mit gleichen Namen ("0123-00-001A_XY.slddrw").
Es wird nur durch den Ordnernamen unterschieden, welche Zeichnung was ist.

Zu Punkt 2 kann ich nichts sagen, weil ich kein PDM verwende.
Punkt 3 übersteigt meinen Horizont  ....

Grüße
Bernhard

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

---

Werde meine Idee wohl aus Unkenntnis in VB aufgeben müssen und warte darauf, dass es vielleicht irgendwann möglich ist, Solidworks Dokumente intern im Konstruktionsordner eines Bauteiles oder Baugruppe zu verknüpfen....

Habe leider keine Makro's mit ähnlichen Funktionen gefunden, dass mir den Ordner - in dem das geöffnete Bauteil liegt - plus 1 Ebene nach unten (Subordner) nach dem gleichen Bauteilnamen (Dateinamen + .slddrw) durchsucht und dann in einem Dialog auflistet (mit Angabe des Ordners wo es liegt), wo ich wählen kann, welches der gefundenen Dokumente geöffnet werden soll.
Selbst bin ich nicht in der Lage, sowas zu schreiben.....

Grüße

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

---

findDocumentDrawings.zip

Hi,

dann will ich mal den ersten Anfang machen. Leider habe ich zwischendurch nicht ganz so viel Zeit zum Skripten.

Der Code im Anhang durchsucht alle Unterordner ausgehend vom Modelpfad nach Dateien und lädt diese in eine Listbox. In der Listbox wird Dateiname und Pfad angezeigt. Die Zeichnungen können in der Listbox ausgewählt und geöffnet werden.

[Diese Nachricht wurde von R3vo am 17. Nov. 2023 editiert.]

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

---

Hallo R3vo,

Vielen Dank für den ersten Schnipsel. Ich hatte eigentlich nicht mehr damit gerechnet.....
Ich werde das sobald es meine Zeit erlaubt testen und versuchen zu erweitern ....

lg
Bernhard

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

---

Screenshot-20231118-08_20_01.png Screenshot-20231118-08_24_26.png

Hallo R3vo,

Habe dein Makro mal ablaufen lassen.
In der geöffneten Baugruppe im Featurebaum ein Bauteil selectiert und das Makro gestartet. Es läuft Fehlerfrei ab und zeigt eine Auswahlbox an. Allerdings ist diese leer. Es gibt aber für dieses Bauteil jeweils eine Zeichnungen im Hauptordner sowie im Unterordner "BERECHNUNG".

Wenn ich im geöffneten Bauteil das Makro starte, ohne etwas selectiert zu haben, läuft es auch zu Ende, schreibt in die Überschriftenzeile die Namen "Dateiname" und "Dateipfad" aber es wird auch nichts aufgelistet. siehe Bilder

Woran kann das liegen?

lg

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

---

Guten Morgen,

Besten Dank nochmal an R3vo. Das Makro zeigt allerdings bei einmaligem Durchlauf nur ein Leeres Auswahlfenster an, aber ....
Ich habe herausgefunden, dass wenn ich das Makro 2x durchlaufen lasse, alles angezeigt wird wie erwartet.
Bei einem Durchlauf allerdings der Auswahldialog leer bleibt. Es wird auch in der Kopfzeile des Auswahldialoges nichts angezeigt (hier sollte ja "Dateiname" und "Dateipfad" stehen...). Folglich muss das Makro davor irgendwo "hängenbleiben". Wenn ich nach erfolgreichem zweitem Durchlauf auf ein anderes Bauteil wechsle, und dort die Zeichnungen suche (das Makro starte) wird beim ersten Durchlauf das Ergebnis des vorigen Bauteils angezeigt, und erst bei nochmaligem Durchlauf das Ergebnis für das gerade geöffnete Bauteil aus welchem das Makro gestartet wurde.

Woran kann das liegen? Hat jemand eine Idee?

Option Explicit

Public swApp As SldWorks.SldWorks
Public swModel As ModelDoc2

Sub main()
    Set swApp = Application.SldWorks
    Set swModel = swApp.ActiveDoc
   
    If (swModel Is Nothing) Then Exit Sub
   
    Dim modelPath, modelFolderPath, modelName As String
    Dim fso As FileSystemObject
    Dim modelFolder, currFolder As Folder
    Dim subFile, modelFile As File
   
    Set fso = CreateObject("Scripting.FileSystemObject")
   
    modelPath = swModel.GetPathName
   
    If (modelPath = "") Then Exit Sub
   
    Set modelFile = fso.GetFile(modelPath)
   
    modelName = fso.GetBaseName(modelFile.ShortName)
   
    modelFolderPath = fso.GetFile(modelPath).ParentFolder
   
    Set modelFolder = fso.GetFolder(modelFolderPath)
   
    ufDrawings.Show
   
    With ufDrawings.lbHeader
        .ColumnCount = 2
        .ColumnWidths = "120;200"
        .AddItem
        .List(0, 0) = "Dateiname"
        .List(0, 1) = "Dateifpad"
        .Enabled = False
    End With
   
    With ufDrawings.lbDrawings
        .ColumnCount = 2
        .ColumnWidths = "120;200"
    End With
   
    Dim i As Long
   
    For Each currFolder In modelFolder.SubFolders
        'Debug.Print currFolder.Path
        For Each subFile In currFolder.Files
            If (LCase(fso.GetExtensionName(subFile.Path)) = "slddrw" And fso.GetBaseName(subFile.ShortName) = modelName) Then
            'If (LCase(fso.GetExtensionName(subFile.Path)) = "slddrw") Then
               
                With ufDrawings.lbDrawings
                    .AddItem
                    .List(i, 0) = fso.GetBaseName(subFile.ShortName)
                    .List(i, 1) = subFile.Path
                    i = i + 1
                End With
            End If
        Next
    Next
End Sub

Gruß
Bernhard

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

---

findDocumentDrawings.zip

Guten Morgen,

das ist mir beim Testen auch aufgefallen. Sobald ich Zeit habe werde ich mal schauen woran das liegen könnte.

Edit:

Ich denke ich habe das Problem behoben. Die gefundenen Dateien werden jetzt zunächst in ein Dictionary gespeichert und in dem Initialize Event der UserForm von dort aus in die Listbox übertragen. Funktioniert so bei mir zuverlässig. Auch werden bei mir jetzt nur noch die Zeichnungen des aktiven Dokuments angezeigt.

Edit 2:
Ich habe das Skript nochmals erweitert. Jetzt werden entsprechende Hinweismeldungen zurückgegeben für verschiedene Fälle.
Der UI hat jetzt eine inkrementelle Suche für den Fall das viele Zeichnungen gefunden wurden.

[Diese Nachricht wurde von R3vo am 20. Nov. 2023 editiert.]

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

---

Hallo,

soweit ich das sehe, geht das Makro nur durch die Subfolder, schaut aber nicht im gleichen Folder wie das Teil ist.

Code:

---

  For Each currFolder In modelFolder.SubFolders

---

je nach Konstellation kann damit der beobachtete Effekt auftreten ...

Gruß Christian

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

---

mein Versuch 

Code:

---

Option Explicit

Public swApp As SldWorks.SldWorks
Public swModel As ModelDoc2
Public dictDrawings As Dictionary
Dim modelPath, modelFolderPath, modelName, drawingName As String
Dim fso As FileSystemObject
Dim modelFolder, currFolder As Folder
Dim currFile, modelFile As File
Dim i As Long

Sub main()
    Set swApp = Application.SldWorks
   
    Set swModel = swApp.ActiveDoc
    If (swModel Is Nothing) Then
        MsgBox "Keine geöffnetes Dokument gefunden."
        Exit Sub
    End If
       
    modelPath = swModel.GetPathName
    If (modelPath = "") Then
        MsgBox "Speichern Sie zunächst das aktive Model."
        Exit Sub
    End If
   
    Set fso = CreateObject("Scripting.FileSystemObject")
    Set modelFile = fso.GetFile(modelPath)
    modelName = modelFile.Name  'als name.sldprt
    drawingName = LCase(Left(modelName, Len(modelName) - 7)) & ".slddrw"
    Set modelFolder = modelFile.ParentFolder
   
    Set dictDrawings = New Dictionary
   
    'erstmal im eigenen Verzeichnis
    For Each currFile In modelFolder.Files
        If LCase(currFile.Name) = drawingName Then _
            dictDrawings.Add currFile.Path, drawingName
    Next
         
    'dann die Unterordner
    For Each currFolder In modelFolder.SubFolders
        For Each currFile In currFolder.Files
            If LCase(currFile.Name) = drawingName Then _
                dictDrawings.Add currFile.Path, drawingName
        Next
    Next
   
    If (dictDrawings.Count > 0) Then
        ufDrawings.Show
    Else
        MsgBox "Keine Zeichnungen gefunden."
    End If
End Sub

---

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

---

Screenshot-20231121-07_43_10.png

Guten Morgen,

Läuft bereits beim 1 Durchlauf. Allerdings werden bei mir alle Zeichnungen unabhängig vom Dateinamen der Subfolder aufgelistet....

Gruß
Bernhard

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

---

Screenshot-20231121-07_47_30.png

Hallo Christian_W,

Habe deinen Code auch probiert. Hab ihn über eine Makro-Schaltfläche gestartet, läuft anscheinend durch aber es passiert nichts...
Habe ihn dann im VB Bearbeitungsmodus nochmal versucht zu starten und bekomme hier den Fehler "Fehler beim Kompilieren - Benutzerdefinierter Typ nicht definiert" in der 4ten Zeile für

Code:
Option Explicit
Public swApp As SldWorks.SldWorks
Public swModel As ModelDoc2
Public dictDrawings As Dictionary
Dim modelPath, modelFolderPath, modelName, drawingName As String
Dim fso As FileSystemObject
Dim modelFolder, currFolder As Folder
Dim currFile, modelFile As File
Dim i As Long
.................

hast du da eine Idee?
lg

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

---

findDocumentDrawings.zip

Guten Morgen,

anbei die neue .swp.

Dateien sollten jetzt wieder nur gefunden werden wenn der Name identisch ist und ich habe die Änderungen von Christian_W mit eingepflegt (Durchsuchen von parent folder)

[Diese Nachricht wurde von R3vo am 21. Nov. 2023 editiert.]

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

---

Hallo R3vo,

Kann es ein, dass du die vorige Variante nochmal als Anhang hast? Im Verhalten und im Code kann ich keine Unterschiede erkennen ....

lg

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

---

findDocumentDrawings.zip

Gute möglich. Hier eine neue Datei.

[Diese Nachricht wurde von R3vo am 21. Nov. 2023 editiert.]

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

---

Hallo,

Vielen Dank an alle hier im Forum.
Das Makro macht genau das was ich mir vorgestellt habe ... 

lg
Bernhard

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