eksodus

Макросы в Power Mill

227 сообщений в этой теме
1 час назад, syncomp сказал:

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

Откуда должен взяться путь и название файла?

Изменено пользователем Konstantin_VP

Поделиться сообщением


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


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

Откуда должен взяться путь и название файла?

В принципе откуда угодно! Из пути проекта, модели...

Задача такая. Все мои проекты, не Повермилла, а по работе состоят из строгой структуры. Например,

"Корневая папка"

Корпус№123.00.04

Подпапки

NC

Исходники

Фрез (в этой папке находятся файлы)

Заготовка.тхт

Общее время.тхт

----------------------

Я хочу написать макрос, чтобы после импорта модели и установки СК , рассчитался размер заготовки для модели и записался в файл Заготовка.тхт , в папку Фрез этого проекта(Кропус№123...)

В другом проекте Например,Корпус №98765.00.56.001 путь файла Заготовка.тхт будет другим. Макрос и должен вычислить путь, у меня по модели, отсекая в пути все что до "Фрез\" и добавляя Заготовка .тхт

Этот путь в виде переменной подставляю в команду открытия файла и записываю данные. В макросе же у меня записан постоянный путь для файла -"D:\Заготовка.тхт". Оттуда и беру данные.Не совсем удобно , согласитесь...

Вот сам макрос

//***** Вычисление пути ****
STRING ModelPath = folder('Model')[0].Path
 INT Pos = Position($ModelPath,"Фрез\")
$ModelPath=substring($ModelPath,0,$pos+5)
//Message info ModelPath

//**********  Запись в файл размера заготовки ***********
string file_name=ModelPath+"Заготовка.txt"
Message info file_name

//здесь вставляем путь файла
FILE OPEN "D:\Заготовка.txt/" FOR APPEND AS Razmer
FILE WRITE $file_name to Razmer
FILE CLOSE Razmer

 

Изменено пользователем syncomp

Поделиться сообщением


Ссылка на сообщение
Поделиться на других сайтах
32 минуты назад, syncomp сказал:

Я хочу написать макрос, чтобы после импорта модели и установки СК , рассчитался размер заготовки для модели и записался в файл Заготовка.тхт , в папку Фрез этого проекта(Кропус№123...)

такой макрос самому несложно собрать как конструктор из имеющихся вариантов в этой теме

вот доработал свой вариант :

STRING Dirbase = project_pathname(0)
CD $Dirbase
MKDIR "Фрез"
CD Фрез

FILE OPEN "Заготовка.txt" FOR WRITE AS Zagotovka 

// Считаем длину заготовки по X,Y и Z
REAL DlinaX=Block.Limits.XMax-Block.Limits.XMin
REAL DlinaY=Block.Limits.YMax-Block.Limits.YMin
REAL DlinaZ=Block.Limits.ZMax-Block.Limits.ZMin

// Добавляем имя оси и знак равенства
STRING RezX=" X=" + $DlinaX
STRING RezY=" Y=" + $DlinaY
STRING RezZ=" Z=" + $DlinaZ

// Записываем значения трёх переменных
FILE WRITE $RezX TO Zagotovka
FILE WRITE $RezY TO Zagotovka
FILE WRITE $RezZ TO Zagotovka

// Закрываем файл с идентификатором Zagotovka 
FILE CLOSE Zagotovka

только проект сначала должен быть сохранён

(но такой макрос у Вас уже есть, как я понимаю)

ну и заготовка тоже должна быть вычислена ДО этого макроса

Изменено пользователем eksodus

Поделиться сообщением


Ссылка на сообщение
Поделиться на других сайтах
2 минуты назад, eksodus сказал:

такой макрос самому несложно собрать как конструктор из имеющихся вариантов в этой теме

вот доработал свой вариант :


STRING Dirbase = project_pathname(0)
CD $Dirbase
MKDIR "Фрез"
CD Фрез

FILE OPEN "Заготовка.txt" FOR WRITE AS Zagotovka 

// Считаем длину заготовки по X,Y и Z
REAL DlinaX=Block.Limits.XMax-Block.Limits.XMin
REAL DlinaY=Block.Limits.YMax-Block.Limits.YMin
REAL DlinaZ=Block.Limits.ZMax-Block.Limits.ZMin

// Добавляем имя оси и знак равенства
STRING RezX=" X=" + $DlinaX
STRING RezY=" Y=" + $DlinaY
STRING RezZ=" Z=" + $DlinaZ

// Записываем значения трёх переменных
FILE WRITE $RezX TO Zagotovka
FILE WRITE $RezY TO Zagotovka
FILE WRITE $RezZ TO Zagotovka

// Закрываем файл с идентификатором Zagotovka 
FILE CLOSE Zagotovka

 

Вопрос не стоит в том, чтобы в команду WRITE записать переменную. Вопрос в том как в команду FILE OPEN вместо "D:\Заготовка.txt" поставить переменную с путем файла. $file_name, например. Типа

FILE OPEN $file_name .Или синтаксис команды FILE OPEN это не позволяет?Нужен конкретный путь, заключенный в кавычки?

Поделиться сообщением


Ссылка на сообщение
Поделиться на других сайтах
2 минуты назад, syncomp сказал:

Или синтаксис команды FILE OPEN это не позволяет?Нужен конкретный путь, заключенный в кавычки?

а какая разница ? макрос то работает

Поделиться сообщением


Ссылка на сообщение
Поделиться на других сайтах
1 минуту назад, syncomp сказал:

Вопрос не стоит в том, чтобы в команду WRITE записать переменную. Вопрос в том как в команду FILE OPEN вместо "D:\Заготовка.txt" поставить переменную с путем файла. $file_name, например. Типа

FILE OPEN $file_name .Или синтаксис команды FILE OPEN это не позволяет?Нужен конкретный путь, заключенный в кавычки?

 

Все, увидел как это делать! DOS-команды CD, MRDIR используются! Большое спасибо

Поделиться сообщением


Ссылка на сообщение
Поделиться на других сайтах
2 минуты назад, syncomp сказал:

Все, увидел как это делать! DOS-команды CD, MRDIR используются!

ну как бы да

7 минут назад, syncomp сказал:

Вопрос в том как в команду FILE OPEN вместо "D:\Заготовка.txt" поставить переменную с путем файла. $file_name, например.

что-то вроде

STRING Dirbase = project_pathname(0)
MKDIR "$Dirbase/Фрез"

FILE OPEN "$Dirbase/Фрез/Заготовка.txt" FOR WRITE AS Zagotovka 

только синтаксис нужно правильный прописать - в таком виде оно не работает

может кто поможет - не хочу сейчас заморачиваться, если вопрос решён слегка по другому

Поделиться сообщением


Ссылка на сообщение
Поделиться на других сайтах
2 минуты назад, eksodus сказал:

ну как бы да

что-то вроде


STRING Dirbase = project_pathname(0)
MKDIR "$Dirbase/Фрез"

FILE OPEN "$Dirbase/Фрез/Заготовка.txt" FOR WRITE AS Zagotovka 

только синтаксис нужно правильный прописать - в таком виде оно не работает

может кто поможет - не хочу сейчас заморачиваться, если вопрос решён слегка по другому

Я уже вижу как сделать Главное установить базовую директорию. В моем макросе переменная ModelPath  и открываем файл "Заготовка.тхт". Как отработаю макрос , выложу....

Поделиться сообщением


Ссылка на сообщение
Поделиться на других сайтах
8 минут назад, syncomp сказал:

В моем макросе переменная ModelPath  и открываем файл "Заготовка.тхт".

в твоём макросе нет строки на создание папки Фрез

ты сразу пишешь "  INT Pos = Position($ModelPath,"Фрез\") "

а нужно перед этим или

CD $Dirbase
MKDIR "Фрез"

или исправить вот это:

MKDIR "$Dirbase/Фрез"

ну и задать конечно переменную $Dirbase перед этим

Изменено пользователем eksodus

Поделиться сообщением


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

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

Поделиться сообщением


Ссылка на сообщение
Поделиться на других сайтах
56 минут назад, kvint62 сказал:

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

Можно. Но смысл. Выделяешь любой контур границы, хоть внутренний, хоть внешний и копируешь как выбранный

В 07.10.2017 в 17:15, eksodus сказал:

в твоём макросе нет строки на создание папки Фрез

ты сразу пишешь "  INT Pos = Position($ModelPath,"Фрез\") "

а нужно перед этим или

Никак не пойму зачем создавать папку? Тем более Фрез. Мне достаточно открыть папку Фрез проекта и в нем создать или открыть  файл Заготовка.

Поделиться сообщением


Ссылка на сообщение
Поделиться на других сайтах
В 07.10.2017 в 17:07, syncomp сказал:

STRING Dirbase = project_pathname(0)
MKDIR "$Dirbase/Фрез"

FILE OPEN "$Dirbase/Фрез/Заготовка.txt" FOR WRITE AS Zagotovka 

только синтаксис нужно правильный прописать - в таком виде оно не работает

может кто поможет - не хочу сейчас заморачиваться, если вопрос решён слегка по другому

Вот как раз это я и хочу узнать! Точный синтаксис  этой команды

Поделиться сообщением


Ссылка на сообщение
Поделиться на других сайтах
15 часов назад, syncomp сказал:

Никак не пойму зачем создавать папку?

если сохранять файл в несуществующую папку - макрос выдаст ошибку

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

Мне достаточно открыть папку Фрез проекта и в нем создать или открыть  файл Заготовка.

Вы себе противоречите

ранее написано было так:

В 07.10.2017 в 16:12, syncomp сказал:

Я хочу написать макрос, чтобы после импорта модели и установки СК , рассчитался размер заготовки для модели и записался в файл Заготовка.тхт , в папку Фрез этого проекта(Кропус№123...)

сразу после создания проекта папка "Фрез" в нём НЕ существует!

значит, если вам нужна эта папка - её нужно создать, что я и предложил в макросе

если же Вы хочете создавать эту папку вручную, или другим способом - то Вы этого не указали

я всего лишь в точности повторил Вашу просьбу, которая оказалась, получается, не совсем точно была выражена

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

Вот как раз это я и хочу узнать! Точный синтаксис  этой команды

и чем не устраивает вариант, что я давал выше ?

 

в любом случае - посмотрите вторую страницу этой темы

там @Konstantin_VP выкладывал несколько макросов

синтаксис можно взять оттуда

Изменено пользователем eksodus

Поделиться сообщением


Ссылка на сообщение
Поделиться на других сайтах
В 09.10.2017 в 19:49, syncomp сказал:

Можно. Но смысл. Выделяешь любой контур границы, хоть внутренний, хоть внешний и копируешь как выбранный

Так не работает, вернее работает для одного проекта, в макрос считываются координаты контура через PICK, здесь уже обсуждалось что этот вариант не из лучших... Может как то можно через редактор кривых-упорядочить сегменты, как вот только удалить все сегменты кроме "0"?

Поделиться сообщением


Ссылка на сообщение
Поделиться на других сайтах
В 10.10.2017 в 10:53, eksodus сказал:

если сохранять файл в несуществующую папку - макрос выдаст ошибку

В 09.10.2017 в 19:49, syncomp сказал:

Мне достаточно открыть папку Фрез проекта и в нем создать или открыть  файл Заготовка.

Вы неправильно поняли структуру  папок моих проектов, поэтому думаю, вся замороченность. Ну да и ладно. Я наконец написал макрос, который полностью удовлетворяет всем моим задачам и теперь я его активно использую . Попутно я полностью закончил макрос расчета заготовки, который округляет ее до десятков миллиметров задает припуск 10мм на сторону. Он полностью оперирует числами, а не переводит их в строки для округления... Оказывается существует функция округления round и никто из знатоков мне не ответил, что такая есть. Короче, вот макрос расчета  заготовки и записью его в файл "Заготовка"

//***** Вычисление  размеров заготовки *****
FORM BLOCK
EDIT BLOCK ALL UNLOCK
EDIT BLOCK RESET
BLOCK ACCEPT

//Вычисление размеров
int dlinaX=round(Block.Limits.XMax-Block.Limits.XMin,0)
int  dlinaY=round(Block.Limits.YMax-Block.Limits.YMin,0)
int  dlinaZ=round(Block.Limits.ZMax-Block.Limits.ZMin,0)
//-----------------------------------------------------------------------
//**** округление размера по X до 10 *****
int ostX=dlinaX % 10
int delX=dlinaX / 10
$dlinaX= delX*10
IF ostX>=5 {
$dlinaX=dlinaX+10
}
//**** округление размера по Y до 10 *****
int ostY=dlinaY % 10
int delY=dlinaY / 10
$dlinaY= delY*10
IF ostY>=5 {
$dlinaY=dlinaY+10
}
$dlinaX=dlinaX+20
$dlinaY=dlinaY+20
string Mess=dlinaX+" x "+dlinaY+" x "+"("+dlinaZ+")"
IF dlinaX<dlinaY {
$Mess=dlinaY+" x "+dlinaX+" x "+"("+dlinaZ+")"
}
Message info Mess

 

//***** Вычисление пути ****
STRING ModelPath = folder('Model')[0].Path
STRING Model_name=folder('Model')[0].Name
 INT Pos = Position($ModelPath,"Фрез\")
$ModelPath=substring($ModelPath,0,$pos+5)

//**********  Запись в файл размера заготовки ***********

$Mess= Model_name+" - "+Mess
STRING Dirbase=ModelPath
CD $Dirbase
FILE OPEN "Заготовка.txt" FOR APPEND AS Razmer
FILE WRITE $Mess To Razmer
FILE CLOSE Razmer

 

Изменено пользователем syncomp

Поделиться сообщением


Ссылка на сообщение
Поделиться на других сайтах
3 часа назад, syncomp сказал:

Вы неправильно поняли структуру  папок моих проектов,

та понятно, кто же ещё виноват

не доучился я на экстрасенса )

Поделиться сообщением


Ссылка на сообщение
Поделиться на других сайтах
39 минут назад, eksodus сказал:

та понятно, кто же ещё виноват

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

 

В 07.10.2017 в 16:12, syncomp сказал:

Корпус№123.00.04

Подпапки

NC

Исходники

Фрез (в этой папке находятся файлы)

Заготовка.тхт

Общее время.тхт

----------------------

Единственно не указал, что в папке Фрез также находятся проекты ПоверМилла. Ну да ладно. В любом случае этот форум мне сильно помог и помогает. И всем спасибо за помощь. Час назад написал макрос проверки наличия инструмента .... Может кому пригодится По этому принципу я думаю можно использовать проверку наличия элементов в других папках.

 

STRING path = pathname('tool', 'D 12')
IF path=="" {
TOOLDB RESULTS_LIST SELECT 3 NEW
TOOLDB RESULTS_LIST CREATE  3 0
}

 

Я сам программист. И Pascal знаю и С++. Принципы макропрограммирования в РМ немного отличаются от классических... Мне не очень нравится подход к циклу FOREACH, активация элемента и уж потом действия над ним. Тем более создание промежуточных элементов , каких-либо действий, а потом удаление их. Как в примере с суммой статистики траекторий. Мне не понятно зачем создавать NC-файл, записать в нем инфу, а потом удалить?

Ну да ладно.

Сейчас я задумал написать макрос который бы создавал NC-файлы, которые вставляли бы траектории по инструменту. Например, я использую 3 инструмента: D12(концевая,D10R(сфера) и сверло ф8 D12 выполняю 3 обработки(траектории).D10R 2траектории, сверло ф8 2 траектории. Таким образом у меня должны быть 3 NC-файла, каждый содержит все траектории одного инструмента. Смены инструмента у нас нет...

Может есть идеи у кого?

Изменено пользователем syncomp

Поделиться сообщением


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

Еще один немаловажный для меня вопрос. Открытие  проекта сопровождается открытием окна в виде дерева. На мой взгляд это окно неудобно. А вот окно Импорта модели - самое то. Можно как- заменить эти окна?Чтобы при выполнении команды открытия проекта для его выбора открывалось окно вида импорта модели?

Поделиться сообщением


Ссылка на сообщение
Поделиться на других сайтах
5 часов назад, syncomp сказал:

Сейчас я задумал написать макрос который бы создавал NC-файлы, которые вставляли бы траектории по инструменту. Например, я использую 3 инструмента: D12(концевая,D10R(сфера) и сверло ф8 D12 выполняю 3 обработки(траектории).D10R 2траектории, сверло ф8 2 траектории. Таким образом у меня должны быть 3 NC-файла, каждый содержит все траектории одного инструмента. Смены инструмента у нас нет...

Может есть идеи у кого?

entity list toolp = sort(folder("Toolpath"),'Tool.Name')
string prevtool = ""
string ncname = ""
foreach tp in toolp {

if prevtool != $tp.tool.name {
  $ncname = $tp.tool.name +"_"+ $tp.strategy
  if entity_exists('toolpath',$ncname)  {
    $ncname = new_entity_name('toolpath',string($ncname))
  }
create ncprogram $ncname
$prevtool = tp.tool.name
}
edit ncprogram $ncname insert toolpath $tp.name last
}

Поделиться сообщением


Ссылка на сообщение
Поделиться на других сайтах
В 16.10.2017 в 01:40, syncomp сказал:

ще один немаловажный для меня вопрос. Открытие  проекта сопровождается открытием окна в виде дерева. На мой взгляд это окно неудобно. А вот окно Импорта модели - самое то. Можно как- заменить эти окна?Чтобы при выполнении команды открытия проекта для его выбора открывалось окно вида импорта модели?

Похоже никто не знает как это сделать...

Поделиться сообщением


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

ID: 221   Опубликовано: (изменено)

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

Похоже никто не знает как это сделать...

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

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

 

к макросам это никаким боком не относится

Изменено пользователем eksodus

Поделиться сообщением


Ссылка на сообщение
Поделиться на других сайтах
1 час назад, eksodus сказал:

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

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

 

к макросам это никаким боком не относится

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

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

Поделиться сообщением


Ссылка на сообщение
Поделиться на других сайтах
1 час назад, Kinematik сказал:

Помнится, еще окно настроек переходов в PM2017 по-человечески сделал, я долго пользовался.

да я и в 2016 для себя подредактировал файл ресурсов - окна заголовков, менюшки, названия и тд

всё что не умещалось в рамки границы текста

просто не люблю когда фраза обрывается на полуслове

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

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

окно выбора модели и типа файлов - это виндовское окно со своими настройками на верхней панели

а окно открытия проекта = это повермилловское окно, которое обрабатывает вызовы винды

 

поэтому я и не уверен что замену реально сделать через ресурсы, тут посмотреть нужно будет

 

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

 

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

но в экзешник милла я точно не полезу - там всё покриптовано по самое нехочу

 

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

 

Поделиться сообщением


Ссылка на сообщение
Поделиться на других сайтах
В 16.10.2017 в 03:40, syncomp сказал:

Еще один немаловажный для меня вопрос. Открытие  проекта сопровождается открытием окна в виде дерева. На мой взгляд это окно неудобно. А вот окно Импорта модели - самое то. Можно как- заменить эти окна?Чтобы при выполнении команды открытия проекта для его выбора открывалось окно вида импорта модели?

string filename = ""
$filename = fileselect "Open project"
project recovery open ${dirname(filename)}

Сохраняем этот макрос, в такое место чтобы путь не содержал пробелов.

 

Потом редактируем в файлах Powemill\sys\hci\powermill.ndb\source\table\menu и Powemill\sys\hci\powermill.ndb\source\table\form

ищем текст "PROJECT RECOVERY OPEN PROJSELECTOR"

и заменяем на "MACRO ВАШ\ПУТЬ\ДО\МАКРОСА.mac".

Рекомендую сделать резервные копии этих файлов.

 

Чтобы открыть проект выбираем любой файл в папке проекта.

Поделиться сообщением


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

impact огромное спасибо. Все получилось. Единственное, что приходится открывать папку проекта. Но это мелочи

Изменено пользователем syncomp

Поделиться сообщением


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

 Уважаемы Eksodus На Рутрекере увидел ваши посты о РМ2018. Что скажете? Есть уже нормальная версия для уверенной установки на комп?

Поделиться сообщением


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

Так если ты читал там всю необходимую информацию про Mill 2018, то и ответ на свой вопрос должен был найти. Такие вещи там и обсуждают.

Поделиться сообщением


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

Создайте аккаунт или войдите для комментирования

Вы должны быть пользователем, чтобы оставить комментарий

Создать аккаунт

Зарегистрируйтесь для получения аккаунта. Это просто!


Зарегистрировать аккаунт

Войти

Уже зарегистрированы? Войдите здесь.


Войти сейчас

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

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

  • реклама

  • Реклама

  • Ближайшие события

    Предстоящих событий не найдено
  • Дни рождения сегодня

    1. Alexmaster
      Alexmaster
      (38 лет)
    2. DanChizz
      DanChizz
      (26 лет)
    3. DimitriyLadon
      DimitriyLadon
      (41 год)
    4. gals05
      gals05
      (64 года)
    5. ildarca
      ildarca
      (28 лет)
    Просмотреть все