Перейти к публикации

Нужен консультант в программировании токарно-фрезерного станка


Рекомендованные сообщения

Здравствуйте!

Некоторое время работал на 3-х и 5-ти координатных фрезерных станках. Сейчас поставили задачу написать программу для обработки детали на токарно-фрезерном станке с контр-шпинделем. Зная, сколько подводных камней есть на 5-ти координатке, боюсь браться за обработку на этом станке. Может у кого есть знакомые, кто имеет большой опыт в работе на этом оборудовании и кому интересно поделиться собственным опытом за вознаграждение.

Основные вопросы: как увязать фрезерный шпиндель с поворотом токарного шпинделя с контр-шпинделем, как располагать оси детали, какие команды забиваются в команды оператора. Дать основы токарной обработки. Как программировать траекторию, ориентацию резцов, как в визуализации получить вместо цилиндра шестигранник, к примеру. Работать буду на станке CTX gamma 1250. Стойка синумерик.

Связь по скайпу или так, как будет удобно человеку.

Сам работал на заводе, знаю, что много специалистов понятия не имеют о данном форуме. Если у Вас есть знакомый, кому будет интересно моё предложение, прошу поделитесь с ним. Предложения прошу писать в личку.

Писать в заказах не стал, т.к. боюсь, что поиск затянется на долго, т.к. интересует опыт программирования именно в NX. Если модераторы будут против, прошу, дайте теме повисеть дней пять, потом сносите её.

Ссылка на сообщение
Поделиться на других сайтах


Загляните для справки в сам NX, у меня тут:C:\Program Files\Siemens\NX 8.5\MACH\samples\nc_simulation_samples.

очень полезно, спасибо!
Ссылка на сообщение
Поделиться на других сайтах

Присоединяйтесь к обсуждению

Вы можете опубликовать сообщение сейчас, а зарегистрироваться позже. Если у вас есть аккаунт, войдите в него для написания от своего имени.
Примечание: вашему сообщению потребуется утверждение модератора, прежде чем оно станет доступным.

Гость
Ответить в тему...

×   Вставлено в виде отформатированного текста.   Вставить в виде обычного текста

  Разрешено не более 75 эмодзи.

×   Ваша ссылка была автоматически встроена.   Отобразить как ссылку

×   Ваш предыдущий контент был восстановлен.   Очистить редактор

×   Вы не можете вставить изображения напрямую. Загрузите или вставьте изображения по ссылке.

  • Сейчас на странице   0 пользователей

    Нет пользователей, просматривающих эту страницу.




  • Сообщения

    • realasd
      Здравствуйте. Нужен документ LR34-040-R2 " osp-p3000s/p300l руководство к обслуживанию". Поможете?  
    • Chuvak
      @nahaus Ок, сейчас проверю у себя  У Вас не объявлены переменные  fullPathFile и nameFileExtension Переменная  sheetProperties вообще лишняя, не используется, а тип данных имеет самый жористый)
    • clavr
      у вас для 3 и 4 мм указаны
    • nahaus
      Выскакивает ошибка  Она же выскакивает и без параметра в скобках.
    • Chuvak
      @nahaus  Потому что метод GetProperties2 возвращает массив свойств листа, состоящий из 8 переменных типа double: [ paperSize, templateIn, scale1, scale2, firstAngle, width, height, sameCustomProp ] Вам какие именно переменные из данного массива нужны:  paperSize, width или height ? Или все сразу. Тогда переделайте строку:   swApp.SendMsgToUser2 swSheet.GetProperties2, swMbWarning, swMbOk   на swApp.SendMsgToUser2 swSheet.GetProperties2(0), swMbWarning, swMbOk или   swApp.SendMsgToUser2 swSheet.GetProperties2(5), swMbWarning, swMbOk дальше примеры приводить не  буду, думаю поняли логику
    • hlibhlib
      Он на Гоблинском в Исходнике.
    • Kelny
      Модельку забыли положить.   И не указали версию программы и сервиспака.
    • nahaus
      Подскажите пожалуйста как получить размеры листа с помощью метода GetProperties2? Пытаюсь получить сообщение. Что не так в строке swApp.SendMsgToUser2 swSheet.GetProperties2, swMbWarning, swMbOk Dim swApp As SldWorks.SldWorks Dim swModel As SldWorks.ModelDoc2 Dim boolstatus As Boolean Dim longstatus As Long, longwarnings As Long Dim lErrors As Long Dim lWarnings As Long Dim swSheet As SldWorks.Sheet Dim swDrawing As SldWorks.DrawingDoc Dim sheetProperties As Variant Sub main() Set swApp = Application.SldWorks Set swModel = swApp.ActiveDoc fullPathFile = swModel.GetPathName ' swApp.SendMsgToUser2 fullPathFile, swMbWarning, swMbOk nameFileExtension = Mid(swModel.GetPathName, InStrRev(swModel.GetPathName, "\") + 1) ' swApp.SendMsgToUser2 nameFileExtension, swMbWarning, swMbOk nameFileWithoutExtension = Left(nameFileExtension, InStrRev(nameFileExtension, ".") - 1) ' swApp.SendMsgToUser2 nameFileWithoutExtension, swMbWarning, swMbOk Set swSheet = swModel.GetCurrentSheet ' swApp.SendMsgToUser2 swSheet.GetName, swMbWarning, swMbOk swApp.SendMsgToUser2 swSheet.GetProperties2, swMbWarning, swMbOk End Sub  
    • mannul
      Да, важна координата X. Если резьба с допуском, 6H допустим, лучше брать d1 из ГОСТа или просто из наружного диаметра резьбы вычесть две глубины, так меньше шанс провалить. А уже потом уменьшать X по 0,05 мм.
    • mannul
      Потому что расчетная глубина резьбы не учитывает радиус скругления на резьбовой пластине. Поэтому на практике всегда глубже нужно делать резьбу, подгонять.
×
×
  • Создать...