Форум профессиональных мебельщиков 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..
Просмотров: 985372
Ответить с цитированием Вверх
Пользователь сказал cпасибо:
evilbaby1989 (10.07.2023)
Старый 24.01.2014, 11:30   #101
Ozimko
VIP
 
Аватар для Ozimko
 
Регистрация: 11.07.2008
Сообщений: 1,019
Сказал(а) спасибо: 261
Поблагодарили 314 раз(а) в 143 сообщениях
Вес репутации: 356
Ozimko как роза среди колючекOzimko как роза среди колючекOzimko как роза среди колючекOzimko как роза среди колючек
По умолчанию

Я так полагаю - почти пришли к итогу.....Но не совсем
Миниатюры
Снимок.JPG  
Ozimko вне форума   Ответить с цитированием Вверх
Старый 24.01.2014, 11:33   #102
Ozimko
VIP
 
Аватар для Ozimko
 
Регистрация: 11.07.2008
Сообщений: 1,019
Сказал(а) спасибо: 261
Поблагодарили 314 раз(а) в 143 сообщениях
Вес репутации: 356
Ozimko как роза среди колючекOzimko как роза среди колючекOzimko как роза среди колючекOzimko как роза среди колючек
По умолчанию

Огромное спасибо за участие! Скрипты мощный инструмент, но для филолога слегка тяжеловат....
Есть еще вопрос. Когда ставим полки, расстояние считается со знаком после запятой..... Можно ли сделать округление? А то 413,3мм как-то не камильфо.... Да и спина от проклятий чешется.....
Ozimko вне форума   Ответить с цитированием Вверх
Старый 24.01.2014, 11:33   #103
bolshoy
Местный
 
Регистрация: 18.08.2008
Сообщений: 116
Сказал(а) спасибо: 110
Поблагодарили 105 раз(а) в 27 сообщениях
Вес репутации: 223
bolshoy скоро придёт к известностиbolshoy скоро придёт к известности
По умолчанию

Так работает.Только путь к фурнитуре измените.
Вложения
Тип файла: rar установка полок в секцию4.rar (921 байт, 34 просмотров)
bolshoy вне форума   Ответить с цитированием Вверх
Старый 24.01.2014, 11:46   #104
Ozimko
VIP
 
Аватар для Ozimko
 
Регистрация: 11.07.2008
Сообщений: 1,019
Сказал(а) спасибо: 261
Поблагодарили 314 раз(а) в 143 сообщениях
Вес репутации: 356
Ozimko как роза среди колючекOzimko как роза среди колючекOzimko как роза среди колючекOzimko как роза среди колючек
По умолчанию

Огромное спасибо! Но еще не все - расстояние между крепежом не равно 64 - шаг сбился.....
Миниатюры
Снимок.jpg  
Ozimko вне форума   Ответить с цитированием Вверх
Старый 24.01.2014, 13:28   #105
Am0ralist
Местный
 
Регистрация: 16.11.2011
Адрес: Москва / Пенза
Сообщений: 1,135
Сказал(а) спасибо: 307
Поблагодарили 1,257 раз(а) в 524 сообщениях
Вес репутации: 515
Am0ralist за этого человека можно гордитсяAm0ralist за этого человека можно гордитсяAm0ralist за этого человека можно гордитсяAm0ralist за этого человека можно гордитсяAm0ralist за этого человека можно гордитсяAm0ralist за этого человека можно гордитсяAm0ralist за этого человека можно гордитсяAm0ralist за этого человека можно гордитсяAm0ralist за этого человека можно гордится
По умолчанию

Цитата:
Сообщение от Ozimko Посмотреть сообщение
Я так полагаю, Что нужно взять глубину полки, разделить на 64, получить остаток и число, сколько раз укладывается в эту глубину шаг 64 (для дальнейшей установки крепежа от заднего края с шагом 64). Gl.Value - это глубина полки (ну, или правильнее - ширина)
и вы это делаете циклом?
поделить длину отрезка на шаг и округлить - вот вам количество шагов. а то, я боюсь, скрипты с кучей подобных решений будут работать не шустро...
__________________
Нахожусь в режиме поиска интересных задач, связанных с Базисом. Москва, 2015.
Am0ralist вне форума   Ответить с цитированием Вверх
Старый 24.01.2014, 13:52   #106
Ozimko
VIP
 
Аватар для Ozimko
 
Регистрация: 11.07.2008
Сообщений: 1,019
Сказал(а) спасибо: 261
Поблагодарили 314 раз(а) в 143 сообщениях
Вес репутации: 356
Ozimko как роза среди колючекOzimko как роза среди колючекOzimko как роза среди колючекOzimko как роза среди колючек
По умолчанию

Цитата:
Сообщение от Am0ralist Посмотреть сообщение
и вы это делаете циклом?
поделить длину отрезка на шаг и округлить - вот вам количество шагов. а то, я боюсь, скрипты с кучей подобных решений будут работать не шустро...
да нет - скрипт летает.....только шаг не соблюдается. Но очень надеюсь на завершение работы уважаемыми гуру. И вопрос с округлением висит - возможно ли?
Ozimko вне форума   Ответить с цитированием Вверх
Старый 24.01.2014, 14:25   #107
maxgmv
VIP
 
Аватар для maxgmv
 
Регистрация: 15.11.2008
Адрес: г.Москва
Сообщений: 498
Сказал(а) спасибо: 3,218
Поблагодарили 1,353 раз(а) в 312 сообщениях
Вес репутации: 507
maxgmv за этого человека можно гордитсяmaxgmv за этого человека можно гордитсяmaxgmv за этого человека можно гордитсяmaxgmv за этого человека можно гордитсяmaxgmv за этого человека можно гордитсяmaxgmv за этого человека можно гордитсяmaxgmv за этого человека можно гордитсяmaxgmv за этого человека можно гордитсяmaxgmv за этого человека можно гордитсяmaxgmv за этого человека можно гордится
По умолчанию

Цитата:
Сообщение от Ozimko Посмотреть сообщение
да нет - скрипт летает.....только шаг не соблюдается. Но очень надеюсь на завершение работы уважаемыми гуру. И вопрос с округлением висит - возможно ли?
Я так понимаю, то нужно так....

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

// Установка полок в секцию
ShelfCount = NewNumberInput('Количество полок');
ShelfCount.Value = 5;
KrVidimKorp = NewButtMaterialInput("вид");
KrNotVidimKorp = NewButtMaterialInput("невид");


SetCamera(p3dFront);
LeftPanel = GetPanel('Укажите левую панель');
RightPanel = GetPanel('Укажите правую панель');
Left = LeftPanel.GabMax.x;
Right = RightPanel.GabMin.x;
Top = GetEdge('Укажите верхнюю границу', AxisX).First.y;
Bottom = GetEdge('Укажите нижнюю границу', AxisX).First.y;

SetCamera(p3dLeft);
Back = GetEdge('Укажите заднюю границу', AxisY).First.z;
Front = GetEdge('Укажите переднюю границу', AxisY).First.z;

Offset = 0;
Count = ShelfCount.Value;
Thick = ActiveMaterial.Thickness;

PosY = Bottom;
SectionHeight = Top - Bottom;
YInc = (SectionHeight - Count * Thick) / (Count + 1);

shag = 64;
Zpol = Front - 7;
ZPolder = Zpol % 64;

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

//RasstOtPereda = Front - 30;

Gl = Front - Back;

/*for (var Sdvig=64; Sdvig < (Gl - RasstOtPereda); Sdvig++)
{
Sdvig+=Sdvig;
}
if ((Sdvig + RasstOtPereda) > Gl)
{
Sdvig = Sdvig - shag ;
}
*/
for (var k = 0; k < Count; k++) {
PosY += YInc;
Panel = AddHorizPanel(Left + Offset, Back + Offset, Right - Offset,
Zpol, PosY);
Panel.TextureOrientation = TextureOrientation.Horizontal;
Panel.AddButt(KrNotVidimKorp, 0);
Panel.AddButt(KrNotVidimKorp, 1);
Panel.AddButt(KrVidimKorp, 2);
Panel.AddButt(KrNotVidimKorp, 3);

//Присваиваем панели имя
Panel.Name = 'Полка съемная';
LCorner.Mount(Panel, LeftPanel, Left, PosY, Back + shag);
LCorner.Mount(Panel, RightPanel, Right, PosY, Back + shag);
LCorner.Mount(Panel, LeftPanel, Left, PosY, (Zpol - ZPolder))//Back + Sdvig);
LCorner.Mount(Panel, RightPanel, Right, PosY, (Zpol - ZPolder))//Back + Sdvig);
PosY += Thick;
}
SetCamera(p3dFront);
[свернуть]

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

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

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

Цитата:
Сообщение от maxgmv Посмотреть сообщение
Да, такая возможность есть.
Извините за нескромный вопрос - и гиде рыть?
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


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


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

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