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

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

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




  • Сообщения

    • gudstartup
    • mactepnew
      Вот я тоже так думал, пока не столкнулся с обратным) Как еще столкнусь, пришлю скриншот. Хаос еще в том, что порядок в дереве построения весьма условный. операция, которая стоит перед групой, имеет бОльший timestamp(пардон, не знаю как это в переводе), чем эта группа, и выполняется позже. При этом все операции в группе имеют timestamp на пару сотен меньше и выполняются раньше, чем две группы, стоящие перед ней. Логика?  Если в эскизе все элементы определены, то можно поставить еще один размер (хочешь переопределить эскиз - да пожалста!), изменить его - и NX самостоятельно выберет, какой размер или ограничение отпустить и весь эскиз летит к чертям. Это ли не хаос?   Назовете хоть один CAD, которым можно пользоваться так? Любой из встреченных мной имеет много неочевидных нюансов, которые конечно не проявляются при выполнении университетского или базового курса. В Creo я на протяжении 5 лет находил всё новые фишки, которые не прописаны в документации. Огромная благодарность Ruslan за пояснения тонкостей. Даже Компас и Solidworks, которые считаются самыми дружественными, оказалось непросто обуздать, когда проходил собеседования и делал тестовые. А ведь университетский курс знал на отлично!   Возвращаясь к NX - вот сегодняшний пример. Утром деталь была оранжевая, единая. Изменил пару уклонов и толщин, стала желтая с элементами оранжевого и частично твердотельной, частично листовой. Я даже не знаю, как сформулировать вопрос в поддержку. 
    • Mikhail_Podgornyj
      Добрый день, кто может поделиться SKF Bearing V1.6 (ANSYS App)? Заранее благодарен!
    • kkk
      Короче, как сделать автоматом не нашел. Раскрасил нужные грани нужными цветами. Затем на вкладке с цветом модели можно выбирать нужный цвет, тогда в модели выбираются грани, покрашенные этим цветом. Можно еще сохранить выбор этих граней, но смысла не вижу, т.к. все легко выбирается по цвету. Затем либо в инструменте Измерить смотрим площадь и как-то ее используем, либо можно макросом (что выкладывал Kir95 ) внести площадь в свойства (на вкладку Конфигурации). Можно еще внести выбранные грани в датчики, но как использовать их в свойствах не нашел.    Макрос прикрепляю.     Площадь выбранных граней в свойства.swp
    • IgnatvKudrin
      Для нашего производства требуются постоянно инструментальные пружины для штампов. Сейчас заказы обрабатываются довольно долго - до 2-х месяцев. А у нас сроки на штампы 1-2 месяца с испытанием, доработкой и т.п. Хотелось бы найти поставщика, у которого уже есть склад с данными пружинами или кто может доставить за 1 месяц.   Пружины стандартные по ISO, но на всякий случай приложил каталог. Вот список пружин, которые нужны очень срочно:   LR 32 x 44 - 1 шт. LR 25 x 51 - 2 шт. LB 63 x 89 - 7 шт. LB 32 x 102 - 10 шт. LB 32 x 89 - 20 шт. LB 32 x 76 - 12 шт. LB 32 x 51 - 6 шт. LB 25 x 127 - 9 шт.   Готов выслушать все предложения. Возможно даже есть те, кто сможет изготовить подобные пружины с такими же параметрами. 20231101.pdf
    • bubblyk
      Знатоки форума, подскажите, как смоделировать простую (на первый взгляд) задачу термомеханики в упругой постановке.   Есть брусок правильный формы ака кирпич, в котором генерируется НЕРАВНОМЕРНОЕ удельное тепловыделение (HGEN). Задняя и передняя поверхности конвективно охлаждаются с известными (но различными) коэффициентами теплоотдачи и температурами жидкости/газа. Свойства кирпича (теплофизика + механика) принимаются зависящими от температуры. Постановка - стационарная Собственно вопрос : как грамотно смоделировать температурное поле в кирпиче с учетом температурного расширения?   Исходный код приложил.     Надеюсь на коллективный разум и опыт! EPTH2D.mac p.s.   Если есть опыт решения этой задачи в Ansys WB, тоже можно сюда приложить командные вставки.
    • OutXL
      Это было давно использовал NC-Link  и данную инструкцию. The Maho.docx
    • Mikhail_Podgornyj
      Добрый день, кто может поделиться SKF Bearing V1.6 (ANSYS App)? Заранее благодарен!
    • alexqwq10
      В данных корпусах ничего лишнего быть не должно. Максимум шпильки заземления, в количестве предусмотренном для конкретного корпуса. Рассматривал очень много подобных корпусов разных производителей и данная проблема актуальна для подавляющего большинства.
    • MFS
      Коллеги, приветствую, нужно штамповать на горячую из алюминиевого сплава (АК6 или около того) заготовки размером 280*180*12. Подскажите, пожалуйста, параметры пресса для такой заготовки - размеры, усилия. А есл дадите пример такой марки и модели, более менее подходящей для этой работы (нашего или импортного), то будет и еще лучше. Заранее спасибо!
×
×
  • Создать...