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

РАСТАЧИВАНИЕ РЕЗЦОМ ПРОИЗВОЛЬНОГО ВЫЛЕТА(2С42-65)


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



НЕ УДАЕТСЯ ПОЛУЧИТЬ НА СТАНКЕ 2202ВМФ4 ВИНТОВУЮ ЛИНИЮ БОЛЬШЕ 1 ОБОРОТА

Примера, к сож. нет, может инструкция поможет

Винтовая интерполяция

При винтовой интерполяции осуществляется круговая интерполяция в плоскости XY с одновременной согласованной линейной интерполяцией по Z.

Винтовая интерполяция задаётся G функцией первой группы G12 или G13. G12 вызывает круговое движение по часовой стрелке. G13 против часовой стрелки.

Кадр, задающий винтовую интерполяцию, обязательно должен содержать:

номер кадра;

функцию G12 или G13;

функцию G17, если она не была задана ранее;

параметры дуги окружности под адресами I, J, X, Y, как для круговой интерполяции;

величину перемещения по оси Z (по G91) или координату конца винтовой линии по этой оси (по G90) под адресом Z;

шаг винтовой линии под адресом К, означающий перемещение по Z при прохождении полной окружности.

Кроме того, кадр может содержать:

подачу под адресом F;

функцию G90 или G91;

функцию из группы G53 – G59;

М – функции и частоту вращения шпинделя под адресом S.

При этом надо учитывать следующие ограничения: «К» не должно быть больше радиуса окружности и количество витков не должно превышать 500.

В управляющей программе перемещения по оси Z и по дуге окружности должно быть строго скоординированы. Например, для перемещения Z=80 мм и шага К=40 мм координаты конечной точки дуги окружности должны совпадать с начальными координатами; для перемещения Z=100 мм и шага К=40 мм конечная точка дуги должна быть сдвинута по отношению к начальной на 1800. В общем случае перемещение по Z равняется K(n+a/360)

где –n число полных витков винтовой линии;

a - угол между начальной и конечной точками дуги заданной окружности.

Функции G12 и G13 действуют до замены другими функциями первой группы.

При винтовой интерполяции круговое движение будет осуществляться по эквидистантному контуру, если ранее была задана функция G41 (G42)

Подача под адресом F задает скорость движения по окружности; скорость движения по оси Z вычисляется автоматически и равняется F*K/2PiR

где R – радиус окружности или ее эквидистанты.

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

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

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

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

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

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

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

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

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

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

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




  • Сообщения

    • realasd
      Здравствуйте. Нужен документ LR34-040-R2 " osp-p3000s/p300l руководство к обслуживанию". Поможете?  
    • Chuvak
      @nahaus Ок, сейчас проверю у себя @Chuvak  У Вас не объявлены переменные  fullPathFile и nameFileExtension
    • 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
      Потому что расчетная глубина резьбы не учитывает радиус скругления на резьбовой пластине. Поэтому на практике всегда глубже нужно делать резьбу, подгонять.
×
×
  • Создать...