---

MehrereDateien.png

Hallo,

Ich hab mein VBA fast so wie ich es will.
Das Ändern der aktiven Solidworks Datei geht jetzt (Teil und Baugruppe).
Der Browser zum hinzufügen und bereitstellen der Pfade geht auch.
Speichern von Benutzereinstellungen in der Registry läuft auch.

Was fehlt: Von jeder Datei von der der Pfad in der Liste steht, sollen nun die Benutzerdefinierten Eigenschaften ausgelesen und gespeichert werden.
           (Zurzeit ist das nur von der aktiven Dateie möglich)
Hat jemand die passende Befehle gesehen oder weis wie das geht (Bei geschlossenen Dateien! Ansonsten dauert mir das öffnen/schreiben/schießen bei 100en Dateien zu lang!)

[Diese Nachricht wurde von fabian1243 am 06. Jul. 2018 editiert.]

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

---

Hallo Fabian,

wie Andreas hier http://ww3.cad.de/foren/ubb/Forum2/HTML/031484.shtml#000002
schon geschrieben hat, wird Dir da wohl nur die "Document Manager API"
weiterhelfen.
Such einfach mal in der Online Hilfe nach "Document Manager API"

------------------
Grüße
Heinz

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

---

Hallo

Du kannst deine Dokumente unsichtbar laden, indem du DocumentVisible auf False setzt.

Code:

---

If FType = "*.sldprt" Then
    swApp.DocumentVisible False, swDocPart
    Set swPart = swApp.OpenDoc(sPath & sFileSW, swDocPart)
    swApp.DocumentVisible True, swDocPart
ElseIf FType = "*.sldasm" Then
    swApp.DocumentVisible False, swDocAssembly
    Set swPart = swApp.OpenDoc(sPath & sFileSW, swDocAssembly)
    swApp.DocumentVisible True, swDocAssembly
End If

---

Gruss Andreas

------------------
21 ist nur die halbe Antwort.

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

---

Zitat:

---

Original erstellt von nahe:
Hallo Fabian,

wie Andreas hier http://ww3.cad.de/foren/ubb/Forum2/HTML/031484.shtml#000002
schon geschrieben hat, wird Dir da wohl nur die "Document Manager API"
weiterhelfen.
Such einfach mal in der Online Hilfe nach "Document Manager API"

---

Ja nur da stand irrgendetwas mit nem Schlüssel den man braucht hab das nicht ganz verstanden 

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

---

Hallo Fabian,

genau diesen Schlüssel kannst du z.B. über deinen Reseller anfordern. Ohne den "Document Manager" geht das nur wie oben schon beschrieben mit unsichtbarem Laden, was aber auch sehr viel schneller geht wie das normale Laden.

Gruß
Bernd

------------------
--- Man muß nicht alles wissen, man muß nur wissen wo es steht ---

Staatlich anerkannte Deutschniete 

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

---

Zitat:

---

Original erstellt von HenryV:
Hallo

Du kannst deine Dokumente unsichtbar laden, indem du DocumentVisible auf False setzt.

Code:

---

If FType = "*.sldprt" Then
    swApp.DocumentVisible False, swDocPart
    Set swPart = swApp.OpenDoc(sPath & sFileSW, swDocPart)
    swApp.DocumentVisible True, swDocPart
ElseIf FType = "*.sldasm" Then
    swApp.DocumentVisible False, swDocAssembly
    Set swPart = swApp.OpenDoc(sPath & sFileSW, swDocAssembly)
    swApp.DocumentVisible True, swDocAssembly
End If

---

Gruss Andreas

---

Hallo, du setzt auf unsichtbar dann öffnest du die Datei und dann machst du sie sichtbar, aber sichtbar will ich sie ja nicht ich will sie bearbeiten und dann schließen?

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

---

Zitat:

---

... unsichtbar dann öffnest du die Datei und dann machst du sie sichtbar ...

---

Nein, tut er nicht.

das ist ein Schalter für swApp, nicht für swPart.
damit werden alle danach geöffneten Dateien unsichtbar (bzw. sichtbar) gehalten.
du könntest also vorher und hinterher schalten, wenn dein Kram durch ist.

swapp.documentvisible flase, swDocPart
open part 1 ... do sth ... Close part 1
...
open part 400 ... do sth ... Close part 400
swapp.documentvisible true, swDocPart

aber wenn du es nicht true stellst, kannst du vermutlich keine Teile mehr sichtbar öffnen ... 
absturz vorzeitig wäre wohl nicht so gut.

Gruß, Christian

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

---

So hab Das Problem mit dem invisible öffnen gelöst und funktioniert einwandfrei, hab alles ein bisschen zurechtgerückt dann gings.

Wer noch meine Entgültigen Code sehen will:

Code:

---

        '---Start Mehrere Dateien Speichern
        If Hauptform.Liste.ListCount > 0 And DoppelteCheckbox = False Then 'Dateien ausgewählt?
            For i = 0 To Hauptform.Liste.ListCount - 1
                '---Start Teile
                If VBA.UCase$(VBA.Right$(Hauptform.Liste.List(i, 1), 3)) = "PRT" Then
                    Ob_swApp.DocumentVisible False, swDocPART
                    Set IModel = Ob_swApp.OpenDoc(Hauptform.Liste.List(i, 1), swDocPART)
                End If
                '---Ende Teile
               
                '---Start Baugruppe
                If VBA.UCase$(VBA.Right$(Hauptform.Liste.List(i, 1), 3)) = "ASM" Then
                    Ob_swApp.DocumentVisible False, swDocASSEMBLY
                    Set IModel = Ob_swApp.OpenDoc(Hauptform.Liste.List(i, 1), swDocASSEMBLY)
                End If
                '---Ende Baugruppe
               
                '---Start Fixe Daten die in der ComboBox stehen eintragen
                For j = 1 To In_Max
                    If Hauptform.Controls("BoxMerken" & j).Value = True Then
                        EigenschaftenErstellen (j)
                        EigenschaftenSpeichern (j)
                    End If
                Next j
                '---Ende Fixe Daten die in der ComboBox stehen eintragen
               
                '---Start Vorschläge eintragen
                For j = 1 To In_Max
                    If Hauptform.Controls("Boxvorschlag" & j).Value = True Then
                        EigenschaftAuslesen (j)
                        EigenschaftVorschlagen (j)
                        EigenschaftenErstellen (j)
                        EigenschaftenSpeichern (j)
                    End If
                Next j
                '---Ende Vorschläge eintragen
               
                IModel.Save
            Next i
            Ob_swApp.DocumentVisible True, swDocASSEMBLY
            Ob_swApp.DocumentVisible True, swDocPART
            Set IModel = Ob_swApp.ActiveDoc
        Else
            If Not Hauptform.Liste.ListCount > 0 Then
                MsgBox "Keine Dateien ausgewählt!", vbInformation
            End If
        End If
        '---Ende Mehrere Dateien Speichern

---

[Diese Nachricht wurde von fabian1243 am 06. Jul. 2018 editiert.]

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