Макросы в Power Mill

[Konstantin_VP 49]

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

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

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

Изменено 7 октября 2017 пользователем Konstantin_VP

[syncomp 18]

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

 

Изменено 7 октября 2017 пользователем syncomp

[eksodus 270]

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

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

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

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

Изменено 7 октября 2017 пользователем eksodus

[syncomp 18]

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 это не позволяет?Нужен конкретный путь, заключенный в кавычки?

[eksodus 270]

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

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

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

[syncomp 18]

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

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

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

 

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

[eksodus 270]

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 

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

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

[syncomp 18]

2 минуты назад, eksodus сказал:

ну как бы да

что-то вроде

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

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

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

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

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

[eksodus 270]

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

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

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

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

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

CD $Dirbase
MKDIR "Фрез"

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

MKDIR "$Dirbase/Фрез"

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

Изменено 7 октября 2017 пользователем eksodus

[kvint62 0]

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

[syncomp 18]

56 минут назад, kvint62 сказал:

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

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

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

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

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

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

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

[syncomp 18]

В 07.10.2017 в 17:07, syncomp сказал:

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

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

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

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

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

[eksodus 270]

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

 

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

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

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

Изменено 10 октября 2017 пользователем eksodus

[kvint62 0]

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

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

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

[syncomp 18]

В 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

 

Изменено 15 октября 2017 пользователем syncomp

[eksodus 270]

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

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

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

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

[syncomp 18]

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-файла, каждый содержит все траектории одного инструмента. Смены инструмента у нас нет...

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

Изменено 15 октября 2017 пользователем syncomp

[syncomp 18]

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

[impact 10]

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
}

[syncomp 18]

В 16.10.2017 в 01:40, syncomp сказал:

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

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