Макросы в Power Mill

[scorpion1007 60]

Методом народного тыка собрал макрос, который предназначается в первую очередь для станков не умеющих менять инструмент (впрочем есть такой же, для меняющих инструмент, разница в том, что инструмент переименовывается не по порядку, а по номеру ячейки в магазине. Только смысла в нем не вижу,- проще создать тогда одну NC-шку для всех траекторий).

Выполняет операции:

1) переименовывает инструмент по формату: номер по порядку-диаметр -вылет

2)переименовывает траектории по формату : номер по порядку-имя используемого инструмента

3) создает NC-файлы и набивает их траекториями по инструменту и очередностью траекторий в дереве, переименовывает их по формату: номер по порядку_имя модели-используемый инструмент

 

БЫЛО:

 

 

 

Стало:

 

 

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

 

PS Предварительно, весь инструмент должен быть перемещен быть в активную папку

 

nc_tape_new.zip

 

 

Изменено 18 июля 2018 пользователем scorpion1007

[scorpion1007 60]

UPD:

Убирает все точки, запятые, пробелы в имени NC-файла ( если быть точнее, - в модели), заменяя всё нижним подчеркиванием.

nc_tape_new1.zip

[Maik812 309]

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

пробелы в имени NC-файла ( если быть точнее, - в модели), заменяя всё нижним подчеркиванием.

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

[Machinist 439]

1 час назад, Maik812 сказал:

но это просто файловым менеджером можно делать.

Спасибо Кэп!

Забыли упомянуть, что УП можно в блокноте писать.

[eksodus 270]

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

Методом народного тыка собрал макрос

вроде макрос неплохой, но есть пару вопросов по нему:

 

1) у вас странная кодировка

винда русская стоит ?

если не знаете какую кодировку поставить - делайте всегда юникодовскую

 

2) Как Вы считаете вылет для инструмента ?

Вручную ?  Или через просчёт для столкновений ?

Скажем - стандартная концевая фреза  D10 имеет длину 75 мм, из них - 30 мм режущей

если мне надо пройтись на глубину 20 мм - то вылет будет 30, по длине режущей

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

 

3) Этот макрос не подходит для тех, кто активно пользуется базой инструмента с режимами резания инструмента

Например - у DHF есть фреза D8 R1  с подачей 400 мм/мин, а есть такая же по геометрии, но с другим покрытием,

и у неё подача в 10 раз больше - до 4500 мм/мин

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

 

а ваш макрос перебьёт все имена инструментов и оператор может ошибиться

 

есть возможность сделать такой же макрос который НЕ будет трогать имена инструментов  ?

 

Изменено 19 июля 2018 пользователем eksodus

[scorpion1007 60]

1 час назад, eksodus сказал:

 

 

Вылет считаю вручную. Если мало, -траектория подсвечивается красным. Тогда через проверку на столкновения, прикидываю минимально допустимые вылет и корректирую. 

Убрал секцию по переименованию инструмента.

 

//************Переименовка траекторий и набивка NC-файлов*************

DEACTIVATE TOOLPATH
STRING rename = ' '
INT counter = 1
STRING ModelPath = folder('Model')[0].Path
STRING m1=folder('Model')[0].Name
STRING m2 = replace($m1, ".", "_")
STRING m3 = replace($m2, ",", "_")
STRING Model_name = replace($m3, " ", "_")

FOREACH tp IN FOLDER('toolpath') {
    $rename = $counter + "_" 
    RENAME Toolpath $tp $rename
    $counter = $counter + 1
}

STRING rename2 = ' '
INT counter2 = 1

FOREACH tp IN FOLDER('toolpath') {
    $rename2 = $counter2
    RENAME Toolpath $tp $rename2
    $counter2 = $counter2 + 1 
}
string oldTName = "ddgdhsdg"
INT counter3 = 1
FOREACH tp IN FOLDER ('toolpath') {
  activate toolpath $tp.name
  string tpName = entity('toolpath','').name
  string toolName = entity('tool','').name
  string newName = $tpName + "-" + $toolName
  string newTName = $toolName
  IF $newTName == $oldTName { 
    rename toolpath ; $newName
    $oldTName = $newTName
    EDIT NCPROGRAM ; APPEND TOOLPATH $newName
    } ELSE {
    string ncName = $counter3 + "-" + $Model_name + "-" + $toolName
CREATE NCPROGRAM $ncName
ACTIVATE NCPROGRAM    $ncName
rename toolpath ; $newName
EDIT NCPROGRAM ; APPEND TOOLPATH $newName
$counter3 = $counter3 + 1
$oldTName = $newTName
}

}
 

[eksodus 270]

20 минут назад, scorpion1007 сказал:

Убрал секцию по переименованию инструмента.

Спасибо )

24 минуты назад, scorpion1007 сказал:

Вылет считаю вручную.

у меня вылет через техкарту выводится (от Z0 в минус)

но в названии NC файла - это тоже неплохо

[MFS 249]

В 09.07.2018 в 09:33, Kinematik сказал:

Уважаемые админы!

Закрепите тему. Хороший контент в этой теме опубликован.

Спасибо.

 

  @MFS

Пожалуйста.

[Konstantin_VP 49]

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

ECHO OFF DCPDEBUG UNTRACE COMMAND ACCEPT //отключение эхо

ENTITY ST = entity('StockModel','')
OBJECT LIST $STK_States = filter($ST.States,"Type == 'Toolpath'")
INT StateNB = size($STK_States)-1

int $Id = 0
string List $list = {}

  IF $StateNB >= 0 {
     WHILE ID <= $StateNB {
     $list = list + {$STK_States[$Id].name}
      $Id=$Id+1
     }

  } else {
  Message error 'Траекторий в активной модели материала нет!'
  return

  }


ENTITY LIST $Selection = INPUT ENTITY MULTIPLE toolpath "Удаление траекторий из модели материала" " " $list

FOREACH sm IN FOLDER('stockmodel') {
   STRING s = pathname($ENTITY('stockmodel', $sm.name))
   EXPLORER SELECT stockmodel $s NEW\r
   DEBUG EXPLORER KEY LEFT
}

FOREACH $item IN $Selection {
EDIT STOCKMODEL ; ACTIVATE TOOLPATH $item
EDIT STOCKMODEL ; REMOVE_INPUT INDEXED_STATE ;
}

 

Hide  

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

Суть проблемы в том, что посчитанная модель материала имеет некий объём, а не посчитанная - нет. Не посчитанная модель материала с траекториями выводит список моментально, а посчитанная в зависимости от объёма.

Попытался воспользоваться фильтром в OBJECT LIST, смог отфильтровать по типу, но хотелось бы получать только определённые поля т.к. именно из-за переменной  $STK_States[$Id].volume и возникают проблемы.

Ускорить получилось немного за счёт определения размера модели материала(количества траекторий) с уже созданного OBJECT LIST.

 

[Chester 2]

всем привет. Решил тоже разобраться с макросами. Сделал пару штук, щас решил сделать кнопки на custom панели. сделал (стрелка 1) - выполняет то, что надо. как мне эту мою команду привязать на сочетание кнопок?

 

и еще просьба - можете сделать макрос? прошу, потому что я вообще не программист. и всякие переменные, OBJECT LIST и  $STK_States[$Id].volume повергают меня в тихий ужас. 

 

я достаточно давно уже делаю обработку деталей по схеме: делаю 1 слой обработки нижней плоскости. например щас делаю деталь - обработка по контуру. делаю 1 слой на (в данном случае) Z= -15 mm. потом нажимаю волшебную кнопку (стрелка 2) и там все раскидываю. то есть делаю перемещение на 14,75 мм вверх, потом 69 копий по -0,25 мм. до Z= - 17,5 мм. высота данной детали 17 мм.

что хочется от макроса - сделан 1 слой траектории на - 15 мм. она активна. то есть все действия делаются только с активной траекторией. нажимаю кнопку макроса - он сам не важно откуда поднимает траекторию на Z=-0.25 mm. потом спрашивает, какой делаем шаг по Z? (например 0,25) и ДО какой глубины опускаем? например шаг ,025 и до -17,5. он делит мое число (17.5) на шаг (0.25), делает -1 шаг (мы уже на -0,25), это число вбивает в окно(стрелка 3), потом вбивает 0 0 -0,25 в окно (стрелка 4). 

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

 

милл - 12 экспресс лицензия. именно экспресс, половина траекторий не работает.

 

дополнение - если делаю по плоскости (например эти пеньки), то траекторию делаю по высоте плоскости +0,01 мм. в данном случае -8,99 мм. в идеале макрос должен сначала опустить траекторию на -0,01мм, потом сделать остальное.

 

кнопка (все вверх) открывает окно "упорядочить траекторию", нажимает кнопку "переместить в начало" и закрывает это окно. так как, например, в траектории с пеньками будет 10 круговых обработок 

послойно - это очень долго. а так я руками переделываю порядок для уменьшения холостых перелетов.

 

почему так делаю в принципе - 1 слой программа быстро считает.

 

Я логику представил в голове, а как реализовать - придумать не могу. 

и еще - окно(стрелка 5), тут как-то можно редактировать? или только в блокноте?

Изменено 9 августа 2018 пользователем Chester

[Chester 2]

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

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

[eksodus 270]

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

что хочется от макроса

у меня есть макрос, который размножает траекторию по Z в сторону Z+.

там всего два вопроса - Шаг по Z  и количество копий

подойдёт такой ?

 

а делать макрос по вашему описанию не получится, ибо непонятно откуда взялось 17,5, и 15,0 .

то есть что получить - примерно понятно, но как задать исходные данные для макроса непонятно

 

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

поднимает траекторию на Z=-0.25 mm

со знаком минуса - это же вроде опускает траекторию, а не поднимает ?

 

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

траекторию делаю по высоте плоскости +0,01 мм

 

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

в идеале макрос должен сначала опустить траекторию на -0,01мм

так зарезать плоскость  на одну сотку или недойти одну сотку до плоскости ?

выражайтесь пожалуйста поточнее

 

 

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

Я логику представил в голове, а как реализовать - придумать не могу. 

 

как я убедился на себе  - бывает так, что при написании макросов логика часто берется обратная, а не прямая )

например, чтобы выбрать все выпуклые скругления - приходится

1) создавать СК с противоположным направлением по Z,

2) активировать её

3) выбрать вогнутости

4) удалить созданную СК

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

 

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

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

в  милле, насколько я знаю - всё не так

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

 

 

 

 

Изменено 9 августа 2018 пользователем eksodus

[Chester 2]

11 час назад, eksodus сказал:

у меня есть макрос, который размножает траекторию по Z в сторону Z+.

там всего два вопроса - Шаг по Z  и количество копий

подойдёт такой ?

нет.

я походу не очень понятно выразился... 

 

11 час назад, eksodus сказал:

а делать макрос по вашему описанию не получится, ибо непонятно откуда взялось 17,5, и 15,0 .

то есть что получить - примерно понятно, но как задать исходные данные для макроса непонятно

эти цифры я указываю руками. 

пока получилось показать окно (стрелка 1). я ввожу -15, которое должно подставиться в окно (стрелка 2). щас с этим воюю.

11 час назад, eksodus сказал:

21 час назад, Chester сказал:

поднимает траекторию на Z=-0.25 mm

со знаком минуса - это же вроде опускает траекторию, а не поднимает ?

макрос должен поднять посчитанную траекторию с -15 до -0.25 мм. у меня съем за проход 0.25 мм. 

 

11 час назад, eksodus сказал:

21 час назад, Chester сказал:

в идеале макрос должен сначала опустить траекторию на -0,01мм

так зарезать плоскость  на одну сотку или недойти одну сотку до плоскости ?

выражайтесь пожалуйста поточнее

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

11 час назад, eksodus сказал:

21 час назад, Chester сказал:

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

в  милле, насколько я знаю - всё не так

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

Вы все говорите, что макросам присваиваете сочетания клавиш. в моем предыдущем посте на картинке я сделал свой макрос на пользовательской панели. это стрелка 1. вот на это действие хочется забиндить какое-нибудь сочетание клавиш на клавиатуре. только я в принципе не пойму, как это делается.

 

DIALOGS ERROR OFF
DIALOGS MESSAGE OFF

IMPORT TEMPLATE ENTITY TOOLPATH TMPLTSELECTORGUI
"3D-Area-Clearance\Model-Profile.002.ptf"
FORM ZHEIGHTS
EDIT ZHEIGHTS MODE VALUE

string prompt = "на какой высоте?" // вот тут вызываем окно
$WorkZ = input $prompt             // тут вводим число. только я не пойму, как тут присвоить имя и передать в строку ниже

EDIT ZHEIGHTS MODEVALUE "workz"  // сюда должна подставиться переменная высоты

DELETE ZHEIGHTS ALL
PROCESS ZHEIGHTS
ZHEIGHTS ACCEPT
EDIT TOOLPATH "1" CALCULATE
AreaClearMain ACCEPT
MODE TOOLPATH_TRANSFORM START ;
MODE TRANSFORM TYPE TRANSLATE
MODE COORDINPUT COORDINATES 0 0 3.75  // тут должна быть команда подъема до 0 0 -0.25
MODE TRANSFORM COPY YES

// а вот тут должно появится окно с вводом нижнего слоя обработки (что у меня -17.5)
// тут должна быть формула 17,5/0,25-1 = получается количество слоев, которое подставяется ниже

MODE TRANSFORM COPIES Layers

MODE COORDINPUT COORDINATES 0 0 -0.25 // сюда подставляется шаг по Z=-0.25
MODE TOOLPATH_TRANSFORM FINISH ACCEPT

DIALOGS ERROR ON
DIALOGS MESSAGE ON

 

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

Изменено 10 августа 2018 пользователем Chester

[eksodus 270]

4 часа назад, Chester сказал:

макрос должен поднять посчитанную траекторию с -15 до -0.25 мм. у меня съем за проход 0.25 мм. 

ну так значит всё же поднять надо (согласитесь - ДО -0,25 и НА -0,25 = совсем разные значения)

тогда один макрос как раз подойдёт - приду домой скину

 

[scorpion1007 60]

Ребята, подскажите. Как из слоя, содержащее слово NEAPOL вытащить значение (19.6) диаметра требуемого инструмента?

 

 

[eksodus 270]

В 10.08.2018 в 12:21, Chester сказал:

эти цифры я указываю руками. 

да не нужно всё это для макроса

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

и что нужно получить - то есть результат

а уже потом, по желанию, указать ещё какие-то моменты

 

ведь если можно сделать простое размножение траектории по Z - то какая вам разница, каким именно способом это будет сделано ?

если результат будет тот же самый

 

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

а во втором сообщении вы уже лезете внутрь траектории, и тут тоже непонятка - нужно как в первом сообщении написано, или как во втором ?

 

В 11.08.2018 в 12:11, scorpion1007 сказал:

Как из слоя, содержащее слово NEAPOL вытащить значение (19.6) диаметра требуемого инструмента?

через регулярные выражения

вот сделал на скорую руку -

 

Дано: NEAPOL19_6

Найти: ^(.+[A-Z; a-z])(.+[0-9; _])

Заменить на: \2

Получим: 19_6

 

И потом вторая операция - меняем знак подчеркивания на точку.

Но это только применимо, если после цифр опять не идут буквы

 

Но как это сделать средствами милла - немного  без понятия

я не уверен что милл поддерживает регулярные выражения

 

[scorpion1007 60]

1 час назад, eksodus сказал:

 

Дано: NEAPOL19_6

Найти: ^(.+[A-Z; a-z])(.+[0-9; _])

Заменить на: \2

Получим: 19_6

 

И потом вторая операция - меняем знак подчеркивания на точку.

Но это только применимо, если после цифр опять не идут буквы

 

Но как это сделать средствами милла - немного  без понятия

я не уверен что милл поддерживает регулярные выражения

 

Спасибо за помощь, мне уже подсказали на англоязычном форуме Гугл-переводчик творит чудеса)

Я блин день убил на это, и все безрезультатно. Тот случай, когда читаешь мануал, а видишь фигу)

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

Только не онлайн, а очно, с доской и мелком,подробно по каждой функции и параметру. Ибо заочка,-бессмысленная для меня трата денег

Если кому интересно -

https://forums.autodesk.com/t5/powermill-forum/create-a-macro-to-create-a-tool-from-the-layer-name/td-p/8193351

 

 

[eksodus 270]

2 часа назад, scorpion1007 сказал:

Тот случай, когда читаешь мануал, а видишь фигу)

Я перешёл по ссылке, и потом просмотрел мой перевод -

функция string replace, которая использовалась по ссылке, есть в переводе ещё к 2012 миллу

но там совсем простенький пример как её использовать, - я бы там тоже не разобрался

 

не против если перевыложу решение здесь ? вдруг кому пригодится

FOREACH $Lv IN FOLDER('level') {
    IF position($Lv.name, 'NEAPOL') > -1 {
		REAL $diameter = replace(replace($Lv.name, 'NEAPOL', ''), '_', '.')
		CREATE TOOL ; ENDMILL
		EDIT TOOL ; DIAMETER $diameter
	}
}

 

[Chester 2]

21 час назад, eksodus сказал:

да не нужно всё это для макроса

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

и что нужно получить - то есть результат

а уже потом, по желанию, указать ещё какие-то моменты

 

ведь если можно сделать простое размножение траектории по Z - то какая вам разница, каким именно способом это будет сделано ?

если результат будет тот же самый

 

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

а во втором сообщении вы уже лезете внутрь траектории, и тут тоже непонятка - нужно как в первом сообщении написано, или как во втором ?

теперь я Вас не понял. чтобы сделать простое размножение оси по Z, сначала траекторию надо почтитать на каккой-то высоте. так как детали разные, а обработка одна, то высоту первую надо указать в данном случае -15. потом сам макрос ее поднимает до первого прохода (это шаг по Z - в данном случае -0,25 мм) и размножает на определенное количество слоев.

 

 

какой командой в макросе можно сюда вставить цифру? я вообще не пойму.

 

IMPORT TEMPLATE ENTITY TOOLPATH TMPLTSELECTORGUI
"3D-Area-Clearance\Model-Profile.002.ptf"
FORM ZHEIGHTS
EDIT ZHEIGHTS MODE VALUE

$workz = input "c какой высоты?"

EDIT ZHEIGHTS MODEVALUE "-5"  // сюда должно подставиться число, введенное выше.

 

$workz - вроде как переменная, которую я задаю. а вот как ее подставить в окошко по стрелке?

 

 

[scorpion1007 60]

1 час назад, Chester сказал:

 

$workz - вроде как переменная, которую я задаю. а вот как ее подставить в окошко по стрелке?

 

 

string scname = " c какой высоты?"
REAL $workz = input $scname
EDIT ZHEIGHTS AUTOMATIC OFF
EDIT ZHEIGHTS MODEVALUE $workz
PROCESS ZHEIGHTS

ZHEIGHTS ACCEPT

Изменено 13 августа 2018 пользователем scorpion1007