---

Guten Tag

ich habe ein Teil im Tresor PDM gespeichert, und jetzt muss ich (wegen Daten Aktualisierung) es einmal ein- und auschecken.
kann ich dies mit Macro machen?
Quasi ein Macro erstellen und auf dem Arbeitsfläche installieren, und mit einem Klick das Teil ein- und auschecken.

Unter API Hilfe findet man nur VB.Net und C# Beispiele mit dem Syntax IEdmFile5::UnlockFile aber leider keine VBA vorhanden.

Danke Schön in Voraus

------------------
Mutaz Yunan

[Diese Nachricht wurde von Mutaz Yunan am 15. Jun. 2020 editiert.]

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

---

Hallo! Kann das Aktualisieren nicht Dein Task-Planer machen?

------------------
https://www.radiobob.de

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

---

Leider nicht
Daten Aktualisierung erfolgt nur über Ein- und Auschecken.

------------------
Mutaz Yunan

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

---

Code:

---

Dim swApp As Object
Dim longstatus As Long, longwarnings As Long
Dim vault As EdmVault5
Dim file As IEdmFile5
Dim folder As IEdmFolder5
Dim iRelease As Integer

    Dateipfad = "D:\Tresorname\..."

'im PDM anmelden
Set vault = New EdmVault5
    vault.LoginAuto "Tresorname...", 0
  
Set file = vault.GetFileFromPath(Dateipfad, folder)

'Auschecken
If file.IsLocked = False Then
iRelease = Part.ForceReleaseLocks
If iRelease = 1 Then
file.LockFile folder.ID, 0
ElseIf iRelease = 0 Then
MsgBox "Unable to check out the file " & file.Name, vbOKOnly, "Error!"
End If
End If

'Dateityp bestimmen
If LCase(Dateipfad) Like "*sldprt" Then
vTyp = 1
Else
vTyp = 2
End If

'Öffnen
Set swApp = Application.SldWorks

Set Part = swApp.OpenDoc6(Dateipfad, vTyp, 1, "", longstatus, longwarnings)

'aktualisieren
retval = Part.ForceRebuild3(False)

'Speichern
Part.Save

'Schließen
swApp.CloseDoc Part.GetTitle

'Einchecken
file.UnlockFile EdmUnlock_OverwriteLatestVersion, "Automatisches Update"

End Sub

---

[Diese Nachricht wurde von CAD-Maler am 15. Jun. 2020 editiert.]

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

---

Danke schön für die Antwort

------------------
Mutaz Yunan

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

---

Als ich Ihr Code gelesen habe, habe ich es einbisschen geändert und verwendet, damals ist es super gelaufen.

jetzt zeigt mir es einen Fehler beim Kompilieren und makiert diesem Satzt

Dim vault As EdmVault5

und schreibt Benutzerdefinierte Typ nicht definiert. Obwohl ich nichts geändert habe.

     

------------------
Mutaz Yunan

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

---

Hallo Mutaz,

wahrscheinlich sind die Verweise auf die DLL verloren gegangen. Schaue
mal bitte nach, ob du die EPDM.Interop.epdm.dll eingebunden hast.

------------------
==========
Gruß
Andreas
==========

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

---

Ach du meine Güte, wie bist du darauf gekommen, das Häckchen von PDMWorks Enterprise ist irgendwie verschwunden.

Vielen Dank
     

------------------
Mutaz Yunan

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

---

Hallo,

ist hierfür nicht eigentlich das "SOLIDWORKS PDM Dateiversion-Aktualisierungswerkzeug" gedacht?

Gruß
Bernd

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

Staatlich anerkannte Deutschniete  

[Diese Nachricht wurde von bk.sc am 15. Jul. 2020 editiert.]

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