Aby uruchomić makro za pomocą zadania przejścia na 3DEXPERIENCE:
- W zadaniu przejścia na 3DEXPERIENCE wybrać pliki, na których ma zostać uruchomione makro. Patrz Tworzenie zadania przejścia 3DEXPERIENCE.
- Kliknąć Dalej.
- W oknie dialogowym Opcje, w Akcjach niestandardowych, wybrać Uruchom makro:.
- Wyszukać makro SOLIDWORKS (.swp).
- Kliknąć Zakończ.
Makro pojawi się w Harmonogramie zadań z tytułem ustawionym dla zadania.
Przykładowe makro SOLIDWORKS
Aby przetestować tę funkcję, można wkleić następujący tekst do makra SOLIDWORKS (.swp).
To przykładowe makro dodaje właściwość o nazwie „Witaj” o wartości „Witaj, świecie” do dowolnej części, złożenia lub rysunku na liście plików zadań.
- W przypadku części i złożeń dodaje właściwość specyficzną dla konfiguracji do aktywnych konfiguracji.
- Dla rysunków dodaje dostosowaną właściwość, ponieważ rysunki nie zawierają konfiguracji.
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