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

Програмирование CNC 646 645


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

здравствуйте есть вопрос такой.

НЕпонятен медод програмированя поперечного автомотического цикла обработки.

НЕ понял как програмировать нарезания резьбы.

ОСтальное знаю СТанок 1740рф какойто

просто для себя охото знать эти функции и можно ли ешо выбирать кроме глубины резания за проход R ешо и количество чистовых проходов и сколько на чистовой оставить.

БУду рад если поможете в освоение.

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


А ещё если ест ьфункция сверления буду очень логадарен потомучто детали длинные и сверлин на сквозь очень надоедает забивать туда обратное движения))

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

Лет давдцать назад с ними работал, проблемм не было, пришлите на мыло описание циклов, постараюсь помочь.

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

продольное точение

g27g95

g0 g38 x(начальная точка) z s500 f0.3 r3 m3 m3 L1

в подпрограмме описываеться деталь он сам подбирает конец подпрограммы g39 x(больше начальной ) m22

поперечнная тоже самое в книге неаписано тока G28 и G29

тама какая то другая методика описывания детали так и не понял какая и не знаю как выбрать глубину резание в нем

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

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

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

а что предстовляет себя инструкция это то что написанов книжке про нее я ее читал читал так и не врубился)) смогу на работе потом с фоткать книжку это выложить сюда

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

Если не тяжело, сосканируйте в если есть "adobe acrobat pro" то прямо в нем. и положите на "fileshare.in.ua" Пришлите мне ссылку. Постараюсь вспомнить.

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

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

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

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

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

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

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

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

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

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

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




  • Сообщения

    • Chuvak
      @nahaus Ок, сейчас проверю у себя
    • 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
      Потому что расчетная глубина резьбы не учитывает радиус скругления на резьбовой пластине. Поэтому на практике всегда глубже нужно делать резьбу, подгонять.
    • Guhl
      У вас случайно не один привод на две оси стола, как это бывает у расточных станков? Инструкция имеется на станок? Там возможно описана процедура для этих двух осей. Про параметр  MD 1011 [Bit 10] читали?    
×
×
  • Создать...