Макросы в Power Mill

28 августа 2017

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

В руководстве я видел еще "input " "output"

Это идентификаторы файлов. Имя идентификатору можно дать любое.

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

28 августа 2017

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

то идентификаторы файлов. Имя идентификатору можно дать любое

Понятно. Идентификатор это то, что в В вашем макросе Zagotovka?

28 августа 2017

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

Идентификатор это то, что в В вашем макросе Zagotovka?

да, я ж вроде так и написал:

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

// Файлу присваивается идентификатор Zagotovka (можно любой)

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

5 сентября 2017

В 03.08.2017 в 11:44, syncomp сказал:

Да, макрос работает.Только не понятно зачем расширение файла и 9 символов после точки? Как я понимаю проект РМ создается в отдельной папке. о каком файле Вы говорите? Во всяком случае макрос работает.

Большое спасибо.

Вот более универсальный макрос (нет ограничений):

- Определяет путь к модели

- Определяет название модели (без формата)

- Находит совпадение по названию модели в строке пути (находит позицию начала совпадения)

- Отбрасывает всё, что находится после данной позиции в строке

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

- сохраняет проект.

 IF project_pathname(0) == '' {
   STRING ModelPath = folder('Model')[0].Path    //путь к модели
   STRING ModelName = FOLDER('model')[0].Name   //название модели (без формата)
   real Pos = position($ModelPath, $ModelName) // поиск позиции $ModelName в строке $ModelPath (0-начало)
   STRING $Dir = substring($ModelPath, 0, $Pos) //отображает строчку с позиции 0 до $Pos
   
   STRING $DirProject = $Dir + '/' + $ModelName
   PROJECT SAVE AS $DirProject
   
 } ELSE {
 
   PROJECT SAVE   
  
 }

9 сентября 2017

В 05.09.2017 в 23:30, Konstantin_VP сказал:

Вот более универсальный макрос (нет ограничений):

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

Отредактировал свой макрос для открытия папки с проектом и теперь он выполняет три действия:

1. Если открыт проект, то соответственно открывает папку где он находится.

2. Если проект не открыт или его ещё не существует, но открыта модель, то сохраняет проект по тому же пути и с тем же названием что и модель.

3. Если открыт просто экземпляр PowerMill, то появляется окно открытия проекта.

 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

//Если путь к проекту существует
If $Dir !='' {

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

//Если путь к проекту не существует
} else {

 
BOOL $err = 0
$err = ERROR(folder('Model')[0].Path)
//Если путь к модели не существует
IF $err {
 
 PROJECT OPEN PROJSELECTOR //окно открытия проекта

//Если путь к модели существует  
} else {

   STRING ModelPath = folder('Model')[0].Path    //путь к модели
   STRING ModelName = FOLDER('model')[0].Name   //название модели (без формата)
   int length_step = length($ModelName)        //количество символов в переменной $ModelName
   int Start = 0                              //Начало поиска в строке
 
 //Пока есть совпадения в строке $ModelPath
 While  position($ModelPath, $ModelName,$start)  >= 0 {
 
   //Позиция начала совпадения $ModelName в строке $ModelPath
   int POS = position($ModelPath, $ModelName, $start)
   $start = $POS + length_step
   
 }
 
   STRING $Dir = substring($ModelPath, 0, $start) //отображает строчку с позиции 0 до $start
   PROJECT SAVE AS $Dir
   
}

11 сентября 2017

В 09.09.2017 в 17:59, Konstantin_VP сказал:

Вот более универсальный макрос (нет ограничений):

Полезный макрос благодарствуем

15 сентября 2017

В 05.09.2017 в 23:30, Konstantin_VP сказал:

от более универсальный макрос (нет ограничений):

вообще и в моём макросе по сути ограничений нет - я поставил 9 символов с точкой отрезать

а расширение файла на 9 симоволов я не встречал

да и если даже найти такое расширение - цифру 9 всегда можно изменить на 20 )

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

Предлагаю макрос для быстрого выделения всех радиусов

// Скрываем ненужные элементы
	DIALOGS MESSAGE OFF
	DIALOGS ERROR OFF
	GRAPHICS LOCK
	DEACTIVATE TOOLPATH

BOOL option1 = FALSE
$option1 = QUERY "Выбрать только ВОГНУТЫЕ радиуса?"
IF $option1 {
	EDIT SELECTIONTOOLS MODEL ALL 
	FORM SELECTMINRAD
	VIEW MODEL ; 
	MINTOOLRAD "7"
	EDIT SELECTIONTOOLS INCLUDE_PARTIALS YES
	FORM APPLY SELECTMINRAD
	FORM ACCEPT SELECTMINRAD
}    ELSE    {

// Создаём обратную СК
	STRING activename = Workplane.name
	CREATE WORKPLANE "RAD"
	ACTIVATE Workplane "RAD"
	MODE NOGUI WORKPLANE_EDIT START ;
	MODE NOGUI WORKPLANE_EDIT TWIST Y
	MODE NOGUI WORKPLANE_EDIT TWIST "180"
	WPETWIST ACCEPT
	MODE NOGUI WORKPLANE_EDIT FINISH ACCEPT

// Задание заготовки
	ACTIVATE Workplane "RAD"
	EDIT MODEL ALL DESELECT ALL
	EDIT BLOCK COORDINATE WORKPLANE
	EDIT BLOCKTYPE BOX
	EDIT BLOCK ALL UNLOCK
	EDIT BLOCK TOLERANCE ".001"
	EDIT BLOCK RESETLIMIT "0"
	EDIT BLOCK LIMITTYPE MODEL
	EDIT BLOCK RESET
	UNDRAW BLOCK

// Перемещение Z0 на верхнюю плоскость, XY -  центр
	REAL $x0 = ($block.limits.xmax+$block.limits.xmin)/2
	REAL $y0 = ($block.limits.ymax+$block.limits.ymin)/2
	REAL $z0 = $block.limits.zmax
	MODE WORKPLANE_EDIT START ;
	MODE WORKPLANE_EDIT POSITION
	MODE POSITION CARTESIAN X $x0
	MODE POSITION CARTESIAN Y $y0
	MODE POSITION CARTESIAN Z $z0
	POSITION APPLY
	MODE WORKPLANE_EDIT FINISH ACCEPT

// Выбираем радиуса
	EDIT SELECTIONTOOLS MODEL ALL 
	FORM SELECTMINRAD
	VIEW MODEL ; 
	MINTOOLRAD "7"
	EDIT SELECTIONTOOLS INCLUDE_PARTIALS YES
	FORM APPLY SELECTMINRAD
	FORM ACCEPT SELECTMINRAD

// Удаляем созданную СК и активируем первоначально активную СК
	DELETE WORKPLANE "RAD"
	ACTIVATE Workplane $activename
}

//  Включаем отображение диалогов 
	DIALOGS MESSAGE ON
	DIALOGS ERROR ON
	GRAPHICS UNLOCK
	REFRESH VIEWMILL RESIZEVIEW

Например, есть такая модель:

R1.png.5c5816ab0a667e914f784face4e9de59.png

Запускаем макрос, который спрашивает: Выбрать только вогнутые радиуса ?

Если нажимаем ДА - результат такой:

R2.png.6c91940dd6557dd4b2b86f9147764180.png

Если нажать НЕТ - результат такой:

R3.png.e143a3f3540ab1a63c8ea0f7fa41ddf7.png

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

18 сентября 2017

В 15.09.2017 в 17:08, eksodus сказал:

вообще и в моём макросе по сути ограничений нет

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

18 сентября 2017

31 минуту назад, Konstantin_VP сказал:

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

конечно может

но мой макрос делает отсечение от самой крайней справа точки вместе с точкой

только что проверил - сделал модель Model00.01.02.sldprt

проект сохранился по моему макросу как Model00.01.02

цифра 9 - это сколько символов отрезается вместе с точкой, то есть точка и 8 символов расширения

а если вдруг и найдётся расширение больше чем на 8 символов (хоть я такого и не встречал) -

то цифру 9 всегда можно исправить на 15 или 20, или любое другое число

PS: А Вы можете помочь улучшить макрос для выбора радиусов ?

у меня задано напрямую -

MINTOOLRAD "7"

хотелось бы чтоб спрашивало.

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

18 сентября 2017

3 часа назад, eksodus сказал:
PS: А Вы можете помочь улучшить макрос для выбора радиусов ?

у меня задано напрямую -
MINTOOLRAD "7"
хотелось бы чтоб спрашивало.

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

// Скрываем ненужные элементы
	DIALOGS MESSAGE OFF
	DIALOGS ERROR OFF
	GRAPHICS LOCK
	DEACTIVATE TOOLPATH

BOOL option1 = FALSE
$option1 = QUERY "Выбрать только ВОГНУТЫЕ радиуса?"
real selectrad = 7
$selectrad = input "Select radius"
IF $option1 {
	EDIT SELECTIONTOOLS MODEL ALL 
	FORM SELECTMINRAD
	VIEW MODEL ; 
	MINTOOLRAD $selectrad
	EDIT SELECTIONTOOLS INCLUDE_PARTIALS YES
	FORM APPLY SELECTMINRAD
	FORM ACCEPT SELECTMINRAD
}    ELSE    {

// Создаём обратную СК
	STRING activename = Workplane.name
	CREATE WORKPLANE "RAD"
	ACTIVATE Workplane "RAD"
	MODE NOGUI WORKPLANE_EDIT START ;
	MODE NOGUI WORKPLANE_EDIT TWIST Y
	MODE NOGUI WORKPLANE_EDIT TWIST "180"
	WPETWIST ACCEPT
	MODE NOGUI WORKPLANE_EDIT FINISH ACCEPT

// Задание заготовки
	ACTIVATE Workplane "RAD"
	EDIT MODEL ALL DESELECT ALL
	EDIT BLOCK COORDINATE WORKPLANE
	EDIT BLOCKTYPE BOX
	EDIT BLOCK ALL UNLOCK
	EDIT BLOCK TOLERANCE ".001"
	EDIT BLOCK RESETLIMIT "0"
	EDIT BLOCK LIMITTYPE MODEL
	EDIT BLOCK RESET
	UNDRAW BLOCK

// Перемещение Z0 на верхнюю плоскость, XY -  центр
	REAL $x0 = ($block.limits.xmax+$block.limits.xmin)/2
	REAL $y0 = ($block.limits.ymax+$block.limits.ymin)/2
	REAL $z0 = $block.limits.zmax
	MODE WORKPLANE_EDIT START ;
	MODE WORKPLANE_EDIT POSITION
	MODE POSITION CARTESIAN X $x0
	MODE POSITION CARTESIAN Y $y0
	MODE POSITION CARTESIAN Z $z0
	POSITION APPLY
	MODE WORKPLANE_EDIT FINISH ACCEPT

// Выбираем радиуса
	EDIT SELECTIONTOOLS MODEL ALL 
	FORM SELECTMINRAD
	VIEW MODEL ; 
	MINTOOLRAD $selectrad
	EDIT SELECTIONTOOLS INCLUDE_PARTIALS YES
	FORM APPLY SELECTMINRAD
	FORM ACCEPT SELECTMINRAD

// Удаляем созданную СК и активируем первоначально активную СК
	DELETE WORKPLANE "RAD"
	ACTIVATE Workplane $activename
}

//  Включаем отображение диалогов 
	DIALOGS MESSAGE ON
	DIALOGS ERROR ON
	GRAPHICS UNLOCK
	REFRESH VIEWMILL RESIZEVIEW

Hide

18 сентября 2017

@impact спасибо )

24 сентября 2017

В 24.04.2016 в 12:28, Konstantin_VP сказал:

Макрос для нумерации траекторий.

Теперь данный макрос нумерует траектории в активной папке и в подпапках, кроме папки "temp". В процессе нумерации траектории не становятся активными, что значительно ускоряет процесс. Также сворачиваются директории "StockModel" и "NCPROGRAM" для предотвращения постоянного обновления списков. Шаблон нумерации: Q + порядковый номер + . + название траектории.

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

DIALOGS ERROR Off
DIALOGS MESSAGE Off

FUNCTION MAIN { 

//Свернуть модель материала
DoCommand 'EXPLORER SELECT StockModel ROOT'
DoCommand 'DEBUG EXPLORER KEY LEFT'

//Свернуть NC
DoCommand 'EXPLORER SELECT NCPROGRAM ROOT'
DoCommand 'DEBUG EXPLORER KEY LEFT'

STRING $nmb = '1' //счётчик

STRING $FolderName = ACTIVE_FOLDER() //определяет путь по активной папке

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

//Если нет активной папки в "Toolpath"
If $FolderNameToolpath !='Toolpath' {
$FolderName = 'Toolpath'
}

FOREACH t IN folder ($FolderName) {

ENTITY CurrentTP = t
STRING $OneName = $CurrentTP.Name              //имя активной траектории
STRING $ToolpathFolder = dirname(pathname(t)) // путь по активной траектории


string $temp = position(lcase($ToolpathFolder), 'temp',0)  //фильтр папки "temp"

//Если путь не содержит папку "temp"
If $temp  == -1 {

//Вызов функции
CALL TolpathCount($FolderName, $OneName, $nmb)

} else {

//

}

}


//FUNCTION MAIN
}


FUNCTION TolpathCount (STRING FolderName, STRING OneName, output STRING nmb) {

//проверка наличия Q
IF position(ucase(substring(OneName, 0, 1)), "Q") == -1 {

//Если Q нет

string $N=$nmb
string $newname='q'+$N+'.'+$OneName

//проверка наличия дубликатов
IF entity_exists('Toolpath',$newname) {
string $newname2= $newname+'_'
RENAME TOOLPATH $OneName $newname2
} else {
RENAME TOOLPATH $OneName $newname
}

$nmb = int (nmb) + 1 //счётчик траекторий

} else {

//Если Q есть

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

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

string $N=$nmb
string $newname='q'+$N+'.'+$Name

//проверка наличия дубликатов
IF entity_exists('Toolpath',$Name) {
string $newname2= $newname+'_'
RENAME TOOLPATH $OneName $newname2
} else {
RENAME TOOLPATH $OneName $newname
}

$nmb =  int (nmb) + 1 //счётчик траекторий

}

//FUNCTION TolpathCount
}


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

DIALOGS ERROR On
DIALOGS MESSAGE On

Hide

2 октября 2017

Всем привет. Стоит задача суммировать все статистическое время проекта.Задачу выполнил. Информацию беру из Статистики траектории путем накопления данных по каждой траектории через цикл FOREACH. Но что интересно - накопленная сумма исчезает. Такое чувство, что область действия объявленных переменных в цикле действуют только в самом цикле. Как только цикл отработан, переменные уничтожаются.Что делать?Может неправильно использую цикл?Я уже и в начале макроса объявлял переменную(строка 1) и перед непосредственно расчетом(строка5). В комментариях указываю, какой результат выводится...Чтобы это обойти есть мысль просто использовать цикл WHILE DO, но для этого нужно знать количество траекторий. А как узнать количество элементов в списке, папке, folder?

//int total=0
FOREACH tp in folder ('Toolpath') {
int arcs= $tp.Statistics.CuttingMoves.Times.Arcs
int lin=$tp.Statistics.CuttingMoves.Times.Linear
int total=0
int pos_arcs=position(arcs,",")
$arcs= substring($arcs,0,$pos_arcs)
int pos_lin= position(lin,",")
$lin=substring($lin,0,$pos_lin)

int time_lin=string($lin)
int time_arcs=string($arcs)
$total=time_lin+time_arcs+2
//Message info total(сообщение выводится при каждой итерации)
}
Message info total(ошибка :Неправильное имя)

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

2 октября 2017

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

Стоит задача суммировать все статистическое время проекта.

я чуть изменил свой макрос с предыдущей страницы

получилось вот так:

CREATE NCPROGRAM "Статистика"
EDIT NCPROGRAM ; APPEND TOOLPATH ALL

IF (ENTITY_EXISTS('ncprogram','')) {
ENTITY tpath = entity('ncprogram','')
REAL $total_time = $tpath.statistics.leadsandlinks.times.rapid
$total_time = total_time + $tpath.statistics.leadsandlinks.times.plunge
$total_time = total_time + $tpath.statistics.leadsandlinks.times.ramp
$total_time = total_time + $tpath.statistics.leadsandlinks.times.others
$total_time = total_time + $tpath.statistics.cuttingmoves.times.linear
$total_time = total_time + $tpath.statistics.cuttingmoves.times.arcs
STRING $msg = string(round($total_time,2))
$total_time = INPUT "Общее время проекта, минут:"
}

DELETE NCPROGRAM "Статистика"

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

В 06.02.2017 в 22:56, syncomp сказал:

У меня возникла такая проблема. Часто приходится переименовывать траектории. Помогите создать макрос, который бы переименовывал имена траекторий.

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

какой у вас шаблон для траекторий ?

можете написать штук 5 траекторий, как нужно ? или скриншот дать ?

или вопрос уже решён ?

2 октября 2017

для с#

pm11.GetEntityList(PowerSolutionDOTNetOLE.clsPowerMILLOLE.enumPowerMILLEntityType.pmToolpath, ref ii17, ref ss26, ref ii16);

где ii17 - число траекторий, ss26 - массив имен траекторий, ii16 - активная траектория

может пора переходить на vb или c# ? и проще, и отладчик ошибок есть .....

2 октября 2017

1 час назад, eksodus сказал:
я чуть изменил свой макрос с предыдущей страницы

получилось вот так:
CREATE NCPROGRAM "Статистика"
EDIT NCPROGRAM ; APPEND TOOLPATH ALL

IF (ENTITY_EXISTS('ncprogram','')) {
ENTITY tpath = entity('ncprogram','')
REAL $total_time = $tpath.statistics.leadsandlinks.times.rapid
$total_time = total_time + $tpath.statistics.leadsandlinks.times.plunge
$total_time = total_time + $tpath.statistics.leadsandlinks.times.ramp
$total_time = total_time + $tpath.statistics.leadsandlinks.times.others
$total_time = total_time + $tpath.statistics.cuttingmoves.times.linear
$total_time = total_time + $tpath.statistics.cuttingmoves.times.arcs
STRING $msg = string(round($total_time,2))
$total_time = INPUT "Общее время проекта, минут:"
}

DELETE NCPROGRAM "Статистика"
кстати, вопрос у меня есть - Вы как-то писали

какой у вас шаблон для траекторий ?

можете написать штук 5 траекторий, как нужно ? или скриншот дать ?

или вопрос уже решён ?

Макрос на переименование траекторий я написал давно и активно им пользуюсь. Шаблона как такового нет. Оставляю нумерованный список. При переименовании просто прибавляю 100(из соображения, что больше 100 траекторий не будет), к старому имени. Когда все переименованы с+100, то переименовываю по-новой, но уже по порядку.

int i=100
FOREACH tp IN folder('Toolpath') {
STRING NewName =tp.Name+string(i)
RENAME TOOLPATH $tp.Name $NewName
$i=i+1
}

int j=1
FOREACH tp IN folder('Toolpath') {
STRING NewName =string(j)
RENAME TOOLPATH $tp.Name $NewName
$j=j+1
}

И спасибо за помощь. создавать NC-файл в данном случае обязательно? Ведь статистику можно получить из траекторий? А потом его удалять. Во всяком случае попробую сам без создания NC.

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

2 октября 2017

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

И спасибо за помощь. создавать NC-файл в данном случае обязательно? Ведь статистику можно получить из траекторий? А потом его удалять. Во всяком случае попробую сам без создания NC.

ну - этот NC-файл и удаляется же макросом, вроде ничего сложного

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

а если в сумме нужно всех траекторий - то из NC-файла, в котором есть все траектории

как их сложить без NC-файла может и есть решение - я без понятия

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

Макрос на переименование траекторий я написал давно и активно им пользуюсь. Шаблона как такового нет. Оставляю нумерованный список. При переименовании просто прибавляю 100(из соображения, что больше 100 траекторий не будет), к старому имени. Когда все переименованы с+100, то переименовываю по-новой, но уже по порядку.

а я не 100 прибавляю - а подчёркивание

траекторий 1_ или 2_ у меня точно не бывает

а удобно просто номера порядковые траекторий и всё ?

ошибок нет ?

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

результат примерно такой -

1 D10

2 D4

3 D2

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

pm11.GetEntityList(PowerSolutionDOTNetOLE.clsPowerMILLOLE.enumPowerMILLEntityType.pmToolpath, ref ii17, ref ss26, ref ii16);

а как этим пользоваться, можно краткую инструкцию ?

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

3 октября 2017

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

а как этим пользоваться, можно краткую инструкцию ?

https://forums.autodesk.com/t5/powershape-and-powermill-api/getting-started-with-powershape-and-powermill-api/td-p/6868839

здесь документация "свежая",

можно на форумах поискать аналогичную (не Autodesk, а еще Делкамовскую для версий Powermill до 2016 года).

а если в частности про эту строку, в код ее заводите и у вас в указанные переменные считываются все имена траекторий, их количество и порядковый номер активной.

5 октября 2017

В 03.10.2017 в 07:51, dd22 сказал:

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

спасибо, почитаю

7 октября 2017

Всем привет! Вынужден опять вернуться к разговору о файлах. Запись и чтение в файлы. Как пользоваться командами FILE OPEN я разобрался. Но вот в чем проблема. При открытии файла указывается путь к нему. Ну а если мне заранее не известен путь или нужный мне файл при выполнении макроса должен находится в другом месте, не в том, что записано в тексте макроса или имя файла должно быть другим... Т.е.

Записано так:

FILE OPEN "D:\ My_file.txt" ...

Откроется файл My_file.txt в корне диска D.

Мне же надо будет когда-то, чтобы этот макрос открыл файл "D:\Project1\Your_file.txt"

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

Войти

Макросы в Power Mill

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

eksodus 270

Ссылка на сообщение

Поделиться на других сайтах

syncomp 18

Ссылка на сообщение

Поделиться на других сайтах

eksodus 270

Ссылка на сообщение

Поделиться на других сайтах

Konstantin_VP 49

Ссылка на сообщение

Поделиться на других сайтах

Konstantin_VP 49

Ссылка на сообщение

Поделиться на других сайтах

sssdos 138

Ссылка на сообщение

Поделиться на других сайтах

eksodus 270

Ссылка на сообщение

Поделиться на других сайтах

Konstantin_VP 49

Ссылка на сообщение

Поделиться на других сайтах

eksodus 270

Ссылка на сообщение

Поделиться на других сайтах

impact 10

Ссылка на сообщение

Поделиться на других сайтах

eksodus 270

Ссылка на сообщение

Поделиться на других сайтах

Konstantin_VP 49

Ссылка на сообщение

Поделиться на других сайтах

syncomp 18

Ссылка на сообщение

Поделиться на других сайтах

eksodus 270

Ссылка на сообщение

Поделиться на других сайтах

dd22 13

Ссылка на сообщение

Поделиться на других сайтах

syncomp 18

Ссылка на сообщение

Поделиться на других сайтах

eksodus 270

Ссылка на сообщение

Поделиться на других сайтах

dd22 13

Ссылка на сообщение

Поделиться на других сайтах

eksodus 270

Ссылка на сообщение

Поделиться на других сайтах

syncomp 18

Ссылка на сообщение

Поделиться на других сайтах

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

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

Сообщения