3DEXPERIENCE Transition Görevi ile bir makro çalıştırmak için:
- 3DEXPERIENCE Transition görevinde makroyu çalıştırmak istediğiniz dosyaları seçin.
- İleri'ye tıklayın.
- Seçenekler iletişim kutusunda, Özel Eylemler altında Makroyu yürüt: öğesini seçin.
- SOLIDWORKS makrosuna gözatın (.swp).
- Finish öğesine tıklayın.
Makro, Görev Zamanlayıcı'da görev için ayarladığınız başlıkla birlikte görünür.
Örnek SOLIDWORKS Makrosu
Bu işlevi test etmek için aşağıdaki metni bir SOLIDWORKS makrosuna (.swp) yapıştırabilirsiniz.
Bu örnek makro, görev dosyaları listesindeki herhangi bir parça, montaj veya teknik resme "Hello World" değeriyle "Hello" adlı bir özellik ekler.
- Parçalar ve montajlar için etkin konfigürasyonlara, konfigürasyona özel bir özellik ekler.
- Teknik resimler konfigürasyon içermediğinden, teknik resimler için bir özel özellik ekler.
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