| |
| Gut zu wissen: Hilfreiche Tipps und Tricks aus der Praxis prägnant, und auf den Punkt gebracht für SOLIDWORKS |
| |
| Konstruktionsleiter Forum, eine Veranstaltung am 17.10.2024
|
Autor
|
Thema: Kann man Mit Macro ein Teil ein- und auschecken? (2117 / mal gelesen)
|
Mutaz Yunan Mitglied Konstrukteur
Beiträge: 26 Registriert: 07.06.2017
|
erstellt am: 15. Jun. 2020 14:37 <-- editieren / zitieren --> Unities abgeben:
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 |
swx-cad-nutzer Mitglied Konstr
Beiträge: 411 Registriert: 15.06.2011 SWX 2023 SP 4.0 64 bit
|
erstellt am: 15. Jun. 2020 15:21 <-- editieren / zitieren --> Unities abgeben: Nur für Mutaz Yunan
|
Mutaz Yunan Mitglied Konstrukteur
Beiträge: 26 Registriert: 07.06.2017
|
erstellt am: 15. Jun. 2020 15:26 <-- editieren / zitieren --> Unities abgeben:
|
CAD-Maler Mitglied Konstrukteur / CAD-Admin / Mädchen für alles
Beiträge: 727 Registriert: 17.01.2007 SWX 2023 SP5 Draftsight 2023 Win 11 Enterprise Intel i7-13700 2.10 GHz 64GB RAM Nvidia RTX A2000 12GB SWx EPDM AP+ CSWE 2018
|
erstellt am: 15. Jun. 2020 15:30 <-- editieren / zitieren --> Unities abgeben: Nur für Mutaz Yunan
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 |
Mutaz Yunan Mitglied Konstrukteur
Beiträge: 26 Registriert: 07.06.2017
|
erstellt am: 19. Jun. 2020 06:48 <-- editieren / zitieren --> Unities abgeben:
|
Mutaz Yunan Mitglied Konstrukteur
Beiträge: 26 Registriert: 07.06.2017
|
erstellt am: 14. Jul. 2020 15:01 <-- editieren / zitieren --> Unities abgeben:
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 |
ad_man Mitglied freiberuflicher Entwicklungsing. (Fahrzeugtechnik, CSWP, CPPA))
Beiträge: 1384 Registriert: 20.12.2003 SolidWorks 2023 SP5 mit Enterprise PDM , Windows 11, Dell Precision 3660, i7-12700K, 96 GB DDR-Ram, Quadro RTX A4000
|
erstellt am: 14. Jul. 2020 17:35 <-- editieren / zitieren --> Unities abgeben: Nur für Mutaz Yunan
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 |
Mutaz Yunan Mitglied Konstrukteur
Beiträge: 26 Registriert: 07.06.2017
|
erstellt am: 15. Jul. 2020 08:55 <-- editieren / zitieren --> Unities abgeben:
|
bk.sc Ehrenmitglied V.I.P. h.c. Konstrukteur Sondermaschinenbau
Beiträge: 2795 Registriert: 18.07.2012 -Solid Works 2019 SP5 -Pro Engineer WF 3
|
erstellt am: 15. Jul. 2020 13:11 <-- editieren / zitieren --> Unities abgeben: Nur für Mutaz Yunan
|