Выполнение макроса с помощью задачи перехода 3DEXPERIENCE:
- В задаче перехода 3DEXPERIENCE выберите файлы для выполнения макроса. См. Создание задачи перехода 3DEXPERIENCE.
- Нажмите кнопку Далее.
- В диалоговом окне Параметры в разделе Пользовательские действия выберите Выполнить макрос:.
- Выполните поиск макроса SOLIDWORKS (.swp).
- Нажмите Готово.
Макрос появится в Task Scheduler с заголовком, заданным для задачи.
Пример макроса SOLIDWORKS
Чтобы проверить эту функцию, можно вставить следующий текст в макрос SOLIDWORKS (.swp).
Этот пример макроса добавляет свойство "Hello" со значением "Hello World" к любой детали, сборке или чертежу в списке файлов задач.
- Для деталей и сборок к активным конфигурациям добавляется свойство, относящееся к конфигурации.
- Для чертежей добавляется настраиваемое свойство, так как чертежи не содержат конфигураций.
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