Макросы в Power Mill

[eksodus 270]

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

а что за макросы там будут ?

будет интересно посмотреть их

и когда это будет возможно ?

 

у меня вот, например, штук 15 макросов есть для работы

но по сути другим может пригодится штуки 2-3

я парочку уже выкладывал - один для зеркалирования проекта и второй для гравировки

а другие наврядли кому-то пригодятся

[NickEL1000 250]

простые макросы, упрощающие и ускоряющие дятлополобные действия до 1 клика:

-работа с проходами траектории (7макро)

-работа с перебегами (5макро)

-работа с врезанием 

-проверка зарезов/столкновений/расчет вылета(3макро)

-подгрузка инструмента с режимами и подачами, оправками (не база РМ)

-расчет траектории для кромочной фрезы на подчистку острых кромок корпусных деталей(4макро, с 2д корректором и без)

-схлопывание дерева РМ

-создание СК на выделенном фрагменте детали

-смена цветовой палитры для вывода NC на печать / для работы

 

сборка макро вшита в русифицированное меню пользователя(с описанием его установки), и проверена для работы с версиями от PM9 до РМ2016

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

Изменено 18 марта 2016 пользователем lnslns

[eksodus 270]

сборка макро вшита в русифицированное меню пользователя(с описанием его установки), и проверена для работы с версиями от PM9 до РМ2016

 

то есть - это будет сделано типа в виде дополнительного приложения ?

или встраивается непосредственно в сам повермилл ?

есть возможность посмотреть предварительный скриншот ?

свои макросы можно будет добавлять ?

 

PS: на каком языке программирования работают макросы в повермилле ?

C# ? C++ ?  или другое что-то ?

хочу всё-таки исправить неработающие макросы в моём переводе

[NickEL1000 250]

то есть - это будет сделано типа в виде дополнительного приложения ?

нет все штатными средствами РМ

 

или встраивается непосредственно в сам повермилл ?

но оно встраивается в меню

 

есть возможность посмотреть предварительный скриншот ?

да чуть позже

 

свои макросы можно будет добавлять ?

да

 

PS: на каком языке программирования работают макросы в повермилле?

синтаксис собственный РМ

Изменено 25 марта 2016 пользователем lnslns

[MaestroSky 0]

Доброго Всем времени суток! Подскажите как макросом можно открыть папку в которой сохранен NC файл проекта?

[eksodus 270]

как макросом можно открыть папку в которой сохранен NC файл проекта?

 

стандартная команда ДОС по смене директории - CD (change directory)

синтаксис такой -

CD "C:\temp"

вместо C:\temp указать нужную папку с NC файлами на компе

[Machinist 439]

Доброго Всем времени суток! Подскажите как макросом можно открыть папку в которой сохранен NC файл проекта?

Именно папку?

Сам файл открывается легко и просто, ПКМ на файле в дереве:

[MaestroSky 0]

Именно папку?

Сам файл открывается легко и просто, ПКМ на файле в дереве:

0.jpg

Это да но он открывается во внешней программе. Но перед тем как отправить его на ЧПУ нужно перейти в папку с сохраненным объектом и от туда скачать сам файл но через программу это не реализован.

[eksodus 270]

как перейти в папку я указал, но другие команды не работают в 2012 милле (создать-копировать и тд)

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

 

а это довольно неудобно - проще сразу на нужную папку (можно даже сетевую) записывать NC файлы

[Konstantin_VP 49]

Доброго Всем времени суток! Подскажите как можно получить информацию о длине хвостовика или как то проверить существует ли он у активного инструмента?

Например переменная:

Tool.Length

работает, но для хвостовика такой переменной не нашёл.

Та что есть для техкарт:

MCLength

почему то в макросе выдаёт ошибку

[Konstantin_VP 49]

Частично отвечу на свой вопрос т.к. хотел способ под Powermill 2012, но нашёл только под более старшую версию, скорей всего начиная с 2015, сам же протестировал на 2016.

Выкладываю полностью весь свой макрос для проверки на столкновения и зарезы. Проверяются все траектории в папке с активной траекторией, без учёта подпапок. Если длина хвостовика больше нуля (то есть он есть), то идёт проверка и на зарезы и на столкновения, в противном случае только на зарезы. В процессе проверки не показывает сообщений.

//PowerMill 2016

DIALOGS ERROR OFF
DIALOGS MESSAGE OFF

STRING $FolderName = dirname(pathname(entity('Toolpath',''))) //определяет путь по активной траектории

real $ShankLength = size(ENTITY('tool', '').ShankSetValues) //длина хвостовика

FOREACH t IN folder ($FolderName) {

//исключение подпапок
IF dirname(pathname(t)) == $FolderName {

ACTIVATE TOOLPATH $t.Name

//Если хвостовик не равен нулю
If $ShankLength != 0 {

//Проверка на зарезы и столкновения
EDIT COLLISION TYPE GOUGE
EDIT COLLISION SPLIT_SEGMENT N
EDIT COLLISION SPLIT_TOOLPATH N
EDIT COLLISION APPLY
EDIT COLLISION TYPE COLLISION
EDIT COLLISION ADJUST_TOOL N
EDIT COLLISION APPLY


} else {

//Проверка на зарезы
EDIT COLLISION TYPE GOUGE
EDIT COLLISION SPLIT_SEGMENT N
EDIT COLLISION SPLIT_TOOLPATH N
EDIT COLLISION APPLY

}

}

}

DIALOGS ERROR On
DIALOGS MESSAGE On

[Konstantin_VP 49]

Выложу тогда ещё один макрос под PowerMill 2016. Макрос открывает папку где лежит сам проект.

//PowerMill 2016

STRING Dirbase = project_pathname(0)  //полный путь до проекта (включая сам проект)
STRING filebase = project_pathname(1) //название папки проекта

STRING $Dir = replace($Dirbase, $filebase, "") //заменяет filebase на '' в пути проекта

OLE FILEACTION "OPEN" $Dir //открывает папку где лежит проект

[Konstantin_VP 49]

В дополнении к предыдущему макросу. Если папка где лежит проект с таким же названием как и сам проект, то оба эти названия будут удалены командой replace. Нужны дополнительные условия. Как вариант:

//PowerMill 2016

STRING Dirbase = project_pathname(0)  //полный путь до проекта (включая сам проект)
STRING filebase = project_pathname(1) //название папки проекта
real length = length($Dirbase) - length($filebase) //количество символов в переменной $Dirbase без учёта $filebase

STRING $Dir = substring($Dirbase, 0, $length) //отображает строчку с позиции 0 до $length

OLE FILEACTION "OPEN" $Dir //открывает папку где лежит проект

[Konstantin_VP 49]

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

DIALOGS ERROR OFF
DIALOGS MESSAGE OFF

string T = ""
$T = INPUT "Введите начало отчёта"
INT nmb = $T

STRING path = pathname('tool', '')

// Проверка наличия активных инструментов
IF path != '' {

STRING $FolderName = dirname(pathname(entity('Tool',''))) //определяет путь по активному инструменту

FOREACH t IN folder($FolderName) {

//исключение подпапок
IF dirname(pathname(t)) == $FolderName {

$t.number.value = nmb
$t.number.userdefined = 1
$nmb = nmb + 1

}

}

} else {

FOREACH t IN folder('Tool') {

$t.number.value = nmb
$t.number.userdefined = 1
$nmb = nmb + 1

}

}

DIALOGS ERROR On
DIALOGS MESSAGE On

[Konstantin_VP 49]

Макрос для замены инструмента. Замена происходит в цикле в директории активной траектории без учёта подпапок. Активный инструмент - тот что подлежит подмене, а тот на который меняется инструмент должен иметь приставку "_new".

DIALOGS ERROR OFF
DIALOGS MESSAGE OFF

string $ToolName = Tool.Name

//______получение имени нового инструмента_____

STRING $FolderName = dirname(pathname(entity('Tool',''))) //определяет путь по активному инструменту

FOREACH t IN folder($FolderName) {

// Получение имени в Нижнем регистре
STRING $RTName = lcase(t.Name)

// Проверка, содержит ли имя '_new'
IF position(t.Name, "_new") >= 0 {

string $ToolReplace = t.Name

//_____________________________________________

STRING $FolderName = dirname(pathname(entity('Toolpath',''))) //определяет путь по активной траектории

FOREACH $tp IN folder($FolderName) {

//исключение подпапок
IF dirname(pathname(tp)) == $FolderName {

//Если активный инструмент равен $ToolName
IF $tp.Tool.Name == $ToolName {

EDIT TOOLPATH $tp.Name REPLACE_TOOL $ToolReplace  //$tp.Name заменяется на $ToolReplace

}

}

}

}

}

DIALOGS ERROR On
DIALOGS MESSAGE On

[Konstantin_VP 49]

Макрос для нумерации траекторий. Добавляет порядковый номер к траектории, который заканчивается точкой, наличие которой и проверяется макросом. Работает только в активной директории без учёта подпапок. Если траектории не пронумерованы (идёт проверка на наличие точки в первых 4 символах в названии траектории), то нумеруются все траектории, если есть, то происходит повторная нумерация. Также из названия траектории убираются все "_" и заменяются " "

DIALOGS ERROR OFF
DIALOGS MESSAGE OFF

STRING $FolderName = dirname(pathname(entity('Toolpath',''))) //определяет путь по активной траектории

INT $nmb =1

FOREACH t IN folder ($FolderName) {

//исключение подпапок
IF dirname(pathname(t)) == $FolderName {

ACTIVATE TOOLPATH $t.Name

STRING $OneName = Toolpath.name             //имя активной траектории
STRING $twoName = substring(OneName, 0, 4) //первые 4 символа от начала строки (0-начало)


//проверка наличия точки в первых трёх символах от начала строки
IF position($twoName, ".") == -1 {

//Если точки нет

STRING $Name = replace($t.Name, "_", " ") //заменяет '_' на ' ' в названии траектории
string $N=$nmb
string $newname=$N+'.'+$Name
RENAME TOOLPATH ; $newname
$nmb = nmb + 1 //счётчик траекторий

} else {

//Если точка есть

STRING $pointName = substring($twoName, 0, (position($twoName, "."))+1 ) //колличество символов до первой точки (отсчёт в переменной position идёт от 0, а должна быть длина, поэтому +1) от начала строки

STRING $Name = replace($t.Name, pointName, "") //убирает со строки $t.Name указанные символы в переменной $pointName

STRING $Nametwo = replace($Name, "_", " ") //заменяет '_' на ' ' в названии траектории
string $N=$nmb
string $newname=$N+'.'+$Nametwo
RENAME TOOLPATH ; $newname
$nmb = nmb + 1 //счётчик траекторий

}


}

}

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

DIALOGS ERROR On
DIALOGS MESSAGE On

[Konstantin_VP 49]

Макрос для изменения вылета инструмента с патрона. Используется пользовательский Диалог ввода. В шапке выводится запрос и текущий вылет.

string prompt = "Введите значение вылета.Текущее "+Tool.OVERHANG
do {
bool err = 0
do {
real $i = input $prompt
$err = ERROR i

EDIT PAR 'TOOL.OVERHANG' $i//вылет с патрона

Изменено 26 апреля 2016 пользователем Konstantin_VP

[eksodus 270]

Макрос открывает папку где лежит сам проект.

спасибо )

[eksodus 270]

Макрос открывает папку где лежит сам проект.

рано радовался

если нет открытого проекта - милл наглухо виснет

это можно исправить ?

[Konstantin_VP 49]

рано радовался

если нет открытого проекта - милл наглухо виснет

это можно исправить ?

У меня ничего не происходит если активировать макрос в PowerMill 2016 без проекта. А что он должен в этом случае делать?Что открывать?