Форум профессиональных мебельщиков 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..
Просмотров: 985483
Ответить с цитированием Вверх
Пользователь сказал cпасибо:
evilbaby1989 (10.07.2023)
Старый 28.01.2014, 13:53   #131
Briz
Местный
 
Регистрация: 30.11.2011
Сообщений: 283
Сказал(а) спасибо: 275
Поблагодарили 803 раз(а) в 179 сообщениях
Вес репутации: 358
Briz - просто великолепная личностьBriz - просто великолепная личностьBriz - просто великолепная личностьBriz - просто великолепная личностьBriz - просто великолепная личностьBriz - просто великолепная личностьBriz - просто великолепная личность
По умолчанию

Цитата:
Сообщение от Ozimko Посмотреть сообщение
Я так и сделал, извините за корявый русский.... Результата нет - все то же самое
а так?

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

Evrik = OpenFurniture('Полкодержатель.f3d')

Bok1 = GetPanel("Укажите 1-ую вертикальную панель");
Bok2 = GetPanel("Укажите 2-ую вертикальную панель");

x1 = Bok1.GabMax.x + 1;
x2 = Bok2.GabMin.x - 1;

while (true) {
Polka = GetPanel("Укажите горизонтальную панель");
Py = Polka.GabMin.y - 1;
z1 = Polka.GabMin.z;
z2 = Polka.GabMax.z;

Evrik.Mount(Polka, Bok1, x1, Py, z1 + 64)
Evrik.Mount(Polka, Bok2, x2, Py, z1 + 64)

Evrik.Mount(Polka, Bok1, x1, Py, z2 - 32)
Evrik.Mount(Polka, Bok2, x2, Py, z2 - 32)
Action.Commit();
}
[свернуть]
Briz вне форума   Ответить с цитированием Вверх
Старый 28.01.2014, 14:06   #132
yavsochi
Местный
 
Аватар для yavsochi
 
Регистрация: 28.07.2008
Адрес: Краснодарский край, г. Сочи
Сообщений: 350
Сказал(а) спасибо: 1,107
Поблагодарили 554 раз(а) в 178 сообщениях
Вес репутации: 337
yavsochi - это имя известно всемyavsochi - это имя известно всемyavsochi - это имя известно всемyavsochi - это имя известно всемyavsochi - это имя известно всемyavsochi - это имя известно всем
По умолчанию

А как интересно прописать строки,чтобы была возможность задавать в сплававшем окне определённое смешение для крепежа, от передней и от задней части полки? Не могу сообразить
yavsochi вне форума   Ответить с цитированием Вверх
Старый 28.01.2014, 14:08   #133
Ozimko
VIP
 
Аватар для Ozimko
 
Регистрация: 11.07.2008
Сообщений: 1,019
Сказал(а) спасибо: 261
Поблагодарили 314 раз(а) в 143 сообщениях
Вес репутации: 356
Ozimko как роза среди колючекOzimko как роза среди колючекOzimko как роза среди колючекOzimko как роза среди колючек
По умолчанию

Так все ок! Спасибо.
Ozimko вне форума   Ответить с цитированием Вверх
Старый 28.01.2014, 14:15   #134
maxgmv
VIP
 
Аватар для maxgmv
 
Регистрация: 15.11.2008
Адрес: г.Москва
Сообщений: 498
Сказал(а) спасибо: 3,218
Поблагодарили 1,353 раз(а) в 312 сообщениях
Вес репутации: 507
maxgmv за этого человека можно гордитсяmaxgmv за этого человека можно гордитсяmaxgmv за этого человека можно гордитсяmaxgmv за этого человека можно гордитсяmaxgmv за этого человека можно гордитсяmaxgmv за этого человека можно гордитсяmaxgmv за этого человека можно гордитсяmaxgmv за этого человека можно гордитсяmaxgmv за этого человека можно гордитсяmaxgmv за этого человека можно гордится
По умолчанию

Цитата:
а так?
Я бы даже сказал, так профессионально!
__________________
Обходя разложенные грабли - ты теряешь драгоценный ОПЫТ!
maxgmv вне форума   Ответить с цитированием Вверх
Старый 28.01.2014, 15:38   #135
Ozimko
VIP
 
Аватар для Ozimko
 
Регистрация: 11.07.2008
Сообщений: 1,019
Сказал(а) спасибо: 261
Поблагодарили 314 раз(а) в 143 сообщениях
Вес репутации: 356
Ozimko как роза среди колючекOzimko как роза среди колючекOzimko как роза среди колючекOzimko как роза среди колючек
По умолчанию

Зацените - то же, но крепеж от зада с шагом 32:

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

Evrik = OpenFurniture('полкодержатель арт.ЕА24+242_L_CGR+ доп отв +-32.f3d')

Bok1 = GetPanel("Укажите 1-ую вертикальную панель");
Bok2 = GetPanel("Укажите 2-ую вертикальную панель");

x1 = Bok1.GabMax.x + 1;
x2 = Bok2.GabMin.x - 1;

while (true) {
Polka = GetPanel("Укажите горизонтальную панель");
Py = Polka.GabMin.y - 1;
z1 = Polka.GabMin.z;
z2 = Polka.GabMax.z;

shag = 32;
Zpol = z2-z1-35;
ZPolder = Zpol % 32;

Evrik.Mount(Polka, Bok1, x1, Py, z1 + 64)
Evrik.Mount(Polka, Bok2, x2, Py, z1 + 64)

Evrik.Mount(Polka, Bok1, x1, Py, (Zpol - ZPolder))
Evrik.Mount(Polka, Bok2, x2, Py, (Zpol - ZPolder))
Action.Commit();
}
[свернуть]


Гуру - научите....
Задача - хочу установить горизонтальную панель между двух вертикальных, а позицию y указывать на лицевом виде (или виде сбоку....) чтобы сама панель двигалась и фиксировалась кликом мыши.
И еще. Господа разработчики! Такое чувство, что скрипты могут увеличить производительность ОЧЕНЬ существенно.... Есть неудобство - непосредственно сам выбор исполняемого скрипта. Горячие клавиши - супер! А если бы еще и панель инструментов..... Цены бы не было!
Ozimko вне форума   Ответить с цитированием Вверх
Старый 29.01.2014, 10:11   #136
Briz
Местный
 
Регистрация: 30.11.2011
Сообщений: 283
Сказал(а) спасибо: 275
Поблагодарили 803 раз(а) в 179 сообщениях
Вес репутации: 358
Briz - просто великолепная личностьBriz - просто великолепная личностьBriz - просто великолепная личностьBriz - просто великолепная личностьBriz - просто великолепная личностьBriz - просто великолепная личностьBriz - просто великолепная личность
По умолчанию

Цитата:
Задача - хочу установить горизонтальную панель между двух вертикальных, а позицию y указывать на лицевом виде (или виде сбоку....) чтобы сама панель двигалась и фиксировалась кликом мыши.

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

Bok1 = GetPanel("Укажите 1-ую вертикальную панель");
Bok2 = GetPanel("Укажите 2-ую вертикальную панель");

x1 = Bok1.GabMax.x + 2;
x2 = Bok2.GabMin.x - 2;
z1 = Bok1.GabMin.z + 1;
z2 = Bok1.GabMax.z - 20;

Panel = AddHorizPanel(x1, z1, x2, z2, Action.Pos3.y);
Action.ShowPoints = true;
Action.OnMove = function() { Panel.PositionY = Action.Pos3.y };
Action.OnClick = function() { Action.Finish() };
Action.Continue();
[свернуть]
Briz вне форума   Ответить с цитированием Вверх
Старый 29.01.2014, 10:56   #137
maxgmv
VIP
 
Аватар для maxgmv
 
Регистрация: 15.11.2008
Адрес: г.Москва
Сообщений: 498
Сказал(а) спасибо: 3,218
Поблагодарили 1,353 раз(а) в 312 сообщениях
Вес репутации: 507
maxgmv за этого человека можно гордитсяmaxgmv за этого человека можно гордитсяmaxgmv за этого человека можно гордитсяmaxgmv за этого человека можно гордитсяmaxgmv за этого человека можно гордитсяmaxgmv за этого человека можно гордитсяmaxgmv за этого человека можно гордитсяmaxgmv за этого человека можно гордитсяmaxgmv за этого человека можно гордитсяmaxgmv за этого человека можно гордится
По умолчанию

Цитата:
Задача - хочу установить горизонтальную панель между двух вертикальных, а позицию y указывать на лицевом виде (или виде сбоку....) чтобы сама панель двигалась и фиксировалась кликом мыши.
Вот вариант уже с крепежом...

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

Bok1 = GetPanel("Укажите 1-ую вертикальную панель");
Bok2 = GetPanel("Укажите 2-ую вертикальную панель");

x1 = Bok1.GabMax.x + 2;
x2 = Bok2.GabMin.x - 2;
z1 = Bok1.GabMin.z + 1;
z2 = Bok1.GabMax.z - 20;

Evrik = OpenFurniture('Полкодержатель.f3d')

function MoveOdj()
{
DeleteNewObjects()
Polka = AddHorizPanel(x1, z1, x2, z2, Action.Pos3.y);
zp1 = Polka.GabMin.z;
zp2 = Polka.GabMax.z;
Polka.PositionY = Action.Pos3.y
Evrik.Mount(Polka, Bok1, x1, Action.Pos3.y, zp1 + 64)
Evrik.Mount(Polka, Bok2, x2, Action.Pos3.y, zp1 + 64)
Evrik.Mount(Polka, Bok1, x1, Action.Pos3.y, zp2 - 32)
Evrik.Mount(Polka, Bok2, x2, Action.Pos3.y, zp2 - 32)
}

Action.ShowPoints = true;
Action.OnMove = function() {MoveOdj()};
Action.OnClick = function() {Action.Finish()};
Action.Continue();
[свернуть]

не забудьте в папку со скриптом положить полкодержатель.f3d.
__________________
Обходя разложенные грабли - ты теряешь драгоценный ОПЫТ!
maxgmv вне форума   Ответить с цитированием Вверх
Старый 29.01.2014, 11:07   #138
Ozimko
VIP
 
Аватар для Ozimko
 
Регистрация: 11.07.2008
Сообщений: 1,019
Сказал(а) спасибо: 261
Поблагодарили 314 раз(а) в 143 сообщениях
Вес репутации: 356
Ozimko как роза среди колючекOzimko как роза среди колючекOzimko как роза среди колючекOzimko как роза среди колючек
По умолчанию

Куча положительных эмоций!!!!! Огромное спасибо, пилим дальше.....Чувствую, скоро только скриптами и буду пользоваться в базисе.....
Доработал под себя....

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

Скрытый текст (вы должны войти под своим логином или зарегистрироваться и иметь 1 сообщение(ий)):
У вас нет прав чтобы видеть скрытый текст, содержащейся здесь.
[свернуть]

вопрос - как сделать. чтобы цикл не закончился - хочу еще пару таких же полок на другой высоте....
Ozimko вне форума   Ответить с цитированием Вверх
Пользователь сказал cпасибо:
Старый 29.01.2014, 13:26   #139
Briz
Местный
 
Регистрация: 30.11.2011
Сообщений: 283
Сказал(а) спасибо: 275
Поблагодарили 803 раз(а) в 179 сообщениях
Вес репутации: 358
Briz - просто великолепная личностьBriz - просто великолепная личностьBriz - просто великолепная личностьBriz - просто великолепная личностьBriz - просто великолепная личностьBriz - просто великолепная личностьBriz - просто великолепная личность
По умолчанию

замените Action.Finish() на Action.Commit()
Briz вне форума   Ответить с цитированием Вверх
Старый 29.01.2014, 14:35   #140
Ozimko
VIP
 
Аватар для Ozimko
 
Регистрация: 11.07.2008
Сообщений: 1,019
Сказал(а) спасибо: 261
Поблагодарили 314 раз(а) в 143 сообщениях
Вес репутации: 356
Ozimko как роза среди колючекOzimko как роза среди колючекOzimko как роза среди колючекOzimko как роза среди колючек
По умолчанию

Спасибо, заработало, а то я менял Action.Continue - безрезультатно
Есть просьба - сделайте скрипт установки подпятника - а то нигде не могу найти пример.... он монтируется в нижний торец вертикальной панели, причем нужен поворот его в зависимости от того, какая боковина - левая или правая (речь идет о регулируемой опоре комар). Буду очень благодарен.
Ozimko вне форума   Ответить с цитированием Вверх
Ответ

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

Опции темы
Опции просмотра

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

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

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

Похожие темы
Тема Автор Раздел Ответов Последнее сообщение
БАЗИС 8 - Скрипты Igor_482 Базис-мебельщик. Скрипты 1524 07.12.2022 19:53
БАЗИС 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


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


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

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