Jump to content

Макросы для ESPRIT


NickEL1000

Recommended Posts



UnPinned posts
NickEL1000

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

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

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

 

Link to post
Share on other sites
Алексей из Курска
4 часа назад, NickEL1000 сказал:

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

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

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

 

1. Зачем?

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

Link to post
Share on other sites
NickEL1000
14.09.2021 в 20:14, Алексей из Курска сказал:

1. Зачем?

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

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

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

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

 

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

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

 

Link to post
Share on other sites
Алексей из Курска
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

Link to post
Share on other sites
NickEL1000

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

 

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

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

 

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

Link to post
Share on other sites
Алексей из Курска
2 часа назад, NickEL1000 сказал:

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

 

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

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

 

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

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

Link to post
Share on other sites
20.09.2021 в 13:21, Алексей из Курска сказал:

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

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

Link to post
Share on other sites

Join the conversation

You can post now and register later. If you have an account, sign in now to post with your account.
Note: Your post will require moderator approval before it will be visible.

Guest
Reply to this topic...

×   Pasted as rich text.   Paste as plain text instead

  Only 75 emoji are allowed.

×   Your link has been automatically embedded.   Display as a link instead

×   Your previous content has been restored.   Clear editor

×   You cannot paste images directly. Upload or insert images from URL.

  • Recently Browsing   0 members

    No registered users viewing this page.



×
×
  • Create New...