So führen Sie Makros mit der 3DEXPERIENCE Übergangsaufgabe aus:
- Wählen Sie in der 3DEXPERIENCE Übergangsaufgabe die Dateien aus, für die das Makro ausgeführt werden soll. Siehe Erstellen einer 3DEXPERIENCE Übergangsaufgabe.
- Klicken Sie auf Weiter.
- Wählen Sie im Dialogfeld Optionen unter Benutzerdefinierte Aktionen die Option Makro ausführen: aus.
- Suchen Sie nach einem SOLIDWORKS Makro (.swp).
- Klicken Sie auf Fertig stellen.
Das Makro wird im Taskplaner mit dem Namen angezeigt, den Sie für die Aufgabe festgelegt haben.
SOLIDWORKS Manage Beispiel
Um diese Funktion zu testen, können Sie den folgenden Text in ein SOLIDWORKS Makro (.swp) einfügen.
Mit diesem Beispielmakro wird eine Eigenschaft namens „Hallo“ mit dem Wert „Hallo Welt“ zu jedem Teil, jeder Baugruppe oder Zeichnung in der Liste der Aufgabendateien hinzugefügt.
- Bei Teilen und Baugruppen wird den aktiven Konfigurationen eine konfigurationsspezifische Eigenschaft hinzugefügt.
- Bei Zeichnungen wird eine benutzerdefinierte Eigenschaft hinzugefügt, da Zeichnungen keine Konfigurationen enthalten.
Dim swApp As SldWorks.SldWorks
Dim swModel As SldWorks.ModelDoc2
Dim config As SldWorks.Configuration
Dim cusPropMgr As SldWorks.CustomPropertyManager
Dim lRetVal As Long
Dim boolstatus As Boolean
Dim longstatus As Long, longwarnings As Long
Sub main()
Set swApp = Application.SldWorks
Set swModel = swApp.ActiveDoc
If swModel Is Nothing Then
' If no model is currently loaded, then exit
Exit Sub
End If
If (swModel.GetType <> swDocDRAWING) Then
' Add a Configuration Property named "Hello" to the active configuration for a Part or Assembly
Set config = swModel.GetActiveConfiguration
Set cusPropMgr = config.CustomPropertyManager
lRetVal = cusPropMgr.Add3("Hello",
swCustomInfoType_e.swCustomInfoText, "Hello World",
swCustomPropertyAddOption_e.swCustomPropertyDeleteAndAdd)
Else
' Add a Property named "Hello" for a Drawing
Set cusPropMgr = swModel.Extension.CustomPropertyManager("")
lRetVal = cusPropMgr.Add3("Hello",
swCustomInfoType_e.swCustomInfoText, "Hello World",
swCustomPropertyAddOption_e.swCustomPropertyDeleteAndAdd)
End If
End Sub