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

Макросы в Power Mill


Рекомендованные сообщения

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

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

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

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

 

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

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

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

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

Ссылка на сообщение
Поделиться на других сайтах


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

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

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

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

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

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

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

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

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

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

 

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

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

Изменено пользователем lnslns
Ссылка на сообщение
Поделиться на других сайтах

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

 

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

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

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

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

 

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

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

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

Ссылка на сообщение
Поделиться на других сайтах

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

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

 

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

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

 

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

да чуть позже

 

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

да

 

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

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

Изменено пользователем lnslns
Ссылка на сообщение
Поделиться на других сайтах

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

Ссылка на сообщение
Поделиться на других сайтах

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

 

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

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

CD "C:\temp"

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

Ссылка на сообщение
Поделиться на других сайтах

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

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

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

post-25054-0-28847400-1459162161.jpg

Ссылка на сообщение
Поделиться на других сайтах

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

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

attachicon.gif0.jpg

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

Ссылка на сообщение
Поделиться на других сайтах

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

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

 

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

Ссылка на сообщение
Поделиться на других сайтах
  • 3 недели спустя...

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

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

Tool.Length

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

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

MCLength

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

Ссылка на сообщение
Поделиться на других сайтах

Частично отвечу на свой вопрос т.к. хотел способ под 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

Ссылка на сообщение
Поделиться на других сайтах

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

//PowerMill 2016

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

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

OLE FILEACTION "OPEN" $Dir //открывает папку где лежит проект
Ссылка на сообщение
Поделиться на других сайтах

В дополнении к предыдущему макросу. Если папка где лежит проект с таким же названием как и сам проект, то оба эти названия будут удалены командой 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 //открывает папку где лежит проект
Ссылка на сообщение
Поделиться на других сайтах

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

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
Ссылка на сообщение
Поделиться на других сайтах

Макрос для замены инструмента. Замена происходит в цикле в директории активной траектории без учёта подпапок. Активный инструмент - тот что подлежит подмене, а тот на который меняется инструмент должен иметь приставку "_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
Ссылка на сообщение
Поделиться на других сайтах

Макрос для нумерации траекторий. Добавляет порядковый номер к траектории, который заканчивается точкой, наличие которой и проверяется макросом. Работает только в активной директории без учёта подпапок. Если траектории не пронумерованы (идёт проверка на наличие точки в первых 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

Ссылка на сообщение
Поделиться на других сайтах

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

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

EDIT PAR 'TOOL.OVERHANG' $i//вылет с патрона
Изменено пользователем Konstantin_VP
Ссылка на сообщение
Поделиться на других сайтах
Макрос открывает папку где лежит сам проект.

спасибо )

Ссылка на сообщение
Поделиться на других сайтах
Макрос открывает папку где лежит сам проект.

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

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

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

Ссылка на сообщение
Поделиться на других сайтах

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

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

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

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

Ссылка на сообщение
Поделиться на других сайтах
  • MFS закрепил это тему

Присоединяйтесь к обсуждению

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

Гость
Ответить в тему...

×   Вставлено в виде отформатированного текста.   Вставить в виде обычного текста

  Разрешено не более 75 эмодзи.

×   Ваша ссылка была автоматически встроена.   Отобразить как ссылку

×   Ваш предыдущий контент был восстановлен.   Очистить редактор

×   Вы не можете вставить изображения напрямую. Загрузите или вставьте изображения по ссылке.

  • Сейчас на странице   0 пользователей

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




×
×
  • Создать...