Макросы для ESPRIT

[NickEL1000 248]

Вопросы по макросам и обмен в этой теме

[NickEL1000 248]

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

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

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

 

[Алексей из Курска 12]

4 часа назад, NickEL1000 сказал:

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

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

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

 

1. Зачем?

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

[NickEL1000 248]

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

1. Зачем?

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

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

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

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

 

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

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

 

[Алексей из Курска 12]

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

[NickEL1000 248]

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

 

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

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

 

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

[Алексей из Курска 12]

2 часа назад, NickEL1000 сказал:

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

 

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

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

 

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

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

[NickEL1000 248]

20.09.2021 в 13:21, Алексей из Курска сказал:

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

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

[Алексей из Курска 12]

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

SimpleFixtureManager.zip

[NickEL1000 248]

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

[maxx2000 533]

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

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

Изменено 6 апреля 2022 пользователем maxx2000

[NickEL1000 248]

 

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

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

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

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

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