Юмор о CAD/CAM и не только
Нельзя же быть все время серьезным!
207 тем в этом разделе
-
- 7,4k ответов
- 916k просмотра
-
- 5,6k ответов
- 645,5k просмотров
-
- 3k ответов
- 451,4k просмотра
-
- 2,2k ответов
- 256,2k просмотра
-
- 1,3k ответов
- 223,2k просмотров
-
- 2,8k ответов
- 332,9k просмотров
-
- 902 ответа
- 93,8k просмотров
-
- 823 ответа
- 141,7k просмотров
-
- 404 ответа
- 74,3k просмотров
-
- 228 ответов
- 57,5k просмотр
-
- 205 ответов
- 25,1k просмотров
-
- 190 ответов
- 48,4k просмотров
-
- 184 ответа
- 38,6k просмотр
-
- 169 ответов
- 19k просмотров
-
- 132 ответа
- 24,7k просмотра
-
- 88 ответов
- 9,8k просмотра
-
Обман зрения 1 2 3 4
- 75 ответов
- 23,3k просмотров
-
- 65 ответов
- 23,4k просмотра
-
- 59 ответов
- 9,7k просмотров
-
- 50 ответов
- 19,2k просмотров
-
- 49 ответов
- 7,9k просмотров
-
- 44 ответа
- 9,5k просмотра
-
- 44 ответа
- 8,4k просмотров
-
- 44 ответа
- 11k просмотра
-
- 44 ответа
- 12,1k просмотров
-
- 42 ответа
- 18,6k просмотров
-
- 38 ответов
- 14,2k просмотра
-
- 35 ответов
- 6,1k просмотров
-
- 30 ответов
- 9,6k просмотра
-
- 30 ответов
- 6,6k просмотров
-
- 29 ответов
- 21k просмотров
-
- 28 ответов
- 5,7k просмотров
-
- 24 ответа
- 6,6k просмотра
-
- 24 ответа
- 8,8k просмотров
-
- 24 ответа
- 3k просмотра
-
- 23 ответа
- 9,6k просмотров
-
- 21 ответ
- 3,7k просмотров
-
- 21 ответ
- 10,5k просмотров
-
- 21 ответ
- 5k просмотров
-
- 20 ответов
- 6,9k просмотров
-
- 18 ответов
- 4,7k просмотров
-
- 18 ответов
- 5,9k просмотров
-
- 17 ответов
- 5,5k просмотров
-
- 17 ответов
- 3,8k просмотров
-
- 15 ответов
- 3,6k просмотра
-
- 15 ответов
- 6,2k просмотров
-
- 14 ответов
- 4,1k просмотра
-
- 14 ответов
- 4,5k просмотров
-
- 13 ответов
- 5,2k просмотров
-
- 13 ответов
- 3,6k просмотров
-
Сейчас на странице 0 пользователей
Нет пользователей, просматривающих эту страницу.
-
Сообщения
-
-
Автор: Killerchik · Опубликовано:
Возможно он поможет с восстановлением оболочки и пароль сбросится. -
Автор: sloter · Опубликовано:
) В К21, к сожалению, не могу посмотреть - только вчера снёс и заменил на К22 -
Автор: Guhl · Опубликовано:
А мне пытались доказать, что на современных станках концевики ни к чему. А оказывается иногда и они нужны -
Автор: Артур52 · Опубликовано:
Доброго времени суток, уважаемые форумчане! Кто знает как можно посмотреть отработанное время одной программы? Я пробовал в конце управляющего файла писать MSG("TIME: "<<$AC_CYCLE_TIME<<), но этот параметр возвращал значение 0. -
Автор: gudstartup · Опубликовано:
вон оно как !! тогда я ошибочно написал про мониторинг покоя если было задание возможно потеря управляемости двигателя из-за рассинхронизации ротора может 0 метка шалит -
Автор: andrey2147 · Опубликовано:
Оператор запустил программу, должен к детали вперёд поехать а поехал в сторону дверки инструмента, она была закрыта ( должен был лимит программный сработать ) не сработал - промял железо. -
Автор: gudstartup · Опубликовано:
а чего производитель знает пароль который кто-то поменял? с ним запускается программа? -
Автор: gudstartup · Опубликовано:
написано сам поехал - значит до того как сам поехал движения не было... иначе надо было написать не туда приехал -
Автор: OLegiKK · Опубликовано:
День добрый. Подскажите какой код нужно добавить в макрос, чтобы он не вносил расширения файлов в обозначение и наименование? 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
-