Макросы в Power Mill

[mannul 353]

@Павел1 Чего вы хотите этим добиться?

[scorpion1007 60]

13 часов назад, Павел1 сказал:

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

У инструмента заданы режимы резания в его параметрах. Необходимо чтобы у траекторий, в которых есть имя "Correction", скорость шпинделя прибавлялась на 1 от скорости шпинделя инструмента. Необходимо, чтобы скорость шпинделя бралась от инструмента, который привязан к данной траектории. Понимаю, что надо использовать цикл внутри цикла, но не могу что-то реализовать данный момент. Результат чего я хочу добиться указан на картинке. Макрос и проект для примера прилагаю.

проект.rar 126 \u041a\u0431 · 1 скачивание

Создаешь переменную счетчик. Пробегаешься по папке траекторий  циклом foreach. Если toolpatch.name  содержит  Correction активируешь траекторию. Получаешь значение toolpath.SpindleSpeed.Value. Прибавляешь счетчик к этом значению, устанавливаешь новую скорость, пересчитываешь траекторию, счетчик увеличиваешь на единицу

[Павел1 17]

9 часов назад, scorpion1007 сказал:

Создаешь переменную счетчик. Пробегаешься по папке траекторий  циклом foreach. Если toolpatch.name  содержит  Correction активируешь траекторию. Получаешь значение toolpath.SpindleSpeed.Value. Прибавляешь счетчик к этом значению, устанавливаешь новую скорость, пересчитываешь траекторию, счетчик увеличиваешь на единицу

Спасибо за помощь. Вот наваял макрос по вашей схемке

REAL chet = 1

FOREACH tp IN folder('Toolpath') {
IF position(tp.Name, "Correction") >= 0 { 
ACTIVATE TOOLPATH $tp.Name
EDIT DATAFROMTOOL ;
RESET TOOLPATH FEEDRATE
REAL nmb = tp.SpindleSpeed.Value + $chet
$tp.SpindleSpeed.Value = nmb
$chet = chet + 1
}
}

Вычисления данного макроса меня устраивают, но в идеале, хотелось бы чтобы скорость шпинделя прибавлялась +1 после каждого "нового" инструмента. Т.е. у фрезы 16R0.5 стандартный режим 3000 об., а траектории "Correction" с этим инструментом были бы 3001 об, 3002 об, 3003 об. и т.д.; у фрезы 6 стандартный режим 4500 об., а траектории "Correction" с этим инструментом были бы 4501 об, 4502 об, 4503 об. и т.д. Данный макрос работает немного по другому. Но это уже совсем другая история. Попробую еще покумекать над идеальным вариантом. А так спасибо за направление.

[scorpion1007 60]

2 часа назад, Павел1 сказал:

Спасибо за помощь. Вот наваял макрос по вашей схемке

REAL chet = 1

FOREACH tp IN folder('Toolpath') {
IF position(tp.Name, "Correction") >= 0 { 
ACTIVATE TOOLPATH $tp.Name
EDIT DATAFROMTOOL ;
RESET TOOLPATH FEEDRATE
REAL nmb = tp.SpindleSpeed.Value + $chet
$tp.SpindleSpeed.Value = nmb
$chet = chet + 1
}
}

Вычисления данного макроса меня устраивают, но в идеале, хотелось бы чтобы скорость шпинделя прибавлялась +1 после каждого "нового" инструмента. Т.е. у фрезы 16R0.5 стандартный режим 3000 об., а траектории "Correction" с этим инструментом были бы 3001 об, 3002 об, 3003 об. и т.д.; у фрезы 6 стандартный режим 4500 об., а траектории "Correction" с этим инструментом были бы 4501 об, 4502 об, 4503 об. и т.д. Данный макрос работает немного по другому. Но это уже совсем другая история. Попробую еще покумекать над идеальным вариантом. А так спасибо за направление.

тогда вариант такой. Пробегаешься циклом по инструментам ,Создаешь словарь dictionary , где в качестве ключа вставляешь имя инструмента, а в значение ставишь счетчик по каждому инструменту( ну или либо обороты шпинделя) . 

Потом используешь вышеприведенный макрос. По имени инструменту( он же ключ словаря) вызываешь значение счетчика, правишь траекторию, значение value словаря увеличиваешь на единицу

Насколько я помню словарь не очень любит некоторые символы, такие как точки, слэши и прочее.

И вообще использование точек в именах инструмента и траекториях, нцэшках( везде вообщем) плохая идея, -потом вылезет. Лучше сделать replace  на запятую

[Konstantin_VP 49]

@Павел1 

Вариант без активации каждой траектории. Явный минус: Значения скорости резания и подачи на зуб берутся из вкладки режимы резания выбранного инструмента. Минус в несоответствии подачи на зуб и  рабочей подачи. В проекте в 16R0.5 подача на зуб 0,00625 (соответствует 37,0 рабочей подачи),  а рабочая подача 600 (соответствует 0,1 подачи на зуб) 

Скрытый текст

int $K = 1
Real $Tool = 0

FOREACH tp IN folder('Toolpath') {

IF position(tp.Name, "Correction") >= 0 {

EDIT DATAFROMTOOL $tp.Tool.Name

int $spindlespeed = ($tp.Tool.CuttingSpeed.finishing.general * 1000) / (PI*$tp.Tool.Diameter)
$tp.spindlespeed.Value  = $spindlespeed

int $Cutting = $tp.Tool.FeedPerTooth.finishing.general * $tp.spindlespeed.Value * $tp.Tool.NumberOfFlutes
$tp.FeedRate.Cutting.Value = $Cutting

If $Tool == 0 {

$Tool = $tp.Tool.Diameter

}

If $Tool != $tp.Tool.Diameter {

$Tool = $tp.Tool.Diameter
$K = 1

}

$tp.SpindleSpeed.Value = $tp.SpindleSpeed.Value + $K
$K = $K+1

}

}

RESET LOCALVARS // очистить временные переменные

 

 

Скрытый текст

 

Изменено 30 апреля 2021 пользователем Konstantin_VP
добавил скриншот

[Павел1 17]

30.04.2021 в 14:49, Konstantin_VP сказал:

@Павел1 

Вариант без активации каждой траектории. Явный минус: Значения скорости резания и подачи на зуб берутся из вкладки режимы резания выбранного инструмента. Минус в несоответствии подачи на зуб и  рабочей подачи. В проекте в 16R0.5 подача на зуб 0,00625 (соответствует 37,0 рабочей подачи),  а рабочая подача 600 (соответствует 0,1 подачи на зуб) 

  Показать содержимое

int $K = 1
Real $Tool = 0

FOREACH tp IN folder('Toolpath') {

IF position(tp.Name, "Correction") >= 0 {

EDIT DATAFROMTOOL $tp.Tool.Name

int $spindlespeed = ($tp.Tool.CuttingSpeed.finishing.general * 1000) / (PI*$tp.Tool.Diameter)
$tp.spindlespeed.Value  = $spindlespeed

int $Cutting = $tp.Tool.FeedPerTooth.finishing.general * $tp.spindlespeed.Value * $tp.Tool.NumberOfFlutes
$tp.FeedRate.Cutting.Value = $Cutting

If $Tool == 0 {

$Tool = $tp.Tool.Diameter

}

If $Tool != $tp.Tool.Diameter {

$Tool = $tp.Tool.Diameter
$K = 1

}

$tp.SpindleSpeed.Value = $tp.SpindleSpeed.Value + $K
$K = $K+1

}

}

RESET LOCALVARS // очистить временные переменные

 

 

  Показать содержимое

 

Спасибо огромное за помощь. Подкорректировал немного ваш макрос. По поводу, что "в проекте в 16R0.5 подача на зуб 0,00625" это значение меняется галочкой "Показать Ае и Fz в Диаметрах фрезы" (см. рис.1), у меня такая галка по умолчанию не стоит, наверно у вас она стоит по умолчанию, поэтому и выводится такая подача на зуб. Но при работе макроса все равно рабочая подача менялась на маленькое значение. Тогда я изменил две переменные в макросе (подчеркнуто красным в рис.2), чтобы значения брались непосредственно из свойств инструмента. И еще после того как данный макрос прогоняешь второй раз (повторно) то скорость шпинделя уже не совсем верно записывалась. Я счетчик "поднял" выше (указано на рис.2). Вот теперь меня прям устраивает данный макрос.

int $K = 1
Real $Tool = 0

FOREACH tp IN folder('Toolpath') {

IF position(tp.Name, "Correction") >= 0 {

EDIT DATAFROMTOOL $tp.Tool.Name

int $spindlespeed = ($tp.FeedRate.CuttingSpeed.Value * 1000) / (PI*$tp.Tool.Diameter)
$tp.spindlespeed.Value  = $spindlespeed

int $Cutting = $tp.FeedRate.FeedPerTooth.Value * $tp.spindlespeed.Value * $tp.Tool.NumberOfFlutes
$tp.FeedRate.Cutting.Value = $Cutting

If $Tool == 0 {

$Tool = $tp.Tool.Diameter

}

If $Tool != $tp.Tool.Diameter {

$Tool = $tp.Tool.Diameter
$K = 1

}

$K = $K+1
$tp.SpindleSpeed.Value = $tp.SpindleSpeed.Value + $K

}

}

RESET LOCALVARS // очистить временные переменные

 

[k.sema 3]

Доброго времени суток) Подскажите, можно ли с помощью выражения выводить на панель состояния активный инструмент? Т.е. нужно, чтобы при активации траектории там внизу, помимо радиуса и диметра, выводилось также название инструмента)

[Konstantin_VP 49]

@k.sema

$tool.identifier - ID инструмента

$tool.name - название инструмента

[oat 8]

Очень маленькое поле для выведения имени инструмента. У меня, например, название "гравер пятка 0,2 15градусов" ну никак не помещается. Кто как выходит из положения в таком случае?

[eksodus 270]

5 часов назад, oat сказал:

Очень маленькое поле для выведения имени инструмента.

варианта всего два:

1) сделать имя инструмента короче (и как он у вас в карту наладки помещается ?)

2) отредактировать файл ресурсов

 

[oat 8]

в карту наладки то запросто)))

за ответ благодарю. даже не знаю что такое файл рессурсов. так что будем резать имя

[eksodus 270]

51 минуту назад, oat сказал:

даже не знаю что такое файл рессурсо

находится здесь - C:\Program Files\Delcam\PowerMILL 20.0.10\sys\exec64\resource.dll

ну это для 2016 милла

[syncomp 18]

Всем привет. Хочу переименовывать траектории, чтобы в их названии присутствовал диаметр инструмента. Как это осуществить?

[syncomp 18]

Прошу прощения. Нашел сам. Не знал, что к папкам в дереве можно обращаться на прямую.

real diam =Toolpath.tool.diameter
Message info diam

Правда это действует на активную траекторию

[syncomp 18]

Вот весь макрос, который переименовывает траектории по имени инструмента  и нумерует по порядку. У нас на работе так принято, поэтому и решил написать макрос.

int a=1
FOREACH tp IN folder('Toolpath') {
string name=$tp.tool.name
string new='('+a+')'+name
//Message info new
RENAME TOOLPATH $tp.name $new
$a=a+1
}

Команда вывода сообщения использовал для отладки макроса

[oat 8]

Доброго дня!

Извиняюсь, что не в тему, но все же. А возможно ли в PowerShape на кнопку повесить выполнение определенного макроса??? Так и не смог это сделать

[sssdos 138]

Забытая команда
CREATE RULED_SURFACE

[syncomp 18]

Всем добрый вечер! У меня такой вопрос: можно ли автоматически подтверждать запросы от PowerMill при слиянии траекторий?

Создаю макрос, который автоматом соединяет траектории, перемещением одной на другую при нажатой клавише Ctrl.

Изменено 19 сентября 2021 пользователем syncomp

[Kinematik 162]

13 часов назад, syncomp сказал:

Всем добрый вечер! У меня такой вопрос: можно ли автоматически подтверждать запросы от PowerMill при слиянии траекторий?

Создаю макрос, который автоматом соединяет траектории, перемещением одной на другую при нажатой клавише Ctrl.

 

Уберите команду CONFIRM, чтобы не появлялось окно подтверждения:

EDIT TOOLPATH <toolpath1> APPEND CONFIRM <toolpath2>

[syncomp 18]

9 часов назад, Kinematik сказал:

Уберите команду CONFIRM, чтобы не появлялось окно подтверждения:

EDIT TOOLPATH <toolpath1> APPEND CONFIRM <toolpath2>

Огромное спасибо!

Есть еще вопрос...

Не могу получить значение подходов и переходов для вычисления новых значений и их записи. Как записывать знаю, а получить? Из SWLeadIn и SWLeadOut