---

Hallo Forum,

wir arbeiten seit einigen Wochen mit Enterprise PDM. An der User- und Admin-Schulung habe ich teilgenommen und kenne mich zumindest mit den Basics ein wenig aus.

Jetzt zu meiner Aufgabe:
Ich möchte beim Statuswechsel von Dokumenten ein bereits vorhandenes SolidWorks-Makro starten.
Da würde mir zunächst der Workflow einfallen, in dem im Statusübergang ein Tasks ausgeführt werden kann.
Funktioniert zum Beispiel für die Konvertierung von Zeichnung als PDF etc. 

Lässt sich in einem Task ein SolidWorks-Makro starten? Und wenn, wie müsste die Programmierung aussehen?

Ich hoffe auf einige schnelle Antworten.
Gruß

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

---

Habe doch noch etwas gefunden.

Mit dem folgenden Code lässt sich ein Makro starten.
Dim boolstatus as boolean
boolstatus = swApp.RunMacro("C:\Makros\Makroname.swp", "Makroname1", "Main")

Gruß

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

---

Ich hab vor einiger Zeit ein SWX-Makro in ein Task-Skript umgesetzt. Dabei ruft der Task nicht das SWX-Makro auf, sondern ich habe den Makro-Code in das Task-Skript kopiert und angepasst. Das ist schon eine Weile her, so dass ich mich nicht an die Details erinnere, aber der Start weicht vom SWX-Makro ab, damit die Dateien korrekt aufgerufen werden.
So geht der Code los:

Sub main()
Const docFileName As String = "<Filepath>"
If Not LCase(Right(docFileName, 6)) = "sldprt" Then
    MsgBox "Das geht nur mit Einzelteilen", vbCritical, "Unzulässiger Dateityp"
    Exit Sub
End If
Set swApp = Application.SldWorks
Set part = swApp.OpenDoc6(docFileName,1, 1, "", nErrors, nWarnings)
Set part = swApp.ActiveDoc
Set swExtension = part.Extension
Set swFeatureManager = part.FeatureManager

Das Bugfixing von Task-Skripts ist nicht gerade komfortabel, ich habe Unmengen an Messageboxen eingebaut um zu sehen, wie weit der Code kommt. Die Dokumentation der Skriptsprache ist auch nicht berühmt. Der Service unseres Resellers hat mir hier weitergeholfen.
In einen Workflow hab ich diesen Task nicht eingesetzt, das sollte aber gehen, soweit ich mich erinnere.

Piet

------------------
Jeder nichttrivial gekämmte Igel hat mindestens einen Glatzpunkt.

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