Сделай свою работу в Solidworks эффективнее
Тема создана для обмена, создания и поиска различных прикладных программ, макросов, аддонов к программе Solidworks.
(обсуждение других вопросов, не по тематике топика, прошу вести в соответствующих темах или создавать свои. С ув. streamdown)
Приветствую всех.
Для чего сделана эта тема я думаю уже многим объяснять не надо. Обновляю шапку (спасибо Plumber, а так же Kelny)
Option Explicit
Dim swApp As Object
Dim swModel As IModelDoc2
Dim swCustProp As CustomPropertyManager
Dim swModelDocExt As ModelDocExtension
Dim lRetVal As Long
'Переменные даты
Dim dtNow As Date 'сегодняшняя дата
Dim mydate As Date ' дата X
Sub main()
Debug.Print
Set swApp = Application.SldWorks
Set swModel = swApp.ActiveDoc
Set swModelDocExt = swModel.Extension
Set swCustProp = swModelDocExt.CustomPropertyManager("")
mydate = #9/23/2020# ' дата X
dtNow = Date 'сегодняшняя дата
Debug.Print "
