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

Макросы для 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 пользователей

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




×
×
  • Создать...