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

Макросы для ESPRIT


NickEL1000

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



UnPinned posts

Собственно сейчас интересует как автоматом переименовать операции в вид:

ID инструмента - осевой припуск-радиальный припуск-обороты шпинделя-подача Z-подачаXY

получилось пока только впихнуть подачи

 

Ссылка на сообщение
Поделиться на других сайтах
Алексей из Курска
4 часа назад, NickEL1000 сказал:

Собственно сейчас интересует как автоматом переименовать операции в вид:

ID инструмента - осевой припуск-радиальный припуск-обороты шпинделя-подача Z-подачаXY

получилось пока только впихнуть подачи

 

1. Зачем?

2. Выложите код, попробую доработать.

Ссылка на сообщение
Поделиться на других сайтах
14.09.2021 в 20:14, Алексей из Курска сказал:

1. Зачем?

Чтобы можно было в один клик отследить режимы резания на всей детали, когда очень много операции, даже через окно свойств, быстро проверить режимы по всем операциям очень трудоёмко. 

14.09.2021 в 20:14, Алексей из Курска сказал:

2. Выложите код, попробую доработать.

Код еще очень кривоват, т.к. VBA осваивается с нуля.

 

ESPRIT очень многие действия НЕ ПИШЕТ в макросы, либо самопроизвольно прерывает запись в VBA.

Макросы работают только в одном окне, при открытии второй копии ESPRIT - не работают... 

 

Ссылка на сообщение
Поделиться на других сайтах
Алексей из Курска
6 часов назад, NickEL1000 сказал:

Чтобы можно было в один клик отследить режимы резания на всей детали, когда очень много операции, даже через окно свойств, быстро проверить режимы по всем операциям очень трудоёмко. 

Код еще очень кривоват, т.к. VBA осваивается с нуля.

 

ESPRIT очень многие действия НЕ ПИШЕТ в макросы, либо самопроизвольно прерывает запись в VBA.

Макросы работают только в одном окне, при открытии второй копии ESPRIT - не работают... 

 

Если в кратце, то от кода ниже можно плясать

 

Sub OpRename()

    Dim Op As Esprit.Operation
    Dim OpTech As EspritTechnology.Technology

    Dim ToolID As String
    Dim StockZ As Double
    Dim StockXY As Double
    Dim FeedZ As Double
    Dim FeedXY As Double
    
    
    For i = 1 To Document.Operations.Count
    
        Set Op = Document.Operations.Item(i)
        Set OpTech = Op.Technology
        
        Select Case OpTech.TechnologyType
        
            'Описываем ниже все типы операций
            'Типы операций см. справку по API
            
            Case espTechMillContour1
                Dim CTR1 As EspritTechnology.TechMillContour1
                Set CTR1 = Op.Technology
                ToolID = CTR1.ToolID
                StockZ = CTR1.StockAllowanceFloors 'Со свойствами припусков надо отдельно экспериментировать и пробовать
                StockXY = CTR1.StockAllowance
                FeedZ = CTR1.ZFeedratePM
                FeedXY = CTR1.XYFeedratePM
                Op.Name = ToolID & "-" & StockZ & "-" & StockXY & "-" & FeedZ & "-" & FeedXY
                
            Case espTechMillPocket2
                Dim PKT2 As EspritTechnology.TechMillPocket2
                Set PKT2 = Op.Technology
                ToolID = PKT2.ToolID
                StockZ = PKT2.StockAllowanceFloors 'В карманах есть разные обработки, поэтому с подачами и припусками
                StockXY = PKT2.StockAllowanceWalls 'надо пробовать разные варианты
                FeedZ = PKT2.ZFeedratePM
                FeedXY = PKT2.XYFeedratePM
                Op.Name = ToolID & "-" & StockZ & "-" & StockXY & "-" & FeedZ & "-" & FeedXY
                
        End Select
        
        'Код ниже можно раскомментировать, если описать выше все типы операций
        'Аналогичный код выше тогда можно будет удалить
        
        'Op.Name = ToolID & "-" & StockZ & "-" & StockXY & "-" & FeedZ & "-" & FeedXY
        
    Next

End Sub

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

Как через макрос задать нужный цвет и толщину линии?

 

Стандартный путь:

Инструменты -> Опции... -> Атрибуты -> Сгруппированные объекты -> тип линии - 3Dмодель, Толщина линии - Тонкий, Цвет - синий.

 

запись макроса тут не работает

Ссылка на сообщение
Поделиться на других сайтах
Алексей из Курска
2 часа назад, NickEL1000 сказал:

Как через макрос задать нужный цвет и толщину линии?

 

Стандартный путь:

Инструменты -> Опции... -> Атрибуты -> Сгруппированные объекты -> тип линии - 3Dмодель, Толщина линии - Тонкий, Цвет - синий.

 

запись макроса тут не работает

В справке по API есть пример FAQ: Highlight

Ссылка на сообщение
Поделиться на других сайтах
20.09.2021 в 13:21, Алексей из Курска сказал:

В справке по API есть пример FAQ: Highlight

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

Ссылка на сообщение
Поделиться на других сайтах
  • 2 недели спустя...
Алексей из Курска

Небольшой простой менеджер оснастки. Упрощает работу с зажимными приспособлениями.

SimpleFixtureManager.zip

Ссылка на сообщение
Поделиться на других сайтах
  • 6 месяцев спустя...

Есть ли макрос или команда для сворачивания всех частей дерева Элементов до Рабочих Координат?

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

@NickEL1000 макрос который нажимает вместо тебя кнопку свернуть\развернуть?

Так то если щёлкнуть в дереве элементов выбрать все, то разворачивает

Изменено пользователем maxx2000
Ссылка на сообщение
Поделиться на других сайтах

 

17 минут назад, maxx2000 сказал:

@NickEL1000 макрос который нажимает вместо тебя кнопку свернуть\развернуть?

Так то если щёлкнуть в дереве элементов выбрать все, то разворачивает

да, именно, нужен который сворачивает все элементы дерева, вместе с входящими подэлементами, кроме рабочих координат.

через запись макросов не пишет сие действо

 

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

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

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

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

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

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

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

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

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

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

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




  • Сообщения

    • lem_on
      ну с дуру известно что сломать можно.
    • Viktor2004
      руку привязки так сломать легко
    • lem_on
      По моему вполне логично если станок вывалится в ошибку если рука не доехала до места. У меня так же если кулачки или деталь на пути, просто пихаеш ее до места и станок опять активен. Но нынешние пановья даже не могут написать модель станка.
    • Viktor2004
      Я согласен что скорее всего проблема механическая Но если логика прописана криво и возможно не предусмотрела остановку в промежуточном состоянии, разве не логично будет попробовать принудительно подав напряжение дернуть эту руку вверх-вниз? Возможно то что туда попало выпадет  
    • Guhl
      Если оставить за скобками вопрото том, что до м19 работает нормально, а после нет, то вы не считали сколько у него реально импульсов на оборот? с помощью стороннего плк, например  А если ориентацию м5 снимать, а не м20?
    • lem_on
      Что это за станок такой в котором сразу ладер ковырять надо, даже не смотря на возможность механической проблемы? Или профдеформация?
    • Viktor2004
      не сразу я понял в чем вопрос. Долго соображал что такое режим управления скоростью. При завершении ориентации PMC снимает сигнал G70.6 ? И если он после снятия сигнала продолжает удерживать шпиндель, при каких условиях эта ориентация все же снимается? После нажатия аварийного грибка или еще как?
    • Viktor2004
      Ладдер пришлите. Будем принудительно пробовать поднимать и опускать
    • streamdown
      Коллеги приветствую! IPS 8. Подскажите пожалуйста, кто какое серверное железо использует? Интересуют параметры при одновременной работе, ну например, 400 пользователей онлайн
    • gudstartup
      так он так и позиционируется по m19 pmc выдает g70.6 а чпу отвечает f45.7 но ориентацию и смещение в 4077 он отрабатывает нормально шпиндель встает ровно и смена происходит хорошо. вопрос почему после ввода команды управления скоростью он все еще продолжает контролировать число импульсов между нуль метками хотя в принципе уже должен отменить позиционный контроль и просто считать обороты по 0 метке как он это делает без М19? это все понятно но почему оно продолжает проверять это после завершения ориентации мне непонятно
×
×
  • Создать...