Форум профессиональных мебельщиков PROMEBELclub
 
PROMEBELclub - Форум для мебельщиков: конструкторов, дизайнеров, мастеров, технологов и всех, кто имеет отношение к производству и изготовлению мебели. Программы для конструирования и дизайна мебели. Мебельная литература и обучающие пособия.
 
 

Вернуться   Форум профессиональных мебельщиков PROMEBELclub > Программы для мебельщиков > Программы для конструирования и дизайна мебели > Система БАЗИС > Базис-мебельщик. Скрипты

Меню

Маркет


Ответ
 
Опции темы Опции просмотра
Старый 13.01.2014, 13:22  
БАЗИС 9 - Скрипты
 
Аватар для Igor_482
Igor_482
VIP
Регистрация: 03.09.2008
Сообщений: 174

Сказал(а) спасибо: 34
Поблагодарили 794 раз(а) в 113 сообщениях
Версия для печати Отправить по электронной почте
Igor_482 Igor_482 вне форума 13.01.2014, 13:22
Рейтинг: ()

ВНИМАНИЕ! Правила выкладывания скриптов.

1. Если в скрипте нет ссылок на фурнитуру, фрагменты и.т.д то достаточно его упаковать в архив и выложить.

2. Если в скрипте есть ссылки на фурнитуру, фрагменты и т.д. то архив должен содержать папку с самим скриптом и всеми файлами на которые есть ссылки в тексте скрипта.


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

__________________________________________________ _______________

Интересует информация по редактору скриптов в БМ8. Существует ли справочная документация и примеры использования скриптов в БМ8. Какие возможности дает данная функция? Владеющим информацией по данному вопросу просьба поделиться ею.

Для работы скриптов от Igor_482 необходим установленный ODBC драйвер FireBird, установленные и зарегистрированные в ОС модули FBDBDialog.dll, MSDATGRD.OCX, MSCOMCTL.OCX и MSSTDFMT.DLL (сообщение с описанием установки этих модулей в ОС, ссылка на модули и исходник "FBDBDialog.dll") а так же файл "ADODB.ini" с настройками соединения к БД в папке со скриптом.

ADODB.ini


[General]
FDBServ = t001
FBSPort = 14357
FDBFile = D:\DBBM\Библиотека\БД\BMDB09.FDB
FBCFile = C:\Windows\System32\fbclient.dll
----------------------------------------------
Переменные .ini:
FDBServ - имя ПК на котором находится сервер FireBird с используемой БД (если локально, то параметр: localhost или 127.0.0.1);
FBSPort - в настройке не нуждается (по умолчанию: 14357);
FDBFile - локальный путь к БД на сервере FireBird;
FBCFile - путь к файлу "fbclient.dll" (находится в корневой папке программы Базис).
[свернуть]

Последний раз редактировалось systland; 23.09.2016 в 11:52..
Просмотров: 999900
Ответить с цитированием Вверх
Пользователь сказал cпасибо:
evilbaby1989 (10.07.2023)
Старый 15.08.2014, 16:26   #421
Am0ralist
Местный
 
Регистрация: 16.11.2011
Адрес: Москва / Пенза
Сообщений: 1,135
Сказал(а) спасибо: 307
Поблагодарили 1,257 раз(а) в 524 сообщениях
Вес репутации: 516
Am0ralist за этого человека можно гордитсяAm0ralist за этого человека можно гордитсяAm0ralist за этого человека можно гордитсяAm0ralist за этого человека можно гордитсяAm0ralist за этого человека можно гордитсяAm0ralist за этого человека можно гордитсяAm0ralist за этого человека можно гордитсяAm0ralist за этого человека можно гордитсяAm0ralist за этого человека можно гордится
По умолчанию

Цитата:
Сообщение от v22884 Посмотреть сообщение
Fasad.Owner = Obj.Owner
Пжлста, прикладывайте в следующий раз сам скрипт и с более явной разбивкой по функциям. а лучше еще и табулиции соблюдать.
тогда ваш код будет проще читать.

Итак, по вашему вопросу: вы хотите блоку присвоить то, какому блоку принадлежит панель?
если да, то код работает замечательно)))
панель должна быть в блоке. но при этом выделять перед запуском надо конкретно панель, а не блок, в котором она находится. тогда все работает.
__________________
Нахожусь в режиме поиска интересных задач, связанных с Базисом. Москва, 2015.
Am0ralist вне форума   Ответить с цитированием Вверх
Старый 16.08.2014, 23:41   #422
bolshoy
Местный
 
Регистрация: 18.08.2008
Сообщений: 116
Сказал(а) спасибо: 110
Поблагодарили 105 раз(а) в 27 сообщениях
Вес репутации: 224
bolshoy скоро придёт к известностиbolshoy скоро придёт к известности
По умолчанию

Доброго времени суток уважаемые. Не подскажет ли кто , можно ли скриптом сохранить созданную этим же скриптом модель на диск.
bolshoy вне форума   Ответить с цитированием Вверх
Старый 17.08.2014, 06:45   #423
v22884
Местный
 
Регистрация: 17.04.2014
Адрес: д.Сибирцево, ателье-уют.рф
Сообщений: 454
Сказал(а) спасибо: 242
Поблагодарили 1,094 раз(а) в 210 сообщениях
Вес репутации: 387
v22884 за этого человека можно гордитсяv22884 за этого человека можно гордитсяv22884 за этого человека можно гордитсяv22884 за этого человека можно гордитсяv22884 за этого человека можно гордитсяv22884 за этого человека можно гордитсяv22884 за этого человека можно гордитсяv22884 за этого человека можно гордится
По умолчанию

Цитата:
Итак, по вашему вопросу: вы хотите блоку присвоить то, какому блоку принадлежит панель?
если да, то код работает замечательно)))
панель должна быть в блоке. но при этом выделять перед запуском надо конкретно панель, а не блок, в котором она находится. тогда все работает.
Я понял ответ. И согласен с ним. Просто у меня как оказалось была проблема с прорисовкой профиля.

Я владельца присваивал блоку с профилем. Так вот после присвоения Вставка прорисовывалась, а профиль в структуре в полном порядке, а на экране отсутствовал.

Решился вопрос применением функции Build() к этому блоку с профилем.

Спасибо за ответ.

Добавлено через 6 минут
Цитата:
Доброго времени суток уважаемые. Не подскажет ли кто , можно ли скриптом сохранить созданную этим же скриптом модель на диск.
Хатишь модель созданную скриптом сохранить отдельно от остального содержания файла, либо задача звучит проще: сохранить файл скриптом.

У меня как у не профессионала пока приходят такие варианты как AHK.

Или сэмулировать нажатия клавишь CTRL+S.

Но к вопросу я присоединяюсь.
v22884 вне форума   Ответить с цитированием Вверх
Старый 17.08.2014, 13:00   #424
bolshoy
Местный
 
Регистрация: 18.08.2008
Сообщений: 116
Сказал(а) спасибо: 110
Поблагодарили 105 раз(а) в 27 сообщениях
Вес репутации: 224
bolshoy скоро придёт к известностиbolshoy скоро придёт к известности
По умолчанию

Цитата:
Хатишь модель созданную скриптом сохранить отдельно от остального содержания файла, либо задача звучит проще: сохранить файл скриптом.
Вопрос даже расширить бы нужно.
Можно ли скриптом создать модель, построить в ней то что нужно и сохранить на диск.
Предистория.
Решил в салоне заменять фасады. Нужны все типоразмеры. Скрипт сделал мне их все на одном листе. Сижу тыкаю в каждый фасад и сохраняю как фрагмент в библиотеку. Фасадов девять типов штук по двести в каждом плюс рамки. Долго тыкать буду ((. Фасады все сделал за час, а сохранять буду х.з сколько.
bolshoy вне форума   Ответить с цитированием Вверх
Старый 19.08.2014, 14:06   #425
v22884
Местный
 
Регистрация: 17.04.2014
Адрес: д.Сибирцево, ателье-уют.рф
Сообщений: 454
Сказал(а) спасибо: 242
Поблагодарили 1,094 раз(а) в 210 сообщениях
Вес репутации: 387
v22884 за этого человека можно гордитсяv22884 за этого человека можно гордитсяv22884 за этого человека можно гордитсяv22884 за этого человека можно гордитсяv22884 за этого человека можно гордитсяv22884 за этого человека можно гордитсяv22884 за этого человека можно гордитсяv22884 за этого человека можно гордится
По умолчанию

Цитата:
ад и сохраняю как фрагмент
То есть сохранить надо не как b3d, а как fr3d.

По эмуляции клавиш ничё работающего не нарыл в java. Использовал Sendkey в vbs. Чот не срабатывает.

Работает в AHK http://www.macrocreator.com/project/

потом командой

system.exec ('C:/!заказы/__________ПО/Bazis8/Scripts/sr.exe')

Эта команда запускает программу, предварительно созданную в Макрокреэйтере. В макросе Макрокреэйтера съэмулировать нажатие горячих клавиш для сохранения фрагмента. (у меня шифт+R).

ну а потом видимо надо командами на которые маловато примеров заставить бегать курсор и кликать в точку объекта.

Такими типа как

Action.MoveCursor(10,300)

и

Action.DoClick()


но наверно в параметры DoClick надо указать кнопку правую или левую, а мож и нет. но у меня пока не сработал DoClick. Пробовал жать на Файл в меню.

Ну а дальше наверно пользуясь тем же Макрокреэйтером вставляем заранее припасённый путь и имя файла в окно сохранения фрагмента.

и им же жмём сохранить.

...

Полная хрень.

Можь Базис софт таки снизойдёт до мирзких нужд клиентов.

И даст команды сохранения файлов моделей и фрагментов.
v22884 вне форума   Ответить с цитированием Вверх
Старый 26.08.2014, 09:28   #426
zorro
VIP
 
Аватар для zorro
 
Регистрация: 18.01.2008
Сообщений: 1,047
Сказал(а) спасибо: 2,864
Поблагодарили 1,853 раз(а) в 435 сообщениях
Вес репутации: 696
zorro обеспечил(а) себе прекрасное будущееzorro обеспечил(а) себе прекрасное будущееzorro обеспечил(а) себе прекрасное будущееzorro обеспечил(а) себе прекрасное будущееzorro обеспечил(а) себе прекрасное будущееzorro обеспечил(а) себе прекрасное будущееzorro обеспечил(а) себе прекрасное будущееzorro обеспечил(а) себе прекрасное будущееzorro обеспечил(а) себе прекрасное будущееzorro обеспечил(а) себе прекрасное будущееzorro обеспечил(а) себе прекрасное будущее
По умолчанию

Может кому пригодится такой скрипт. Он формирует из файла раскроя obl набор панелей прямоугольной формы в Базисе. Панели имеют кромку указанную в таблице раскроя.

Мы не занимаемся коммерческим раскроем. Но предистория такая.

Пришел "очень нужный" человек для нашей фирмы. В нем проснулся мастер. Он САМ разработал мебель, хотел чтобы мы напилили, покромили и присадили детали. Отказать ему - себе дороже.
Он принес размеры деталей и кроме размеров надо было где-то радиус сделать, где-то фаску и т.д. В Раскрое это никак не сделаешь. В Базисе тоскливо каждую панель в нужный размер загонять. Поступили проще.

Ввели размеры панелей и кромку в Базис-Раскрое, перегнали с помощью этого скрипта в Базис и там нужные панели отредактировали и добавили сквозные и глухие отверстия.
После этого и смета автоматом считается и программы для ЧПУ формируются.

Текст скрипта


String.prototype.float = function()
{
return parseFloat(this.replace(',', '.'));
}

function trim(s)
{
return rtrim(ltrim(s));
}

function ltrim(s)
{
return s.replace(/^\s+/, '');
}

function rtrim(s)
{
return s.replace(/\s+$/, '');
}

Make();
Action.Finish();

function Make()
{
file = system.askReadTextFile('obl');
arr = file.split('\n');
TekMat = '';
TekThick = 16;
np = 0;
PosX = -100;
PosZ = -100;
PX = 0;
GSx = 0;
DeleteNewObjects();
for (k = 0; k < arr.length; k++)
{
val = arr[k];
vals = val.split('\t');
if ((vals[0] == "Material ") && (vals[2] == "Slab"))
{
if (TekMat != vals[1])
{
if (TekMat != '') PosZ = Model.GSize.z;
PX = 0;
GSx = -100;
PosX = -100;
}
TekMat = vals[1];
continue;
}
if ((vals[0] == "Material ") && (vals[2] != "Slab")) TekMat = "";
if (TekMat == "") continue;
if (trim(val) == "") continue;

Poz = vals[0];
Dl = vals[1].float();
Sh = vals[2].float();
Kol = vals[3].float();
Orient = vals[4];
Name = vals[5];

L1Name = vals[7];
L1Obozn = vals[8];
L1Thickness = vals[9].float();
L1Sves = vals[26].float();

W1Name = vals[10];
W1Obozn = vals[11];
W1Thickness = vals[12].float();
W1Sves = vals[27].float();

L2Name = vals[13];
L2Obozn = vals[14];
L2Thickness = vals[15].float();
L2Sves = vals[28].float();

W2Name = vals[16];
W2Obozn = vals[17];
W2Thickness = vals[18].float();
W2Sves = vals[29].float();

if (TekMat != "")
{
for (k2 = 0; k2 < Kol; k2++)
{
DeleteNewObjects();
Panel = AddHorizPanel(0, 0, Dl, Sh, 0);
Panel.Thickness = TekThick;
if ((trim(L1Obozn) != ""))
{
Butt = Panel.Butts.Add();
Butt.ElemIndex = 2;
Butt.Material = L1Name;
Butt.Sign = L1Obozn;
Butt.Thickness = L1Thickness;
Butt.Overhung = L1Sves;
Butt.ClipPanel = false;
}
if ((trim(W1Obozn) != ""))
{
Butt = Panel.Butts.Add();
Butt.ElemIndex = 3;
Butt.Material = W1Name;
Butt.Sign = W1Obozn;
Butt.Thickness = W1Thickness;
Butt.Overhung = W1Sves;
Butt.ClipPanel = false;
}
if ((trim(L2Obozn) != ""))
{
Butt = Panel.Butts.Add();
Butt.ElemIndex = 0;
Butt.Material = L2Name;
Butt.Sign = L2Obozn;
Butt.Thickness = L2Thickness;
Butt.Overhung = L2Sves;
Butt.ClipPanel = false;
}
if ((trim(W2Obozn) != ""))
{
Butt = Panel.Butts.Add();
Butt.ElemIndex = 1;
Butt.Material = W2Name;
Butt.Sign = W2Obozn;
Butt.Thickness = W2Thickness;
Butt.Overhung = W2Sves;
Butt.ClipPanel = false;
}
Panel.Name = Name;
Panel.MaterialName = TekMat;
Panel.Thickness = 16;
if (Orient != " ") Panel.TextureOrientation = TextureOrientation.None
else Panel.TextureOrientation = TextureOrientation.Horizontal;
Panel.PositionX = PosX + 100;
Panel.PositionY = k2 * TekThick;
Panel.PositionZ = PosZ + 100;
PX = Panel.PositionX;
GSx = Panel.GSize.x;
Action.Commit();
}
PosX = PX + GSx;
}
}
}
[свернуть]
zorro вне форума   Ответить с цитированием Вверх
2 пользователя(ей) сказали cпасибо:
aleksanrhome (18.06.2017), Динар Бакиров (15.01.2018)
Старый 26.08.2014, 21:27   #427
yavsochi
Местный
 
Аватар для yavsochi
 
Регистрация: 28.07.2008
Адрес: Краснодарский край, г. Сочи
Сообщений: 350
Сказал(а) спасибо: 1,107
Поблагодарили 554 раз(а) в 178 сообщениях
Вес репутации: 338
yavsochi - это имя известно всемyavsochi - это имя известно всемyavsochi - это имя известно всемyavsochi - это имя известно всемyavsochi - это имя известно всемyavsochi - это имя известно всем
По умолчанию

Цитата:
Может кому пригодится такой скрипт. Он формирует из файла раскроя obl набор панелей прямоугольной формы в Базисе. Панели имеют кромку указанную в таблице раскроя.

Мы не занимаемся коммерческим раскроем. Но предистория такая.

Пришел "очень нужный" человек для нашей фирмы. В нем проснулся мастер. Он САМ разработал мебель, хотел чтобы мы напилили, покромили и присадили детали. Отказать ему - себе дороже.
Он принес размеры деталей и кроме размеров надо было где-то радиус сделать, где-то фаску и т.д. В Раскрое это никак не сделаешь. В Базисе тоскливо каждую панель в нужный размер загонять. Поступили проще.

Ввели размеры панелей и кромку в Базис-Раскрое, перегнали с помощью этого скрипта в Базис и там нужные панели отредактировали и добавили сквозные и глухие отверстия.
После этого и смета автоматом считается и программы для ЧПУ формируются.
Очень хороший скрипт, молодца. Теперь надо подумать как его реализовать правильно, так как у нас принимают раскрой девчата и тут им мебельщик не по силам, но всё же очень крутой скрипт, для таких организаций как вы описали выше.
__________________
yavsochi вне форума   Ответить с цитированием Вверх
Старый 29.08.2014, 06:30   #428
v22884
Местный
 
Регистрация: 17.04.2014
Адрес: д.Сибирцево, ателье-уют.рф
Сообщений: 454
Сказал(а) спасибо: 242
Поблагодарили 1,094 раз(а) в 210 сообщениях
Вес репутации: 387
v22884 за этого человека можно гордитсяv22884 за этого человека можно гордитсяv22884 за этого человека можно гордитсяv22884 за этого человека можно гордитсяv22884 за этого человека можно гордитсяv22884 за этого человека можно гордитсяv22884 за этого человека можно гордитсяv22884 за этого человека можно гордится
По умолчанию

Ставит ножки как в шкафе.


Скрытый текст



FileOptions = 'Основные настройки.xml';










MakeProperties();

Action.Properties.Load(FileOptions);



Action.OnFinish = function() {
Action.Properties.Save(FileOptions);
}
BtnMake = NewButtonInput('Закончить');
BtnMake.OnChange = function() {
Make(); //Вызываем функцию построения всех панелей
Action.Finish();
}


Make();



Action.Continue();













true;





//////////////////////////////////////////


//////////////////////////////////////////

////////////////////////////////////////// --------- ОКНО СВОЙСТВ


function MakeProperties() {

Prop = Action.Properties;



otsPeredZad = Prop.NewNumber('Отступ Перед/Зад',50);
otsBoka = Prop.NewNumber('Отступ бока',50);
K_row = Prop.NewNumber('Количество рядов',2);

K_row.OnChange = function() {

if (K_row.Value<2) {

K_row.Value=2
}
}

Krepej = Prop.NewFurniture('Ножки');




OkBtn = Prop.NewButton('Построить');


OkBtn.OnClick = function() {
Make(); //Вызываем функцию построения всех панелей
Action.Finish();
}







Prop.OnChange = function() {
//if (Fas.Value > Hd.Value) alert('Предупреждение! Фаска больше чем высота дна.')
Make(); //Вызываем функцию построения всех панелей
};


}





//Obj = Model.Selected;


function Make()
{
DeleteNewObjects();
//FileFreza = 'Фреза1.frw';
// conturFrezi=NewContour();
// conturFrezi.Load(FileFreza);
Model.forEach (function(Obj) {

if (Obj.Selected == true)

{
Nojki(Obj)




}
} )





}

function Nojki(Obj) {

if (Krepej.Value)
{
otsPered=otsPeredZad.Value;
otsBok = otsBoka.Value;
ryadov = K_row.Value;


lnpv = GabarityContura(Obj);


ln = NewPoint(lnpv[0].x+otsBok,lnpv[0].y+otsPered);
pv = NewPoint(lnpv[1].x-otsBok,lnpv[1].y-otsPered);

mejdu_ryadov = (pv.x-ln.x)/(ryadov-1)

ryad=1

while (ryad<ryadov+1)
{
p1 = NewPoint(ln.x+(mejdu_ryadov*(ryad-1)), ln.y)
p2 = NewPoint(ln.x+(mejdu_ryadov*(ryad-1)), pv.y)



Krepej.Value.Mount1(Obj,Obj.ObjectToGlobal(p1), 0);
Krepej.Value.Mount1(Obj,Obj.ObjectToGlobal(p2), 0);
ryad++;
}


}


}





function GabarityContura(Obj)

{
var text = '';


ln = NewPoint(0, 0); //левый низ
lv = NewPoint(0, 0); //левый верх
pn = NewPoint(0, 0); //правый низ
pv = NewPoint(0, 0); //правый верх контура

kontur = Obj.Contour;

kstoron = kontur.Count;
// var k_ne_krugov = 0;
for (i = 0; i < kstoron; i++) {
if (kontur[i].ElType != 3) { //k_ne_krugov = k_ne_krugov+1

ln = NewPoint(Math.round(kontur[i].Pos1.x * 10) / 10, Math.round(kontur[i].Pos1.y * 10) / 10);
lv = NewPoint(Math.round(kontur[i].Pos1.x * 10) / 10, Math.round(kontur[i].Pos1.y * 10) / 10);
pn = NewPoint(Math.round(kontur[i].Pos1.x * 10) / 10, Math.round(kontur[i].Pos1.y * 10) / 10);
pv = NewPoint(Math.round(kontur[i].Pos1.x * 10) / 10, Math.round(kontur[i].Pos1.y * 10) / 10);
}

};



for (i = 0; i < kstoron; i++) {
if (kontur[i].ElType != 3) {
Pos1x = Math.round(kontur[i].Pos1.x * 10) / 10;
Pos1y = Math.round(kontur[i].Pos1.y * 10) / 10;
Pos2x = Math.round(kontur[i].Pos2.x * 10) / 10;
Pos2y = Math.round(kontur[i].Pos2.y * 10) / 10;


if (ln.x > Pos1x) {
ln.x = Pos1x
};
if (ln.x > Pos2x) {
ln.x = Pos2x
};
if (ln.y > Pos1y) {
ln.y = Pos1y
};
if (ln.y > Pos2y) {
ln.y = Pos2y
};

if (lv.x > Pos1x) {
lv.x = Pos1x
};
if (lv.x > Pos2x) {
lv.x = Pos2x
};
if (lv.y < Pos1y) {
lv.y = Pos1y
};
if (lv.y < Pos2y) {
lv.y = Pos2y
};

if (pn.x < Pos1x) {
pn.x = Pos1x
};
if (pn.x < Pos2x) {
pn.x = Pos2x
};
if (pn.y > Pos1y) {
pn.y = Pos1y
};
if (pn.y > Pos2y) {
pn.y = Pos2y
};

if (pv.x < Pos1x) {
pv.x = Pos1x
};
if (pv.x < Pos2x) {
pv.x = Pos2x
};
if (pv.y < Pos1y) {
pv.y = Pos1y
};
if (pv.y < Pos2y) {
pv.y = Pos2y
};

}
};

text4 = ('ln ---- ' + ln.x + ' - ' + ln.y + '\n' +
'lv ---- ' + lv.x + ' - ' + lv.y + '\n' +
'pn ---- ' + pn.x + ' - ' + pn.y + '\n' +
'pv ---- ' + pv.x + ' - ' + pv.y + '\n');
// alert(text4);
ln_v = ln; //левый низ выреза
pv_v = pv; //правый верх выреза

if (ln_v.x < lv.x) {
ln_v.x = lv.x
};
if (ln_v.y < pn.y) {
ln_v.y = pn.y
};

if (pv_v.x > pn.x) {
pv_v.x = pn.x
};
if (pv_v.y > lv.y) {
pv_v.y = lv.y
};





SeredinaVisotiPaneli = (pv_v.y - ln_v.y) * 0.5;
SeredinaShiriniPaneli = (pv_v.x - ln_v.x) * 0.5;






lnpv = []




lnpv.push(ln_v);
lnpv.push(pv_v);



return lnpv
}




[свернуть]
v22884 вне форума   Ответить с цитированием Вверх
Пользователь сказал cпасибо:
KFAL (26.10.2017)
Старый 29.08.2014, 11:51   #429
v22884
Местный
 
Регистрация: 17.04.2014
Адрес: д.Сибирцево, ателье-уют.рф
Сообщений: 454
Сказал(а) спасибо: 242
Поблагодарили 1,094 раз(а) в 210 сообщениях
Вес репутации: 387
v22884 за этого человека можно гордитсяv22884 за этого человека можно гордитсяv22884 за этого человека можно гордитсяv22884 за этого человека можно гордитсяv22884 за этого человека можно гордитсяv22884 за этого человека можно гордитсяv22884 за этого человека можно гордитсяv22884 за этого человека можно гордится
По умолчанию

То ж самое
Ставит ножки как в шкафе.

Но ещё можно крутить, для не цилиндрических ножек полезно.

Скрытый текст



FileOptions = 'Основные настройки.xml';










MakeProperties();

Action.Properties.Load(FileOptions);



Action.OnFinish = function() {
Action.Properties.Save(FileOptions);
}
BtnMake = NewButtonInput('Закончить');
BtnMake.OnChange = function() {
Make(); //Вызываем функцию построения всех панелей
Action.Finish();
}


Make();



Action.Continue();













true;





//////////////////////////////////////////


//////////////////////////////////////////

////////////////////////////////////////// --------- ОКНО СВОЙСТВ


function MakeProperties() {

Prop = Action.Properties;



otsPeredZad = Prop.NewNumber('Отступ Перед/Зад',50);
otsBoka = Prop.NewNumber('Отступ бока',50);
K_row = Prop.NewNumber('Количество рядов',2);

K_row.OnChange = function() {

if (K_row.Value<2) {

K_row.Value=2
}
}

Krepej = Prop.NewFurniture('Ножки');
Povorachivat = Prop.NewBool('Поворачивать')
PovernutDop = Prop.NewCombo('Развернить ножку на', '0\n90\n180\n270');



OkBtn = Prop.NewButton('Построить',true);


OkBtn.OnClick = function() {
Make(); //Вызываем функцию построения всех панелей
Action.Finish();
}







Prop.OnChange = function() {
//if (Fas.Value > Hd.Value) alert('Предупреждение! Фаска больше чем высота дна.')
Make(); //Вызываем функцию построения всех панелей
};


}





//Obj = Model.Selected;


function Make()
{
DeleteNewObjects();
//FileFreza = 'Фреза1.frw';
// conturFrezi=NewContour();
// conturFrezi.Load(FileFreza);
Model.forEach (function(Obj) {

if (Obj.Selected == true)

{
Nojki(Obj)




}
} )





}

function Nojki(Obj) {

if (Krepej.Value)
{
otsPered=otsPeredZad.Value;
otsBok = otsBoka.Value;
ryadov = K_row.Value;


lnpv = GabarityContura(Obj);


ln = NewPoint(lnpv[0].x+otsBok,lnpv[0].y+otsPered);
pv = NewPoint(lnpv[1].x-otsBok,lnpv[1].y-otsPered);

mejdu_ryadov = (pv.x-ln.x)/(ryadov-1)

ryad=1

while (ryad<ryadov+1)
{

if(Povorachivat.Value)
{

ugolPovorotaPered=(-(135+(90*(ryad-1)/(ryadov-1)))) + Math.round(PovernutDop.Value)
ugolPovorotaZad=(-(45-(90*(ryad-1)/(ryadov-1)))) + Math.round(PovernutDop.Value)

}
else
{

ugolPovorotaPered=0
ugolPovorotaZad=0

}

p1 = NewPoint(ln.x+(mejdu_ryadov*(ryad-1)), ln.y)
p2 = NewPoint(ln.x+(mejdu_ryadov*(ryad-1)), pv.y)



Krepej.Value.Mount1(Obj,Obj.ObjectToGlobal(p1), ugolPovorotaPered);
Krepej.Value.Mount1(Obj,Obj.ObjectToGlobal(p2), ugolPovorotaZad);
ryad++;
}


}


}





function GabarityContura(Obj)

{
var text = '';


ln = NewPoint(0, 0); //левый низ
lv = NewPoint(0, 0); //левый верх
pn = NewPoint(0, 0); //правый низ
pv = NewPoint(0, 0); //правый верх контура

kontur = Obj.Contour;

kstoron = kontur.Count;
// var k_ne_krugov = 0;
for (i = 0; i < kstoron; i++) {
if (kontur[i].ElType != 3) { //k_ne_krugov = k_ne_krugov+1

ln = NewPoint(Math.round(kontur[i].Pos1.x * 10) / 10, Math.round(kontur[i].Pos1.y * 10) / 10);
lv = NewPoint(Math.round(kontur[i].Pos1.x * 10) / 10, Math.round(kontur[i].Pos1.y * 10) / 10);
pn = NewPoint(Math.round(kontur[i].Pos1.x * 10) / 10, Math.round(kontur[i].Pos1.y * 10) / 10);
pv = NewPoint(Math.round(kontur[i].Pos1.x * 10) / 10, Math.round(kontur[i].Pos1.y * 10) / 10);
}

};



for (i = 0; i < kstoron; i++) {
if (kontur[i].ElType != 3) {
Pos1x = Math.round(kontur[i].Pos1.x * 10) / 10;
Pos1y = Math.round(kontur[i].Pos1.y * 10) / 10;
Pos2x = Math.round(kontur[i].Pos2.x * 10) / 10;
Pos2y = Math.round(kontur[i].Pos2.y * 10) / 10;


if (ln.x > Pos1x) {
ln.x = Pos1x
};
if (ln.x > Pos2x) {
ln.x = Pos2x
};
if (ln.y > Pos1y) {
ln.y = Pos1y
};
if (ln.y > Pos2y) {
ln.y = Pos2y
};

if (lv.x > Pos1x) {
lv.x = Pos1x
};
if (lv.x > Pos2x) {
lv.x = Pos2x
};
if (lv.y < Pos1y) {
lv.y = Pos1y
};
if (lv.y < Pos2y) {
lv.y = Pos2y
};

if (pn.x < Pos1x) {
pn.x = Pos1x
};
if (pn.x < Pos2x) {
pn.x = Pos2x
};
if (pn.y > Pos1y) {
pn.y = Pos1y
};
if (pn.y > Pos2y) {
pn.y = Pos2y
};

if (pv.x < Pos1x) {
pv.x = Pos1x
};
if (pv.x < Pos2x) {
pv.x = Pos2x
};
if (pv.y < Pos1y) {
pv.y = Pos1y
};
if (pv.y < Pos2y) {
pv.y = Pos2y
};

}
};

text4 = ('ln ---- ' + ln.x + ' - ' + ln.y + '\n' +
'lv ---- ' + lv.x + ' - ' + lv.y + '\n' +
'pn ---- ' + pn.x + ' - ' + pn.y + '\n' +
'pv ---- ' + pv.x + ' - ' + pv.y + '\n');
// alert(text4);
ln_v = ln; //левый низ выреза
pv_v = pv; //правый верх выреза

if (ln_v.x < lv.x) {
ln_v.x = lv.x
};
if (ln_v.y < pn.y) {
ln_v.y = pn.y
};

if (pv_v.x > pn.x) {
pv_v.x = pn.x
};
if (pv_v.y > lv.y) {
pv_v.y = lv.y
};





SeredinaVisotiPaneli = (pv_v.y - ln_v.y) * 0.5;
SeredinaShiriniPaneli = (pv_v.x - ln_v.x) * 0.5;






lnpv = []




lnpv.push(ln_v);
lnpv.push(pv_v);



return lnpv
}




[свернуть]
v22884 вне форума   Ответить с цитированием Вверх
3 пользователя(ей) сказали cпасибо:
KFAL (26.10.2017), Динар Бакиров (15.01.2018), тех.нолог (20.01.2016)
Старый 03.09.2014, 12:41   #430
v22884
Местный
 
Регистрация: 17.04.2014
Адрес: д.Сибирцево, ателье-уют.рф
Сообщений: 454
Сказал(а) спасибо: 242
Поблагодарили 1,094 раз(а) в 210 сообщениях
Вес репутации: 387
v22884 за этого человека можно гордитсяv22884 за этого человека можно гордитсяv22884 за этого человека можно гордитсяv22884 за этого человека можно гордитсяv22884 за этого человека можно гордитсяv22884 за этого человека можно гордитсяv22884 за этого человека можно гордитсяv22884 за этого человека можно гордится
По умолчанию

Подпятники.

На законченность и идеал не претендует, но вроде работает.


Скрытый текст



FileOptions = 'Основные настройки.xml';










MakeProperties();

Action.Properties.Load(FileOptions);



Action.OnFinish = function() {
Action.Properties.Save(FileOptions);
}
BtnMake = NewButtonInput('Закончить');
BtnMake.OnChange = function() {
Make(); //Вызываем функцию построения всех панелей
Action.Finish();
}


Make();



Action.Continue();













true;





//////////////////////////////////////////


//////////////////////////////////////////

////////////////////////////////////////// --------- ОКНО СВОЙСТВ


function MakeProperties() {

Prop = Action.Properties;



otsPered = Prop.NewNumber('Отступ Перед',50);
otsZad = Prop.NewNumber('Отступ Зад',70);


K_row = Prop.NewNumber('Количество на деталь',2);

K_row.OnChange = function() {

if (K_row.Value<1) {

K_row.Value=1
}
}

Krepej = Prop.NewFurniture('Ножки в торец или подпятники');
V_razniyeStorony = Prop.NewBool('В разные стороны')
V_Drugiye_razniyeStorony = Prop.NewBool('В ДРУГИЕ разные стороны')
PovernutDop = Prop.NewCombo('Развернить ножку на X', '0\n90\n180\n270');
PovernutDopY = Prop.NewCombo('Развернить ножку на Y', '0\n90\n180\n270');
PovernutDopZ = Prop.NewCombo('Развернить ножку на Z', '0\n90\n180\n270');
OtrazitX = Prop.NewBool('Отразить X')
OtrazitY = Prop.NewBool('Отразить Y')
OtrazitZ = Prop.NewBool('Отразить Z')



OkBtn = Prop.NewButton('Построить',true);


OkBtn.OnClick = function() {
Make(); //Вызываем функцию построения всех панелей
Action.Finish();
}







Prop.OnChange = function() {
//if (Fas.Value > Hd.Value) alert('Предупреждение! Фаска больше чем высота дна.')
Make(); //Вызываем функцию построения всех панелей
};


}





//Obj = Model.Selected;


function Make()
{
DeleteNewObjects();
//FileFreza = 'Фреза1.frw';
// conturFrezi=NewContour();
// conturFrezi.Load(FileFreza);
Model.forEach (function(Obj) {

if (Obj.Selected == true)

{
Nojki(Obj)




}
} )





}

function Nojki(Obj) {

if (Krepej.Value)
{
otsPered_=otsPered.Value;
otsZad_=otsZad.Value;

ryadov = K_row.Value;


lnpv = GabarityContura(Obj);


ln =lnpv[0];
pv = lnpv[1];



//Niz = OpredelitNiz(Obj, ln, pv)

// NizWdol = p.ContourWidth
// NizH = p.ContourHeight

// пока не определили

if(V_razniyeStorony.Value)
{

ugolPovorotaPered=(-(135+(90*(ryad-1)/(ryadov-1)))) + Math.round(PovernutDop.Value)
ugolPovorotaZad=(-(45-(90*(ryad-1)/(ryadov-1)))) + Math.round(PovernutDop.Value)

}
else
{

ugolPovorotaPered=0
ugolPovorotaZad=0
}







mejdu_ryadov = (pv.x-ln.x-otsPered_-otsZad_)/(ryadov-1)

if (Math.round(ryadov)==1)
{

p1 = NewPoint(pv.x/2, 0)

podp = Krepej.Value.Mount1(Obj,Obj.ObjectToGlobal(p1), ugolPovorotaPered);




podp.Rotate(podp.NToGlobal(AxisX) , Math.round(PovernutDop.Value) *(Math.PI / 180))
podp.Rotate(podp.NToGlobal(AxisY) , Math.round(PovernutDopY.Value) *(Math.PI / 180))
podp.Rotate(podp.NToGlobal(AxisZ) , Math.round(PovernutDopZ.Value) *(Math.PI / 180))

}
else if (ryadov>1)
{
p1 = NewPoint( pv.x - otsPered_ , 0)

podp = Krepej.Value.Mount1(Obj,Obj.ObjectToGlobal(p1), ugolPovorotaPered);

podp.Rotate(podp.NToGlobal(AxisX) , Math.round(PovernutDop.Value) *(Math.PI / 180))
podp.Rotate(podp.NToGlobal(AxisY) , Math.round(PovernutDopY.Value) *(Math.PI / 180))
podp.Rotate(podp.NToGlobal(AxisZ) , Math.round(PovernutDopZ.Value) *(Math.PI / 180))

p1 = NewPoint( otsZad_ , 0)

podp = Krepej.Value.Mount1(Obj,Obj.ObjectToGlobal(p1), ugolPovorotaZad);
podp.Rotate(podp.NToGlobal(AxisX) , Math.round(PovernutDop.Value) *(Math.PI / 180))
podp.Rotate(podp.NToGlobal(AxisY) , Math.round(PovernutDopY.Value) *(Math.PI / 180))
podp.Rotate(podp.NToGlobal(AxisZ) , Math.round(PovernutDopZ.Value) *(Math.PI / 180))

ryad=3

while (ryad<ryadov+1)
{







p1 = NewPoint(otsZad_+mejdu_ryadov*(ryad-2), 0)





podp = Krepej.Value.Mount1(Obj,Obj.ObjectToGlobal(p1), ugolPovorotaPered);

podp.Rotate(podp.NToGlobal(AxisX) , Math.round(PovernutDop.Value) *(Math.PI / 180))
podp.Rotate(podp.NToGlobal(AxisY) , Math.round(PovernutDopY.Value) *(Math.PI / 180))
podp.Rotate(podp.NToGlobal(AxisZ) , Math.round(PovernutDopZ.Value) *(Math.PI / 180))



ryad++;
}
}
//Niz.Free()

}


}




function OpredelitNiz(Obj, ln, pv)
{
//Obj = Obj.AsPanel
tolshina = Obj.Thickness;
ln_ = Obj.ObjectToGlobal(ln);
pv_ = Obj.ObjectToGlobal(pv);
p = AddPanel(pv.x, tolshina)
p.Thickness = 0.000000001;
p.Translate(ln_)
p.Rotation = Obj.Rotation
p.Rotate(p.NToGlobal(AxisX), 90)

return p

}



function GabarityContura(Obj)

{
var text = '';


ln = NewPoint(0, 0); //левый низ
lv = NewPoint(0, 0); //левый верх
pn = NewPoint(0, 0); //правый низ
pv = NewPoint(0, 0); //правый верх контура

kontur = Obj.Contour;

kstoron = kontur.Count;
// var k_ne_krugov = 0;
for (i = 0; i < kstoron; i++) {
if (kontur[i].ElType != 3) { //k_ne_krugov = k_ne_krugov+1

ln = NewPoint(Math.round(kontur[i].Pos1.x * 10) / 10, Math.round(kontur[i].Pos1.y * 10) / 10);
lv = NewPoint(Math.round(kontur[i].Pos1.x * 10) / 10, Math.round(kontur[i].Pos1.y * 10) / 10);
pn = NewPoint(Math.round(kontur[i].Pos1.x * 10) / 10, Math.round(kontur[i].Pos1.y * 10) / 10);
pv = NewPoint(Math.round(kontur[i].Pos1.x * 10) / 10, Math.round(kontur[i].Pos1.y * 10) / 10);
}

};



for (i = 0; i < kstoron; i++) {
if (kontur[i].ElType != 3) {
Pos1x = Math.round(kontur[i].Pos1.x * 10) / 10;
Pos1y = Math.round(kontur[i].Pos1.y * 10) / 10;
Pos2x = Math.round(kontur[i].Pos2.x * 10) / 10;
Pos2y = Math.round(kontur[i].Pos2.y * 10) / 10;


if (ln.x > Pos1x) {
ln.x = Pos1x
};
if (ln.x > Pos2x) {
ln.x = Pos2x
};
if (ln.y > Pos1y) {
ln.y = Pos1y
};
if (ln.y > Pos2y) {
ln.y = Pos2y
};

if (lv.x > Pos1x) {
lv.x = Pos1x
};
if (lv.x > Pos2x) {
lv.x = Pos2x
};
if (lv.y < Pos1y) {
lv.y = Pos1y
};
if (lv.y < Pos2y) {
lv.y = Pos2y
};

if (pn.x < Pos1x) {
pn.x = Pos1x
};
if (pn.x < Pos2x) {
pn.x = Pos2x
};
if (pn.y > Pos1y) {
pn.y = Pos1y
};
if (pn.y > Pos2y) {
pn.y = Pos2y
};

if (pv.x < Pos1x) {
pv.x = Pos1x
};
if (pv.x < Pos2x) {
pv.x = Pos2x
};
if (pv.y < Pos1y) {
pv.y = Pos1y
};
if (pv.y < Pos2y) {
pv.y = Pos2y
};

}
};

text4 = ('ln ---- ' + ln.x + ' - ' + ln.y + '\n' +
'lv ---- ' + lv.x + ' - ' + lv.y + '\n' +
'pn ---- ' + pn.x + ' - ' + pn.y + '\n' +
'pv ---- ' + pv.x + ' - ' + pv.y + '\n');
// alert(text4);
ln_v = ln; //левый низ выреза
pv_v = pv; //правый верх выреза

if (ln_v.x < lv.x) {
ln_v.x = lv.x
};
if (ln_v.y < pn.y) {
ln_v.y = pn.y
};

if (pv_v.x > pn.x) {
pv_v.x = pn.x
};
if (pv_v.y > lv.y) {
pv_v.y = lv.y
};





SeredinaVisotiPaneli = (pv_v.y - ln_v.y) * 0.5;
SeredinaShiriniPaneli = (pv_v.x - ln_v.x) * 0.5;






lnpv = []




lnpv.push(ln_v);
lnpv.push(pv_v);



return lnpv
}




[свернуть]
v22884 вне форума   Ответить с цитированием Вверх
Ответ

Нижняя навигация
Вернуться   Форум профессиональных мебельщиков PROMEBELclub > Программы для мебельщиков > Программы для конструирования и дизайна мебели > Система БАЗИС > Базис-мебельщик. Скрипты


Ваши права в разделе
Вы не можете создавать новые темы
Вы не можете отвечать в темах
Вы не можете прикреплять вложения
Вы не можете редактировать свои сообщения

BB коды Вкл.
Смайлы Вкл.
[IMG] код Вкл.
HTML код Выкл.

Быстрый переход

Похожие темы
Тема Автор Раздел Ответов Последнее сообщение
БАЗИС 8 - Скрипты Igor_482 Базис-мебельщик. Скрипты 1525 30.03.2024 15:03
БАЗИС 9 nayrogi Базис-мебельщик 9 785 01.10.2022 23:13
БАЗИС-ЧПУ 8 chingisnah Базис-мебельщик 8 119 21.12.2017 22:04
Заявки на скрипты dr_john Система БАЗИС 37 01.03.2016 10:36
Базис-7,"Народный Базис"и Windows-8 sergeyzak18 "НАРОДНЫЙ" базис 23 16.01.2014 00:37


Текущее время: 23:43. Часовой пояс GMT +3.


Powered by vBulletin® Version 3.8.12 by vBS
Copyright ©2000 - 2024, Jelsoft Enterprises Ltd.
© 2007-2023 PROMEBEL

џндекс.Њетрика