Доброго времени суток, уважаемые форумчане! Кто знает как можно посмотреть отработанное время одной программы? Я пробовал в конце управляющего файла писать
MSG("TIME: "<<$AC_CYCLE_TIME<<), но этот параметр возвращал значение 0.
вон оно как !!
тогда я ошибочно написал про мониторинг покоя если было задание
возможно потеря управляемости двигателя из-за рассинхронизации ротора может 0 метка шалит
Оператор запустил программу, должен к детали вперёд поехать а поехал в сторону дверки инструмента, она была закрыта ( должен был лимит программный сработать ) не сработал - промял железо.
День добрый.
Подскажите какой код нужно добавить в макрос, чтобы он не вносил расширения файлов в обозначение и наименование?
Sub main()
Set swApp = Application.SldWorks
Set swModel = swApp.ActiveDoc
Set config = swModel.GetActiveConfiguration
Set cusPropMgr = config.CustomPropertyManager
Name = Right(swModel.GetTitle, Len(swModel.GetTitle) - InStrRev(swModel.GetTitle, "_"))
Designation = Left(swModel.GetTitle, InStrRev(swModel.GetTitle, "_") - 1)
' Если свойства с именем "Обозначение" и "Наименование" нужно создать заново
lRetVal = cusPropMgr.Add3("Обозначение", swCustomInfoType_e.swCustomInfoText, Designation, swCustomPropertyAddOption_e.swCustomPropertyDeleteAndAdd)
lRetVal = cusPropMgr.Add3("Наименование", swCustomInfoType_e.swCustomInfoText, Name, swCustomPropertyAddOption_e.swCustomPropertyDeleteAndAdd)
' Если свойства уже существуют в детали и нужно поменять их значение
'swModel.CustomInfo2("", "Обозначение") = Designation
'swModel.CustomInfo2("", "Наименование") = Name
'Перестроить, сохранить, закрыть
swModel.ForceRebuild3 (False)
swModel.Save3 swSaveAsOptions_Silent, nErrors, nWarnings
'swApp.CloseDoc swModel.GetTitle
End Sub
Рекомендованные сообщения