Форум профессиональных мебельщиков 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..
Просмотров: 994294
Ответить с цитированием Вверх
Пользователь сказал cпасибо:
evilbaby1989 (10.07.2023)
Старый 18.10.2014, 03:16   #541
v22884
Местный
 
Регистрация: 17.04.2014
Адрес: д.Сибирцево, ателье-уют.рф
Сообщений: 454
Сказал(а) спасибо: 242
Поблагодарили 1,094 раз(а) в 210 сообщениях
Вес репутации: 386
v22884 за этого человека можно гордитсяv22884 за этого человека можно гордитсяv22884 за этого человека можно гордитсяv22884 за этого человека можно гордитсяv22884 за этого человека можно гордитсяv22884 за этого человека можно гордитсяv22884 за этого человека можно гордитсяv22884 за этого человека можно гордится
По умолчанию

Цитата:
Сообщение от Ovsyanicov Посмотреть сообщение
А чем Вас не устраивает стандартная возможность сохранения чертежей в библиотеку?
Как брать чертёж по ШК из библиотеки я пока не знаю.

Как брать чертёж из LDW -- знаю.

Подскажите, пожалуйста, или дайте ссылку как исполнителю открыть чертёж по ШК из библиотеки.
Но собсно, меня бы очень бы устроило создание и сохранение всех чертежей модели куда мне надо по нажатию горячей клавиши.
А в общем виде меня очень устравивает мои взаимоотношения с принтером: я нажимаю печать, и не думаю, как принтер будет это делать.

Добавлено через 5 минут
Цитата:
Сообщение от v22884 Посмотреть сообщение
сообщение от Briz'a на двадцать какой-то странице.
оказывается сообщение от ShSergey было.

Добавлено через 2 минуты
Плинтус от Briz'a
c возможностью выбора материала и сечения.
(Но для наружных углов карниза чуть дорабатывать надо)

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



Points = [];
FileOptions = 'НастройкиПлинтуса.xml';


MakeProperties();

Action.Properties.Load(FileOptions);



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


//Make();

Action.OnStart = function() {
Prop.OnChange = Primenit;
Primenit();
}

Action.Continue();













true;

function MakeProperties() {

Prop = Action.Properties;

mat = Prop.NewMaterial('Материал')

Secheniye = Prop.NewSelector('Сечение');

Secheniye.OnClick = function() {
Secheniye.Value = system.askFileName('frw');
};
}

function Profile()
{
var C = NewContour();
if (system.fileExists(Secheniye.Value)) {




C.Load(Secheniye.Value);
}
else
{
C.AddRectangle(0, 0, 10, 10);
}

return C;
}

function MakePlintus()
{

DeleteNewObjects()

mat.SetActive()
Prof = Profile();
for (k = 1; k < Points.length; k++)
{
P1 = Points[k-1];
P2 = Points[k];
Dir = sub(P2, P1);;
Length = length(Dir);
if (Length < 1)
continue;

NormDir = unit(Dir);
E = AddExtrusion('Профиль_' + k);
E.Contour.Addition(Prof);
E.Position = P1;
E.Orient(NormDir, AxisY);
E.Thickness = Length;

system.log('Extrusion: ' + k + ' length = ' + Length);

if (k > 1)
{
P0 = E.ToObject(Points[k - 2]);
Dir0 = neg(P0);
Dir0Norm = unit(Dir0);
Dir0Norm.z = Dir0Norm.z + 1;
MiddleDir = unit(Dir0Norm);
E.Clip(NewVector(), MiddleDir);
system.log('start clip');
logdir('Plane=', MiddleDir);
}

if (k < Points.length - 1)
{
P3 = E.ToObject(Points[k + 1]);
Dir2 = sub(P3, NewVector(0, 0, Length));
Dir2Norm = unit(Dir2);
Dir2Norm.z = Dir2Norm.z + 1;
MiddleDir = unit(Dir2Norm);
E.Clip(NewVector(0, 0, Length), neg(MiddleDir));
system.log('end clip');
logdir('Plane=', MiddleDir);
}


system.log('success!');
E.Build();
}
}

StartP = GetPoint("Укажите точку 1");
Points.push(StartP);
NewButtonInput("Закончить").OnChange = function() { Action.Finish(); };
Index = 2;

while (true)
{
P = GetPoint("Укажите точку " + Index);
Index += 1;
P.y = StartP.y;
Points.push(P);
DeleteNewObjects();
MakePlintus();
}

function sub(a, b)
{
return NewVector(a.x - b.x, a.y - b.y, a.z - b.z);
}

function add(a, b)
{
return NewVector(a.x + b.x, a.y + b.y, a.z + b.z);
}

function length(a)
{
return Math.sqrt(a.x * a.x + a.y * a.y + a.z * a.z);
}

function neg(a)
{
return NewVector(-a.x, -a.y, -a.z);
}

function unit(a)
{
var l1 = 1.0 / length(a);
return NewVector(a.x * l1, a.y * l1, a.z * l1);
}

function logdir(text, dir)
{
system.log(text + ' (' + dir.x + ', ' + dir.y + ', ' + dir.z + ')');
}


function Primenit() {

MakePlintus();
}



[свернуть]
v22884 вне форума   Ответить с цитированием Вверх
Старый 19.10.2014, 18:44   #542
ozzy21
Новичок
 
Регистрация: 28.09.2014
Сообщений: 2
Сказал(а) спасибо: 14
Поблагодарили 0 раз(а) в 0 сообщениях
Вес репутации: 0
ozzy21 пока не определено
По умолчанию Нужна помощь в определении ошибки

Здравствуйте, попробовал написать скрипт построения корпуса шкафа-купе. При запуске скрипта все панели в модели отображаются корректно. При любом изменении свойств или нажатии кнопок "построить" и "закончить" модель сбрасывает все вариативные значения в "нет". Просьба подсказать, что сделано неправильно.
Миниатюры
Вид до изменения свойств.jpg   Вид после любого изменения свойств.jpg  
Вложения
Тип файла: zip Корпус_шкафа-купе_накладная_крышка.zip (1.4 Кб, 19 просмотров)
ozzy21 вне форума   Ответить с цитированием Вверх
Старый 19.10.2014, 18:59   #543
Briz
Местный
 
Регистрация: 30.11.2011
Сообщений: 283
Сказал(а) спасибо: 275
Поблагодарили 803 раз(а) в 179 сообщениях
Вес репутации: 358
Briz - просто великолепная личностьBriz - просто великолепная личностьBriz - просто великолепная личностьBriz - просто великолепная личностьBriz - просто великолепная личностьBriz - просто великолепная личностьBriz - просто великолепная личность
По умолчанию

Ошибка в том, что вы называете и параметры в свойствах и сами панели одной переменной
LevStoika = Prop.NewBool('Левая стойка');
и
LevStoika = AddVertPanel(0, 0, Gl.Value, H.Value - Thick, 0);

Это разные вещи и их нужно называть по разному
Briz вне форума   Ответить с цитированием Вверх
Старый 21.10.2014, 16:56   #544
PEHAT
Местный
 
Регистрация: 07.09.2014
Сообщений: 187
Сказал(а) спасибо: 182
Поблагодарили 211 раз(а) в 69 сообщениях
Вес репутации: 178
PEHAT - весьма и весьма положительная личностьPEHAT - весьма и весьма положительная личностьPEHAT - весьма и весьма положительная личность
По умолчанию

Существуют команды: BeginBlock - Начать создание блока и EndBloc - Завершить создание блока.
Существуют ли аналогичные команды для сборки?
PEHAT вне форума   Ответить с цитированием Вверх
Старый 21.10.2014, 17:02   #545
maxgmv
VIP
 
Аватар для maxgmv
 
Регистрация: 15.11.2008
Адрес: г.Москва
Сообщений: 498
Сказал(а) спасибо: 3,218
Поблагодарили 1,353 раз(а) в 312 сообщениях
Вес репутации: 507
maxgmv за этого человека можно гордитсяmaxgmv за этого человека можно гордитсяmaxgmv за этого человека можно гордитсяmaxgmv за этого человека можно гордитсяmaxgmv за этого человека можно гордитсяmaxgmv за этого человека можно гордитсяmaxgmv за этого человека можно гордитсяmaxgmv за этого человека можно гордитсяmaxgmv за этого человека можно гордитсяmaxgmv за этого человека можно гордится
По умолчанию

Цитата:
Сообщение от PEHAT Посмотреть сообщение
Существуют команды: BeginBlock - Начать создание блока и EndBloc - Завершить создание блока.
Существуют ли аналогичные команды для сборки?
Конечно существует! А другой объект указываете, что его родителем является Ваша сборка, а команды EndСборка нет. Вы просто наполняете её, а не указываете границы начала и конца, как в блоке.
Миниатюры
Сборка.jpg  
__________________
Обходя разложенные грабли - ты теряешь драгоценный ОПЫТ!
maxgmv вне форума   Ответить с цитированием Вверх
Старый 21.10.2014, 17:05   #546
AndrianoS
Пользователь
 
Регистрация: 21.08.2009
Адрес: Санкт-Петербург
Сообщений: 59
Сказал(а) спасибо: 73
Поблагодарили 15 раз(а) в 9 сообщениях
Вес репутации: 187
AndrianoS на пути к лучшему
По умолчанию

Подскажите кто знает.Хочу реализовать в панели свойств следующее:изменяя материал у одного объекта NewMaterial,то менялись материалы других объектов NewMaterial

Можно ли значения объекта NewMaterial передать другим объектам NewMaterial?

Если простым языком,то примерно так: У Васи есть машина красного цвета.Если Вася перекрасит машину,то и машину Димы покрасить в тот же цвет.Но если Дима покрасит свою машину ,то Васину не перекрашивать.
AndrianoS вне форума   Ответить с цитированием Вверх
Старый 21.10.2014, 18:03   #547
PEHAT
Местный
 
Регистрация: 07.09.2014
Сообщений: 187
Сказал(а) спасибо: 182
Поблагодарили 211 раз(а) в 69 сообщениях
Вес репутации: 178
PEHAT - весьма и весьма положительная личностьPEHAT - весьма и весьма положительная личностьPEHAT - весьма и весьма положительная личность
По умолчанию

Цитата:
Сообщение от maxgmv Посмотреть сообщение
Конечно существует! А другой объект указываете, что его родителем является Ваша сборка, а команды EndСборка нет. Вы просто наполняете её, а не указываете границы начала и конца, как в блоке.
С этим параметром пробовал, но не получается установить фурнитуру. Т.е. открываю объект через OpenFurniture('.fr3d') - этот объект не должен учитываться в смете. Затем ставлю его через .Mount1 - установка на плоскость. Вот в этой строке и появляется ошибка, ругается на Mount1.
Если всё таки возможно произвести установку через AddAssembly, то буду дальше эксперементировать Можно конечно просто по координатам поставить, но ещё не проверял будет ли в этом случае, на чертежах, указываться присадка.

Разобрался. Если модель открывается через OpenFurniture, то разширение файла должно быть '.f3d' (фурнитура), и тогда замечательно устанавливается через .Mount1 и в сборку объединяется.
А если в блок объединять, то можно и '.fr3d' использовать
PEHAT вне форума   Ответить с цитированием Вверх
Старый 24.10.2014, 09:32   #548
v22884
Местный
 
Регистрация: 17.04.2014
Адрес: д.Сибирцево, ателье-уют.рф
Сообщений: 454
Сказал(а) спасибо: 242
Поблагодарили 1,094 раз(а) в 210 сообщениях
Вес репутации: 386
v22884 за этого человека можно гордитсяv22884 за этого человека можно гордитсяv22884 за этого человека можно гордитсяv22884 за этого человека можно гордитсяv22884 за этого человека можно гордитсяv22884 за этого человека можно гордитсяv22884 за этого человека можно гордитсяv22884 за этого человека можно гордится
По умолчанию

Открыть двери, ящики:

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



Model.forEach(function(obj) {
if ((obj.AnimType >0))
{


obj.ToggleAnimatePos()
// system.sleep(400)

}
});

[свернуть]


Чтоб поочереди открывались, Чот через sleep дёргается как-то анимация: Вроде начинает, потом замерает изображение, видимо на время слипа, а потом только открывает все.

Подскажите, пожалуйста, может есть более правильный способ поочереди делать, или у меня просто комп слабый?
v22884 вне форума   Ответить с цитированием Вверх
Старый 24.10.2014, 10:24   #549
v22884
Местный
 
Регистрация: 17.04.2014
Адрес: д.Сибирцево, ателье-уют.рф
Сообщений: 454
Сказал(а) спасибо: 242
Поблагодарили 1,094 раз(а) в 210 сообщениях
Вес репутации: 386
v22884 за этого человека можно гордитсяv22884 за этого человека можно гордитсяv22884 за этого человека можно гордитсяv22884 за этого человека можно гордитсяv22884 за этого человека можно гордитсяv22884 за этого человека можно гордитсяv22884 за этого человека можно гордитсяv22884 за этого человека можно гордится
По умолчанию

Цитата:
Сообщение от AndrianoS Посмотреть сообщение
Можно ли значения объекта NewMaterial передать другим объектам NewMaterial?
Можно достать имя материала через SetActive()

И сравнить с материалом после замены с помощью OnChange.

Но как присвоить значение NewMaterial..., у меня тож не получалось.

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



MakeProperties();


Action.Continue()

function MakeProperties() {
ppp = Action.Properties
m1 = ppp.NewMaterial("Материал")

m1.OnChange = function() {
alert(matMeniayem)
if (!(m1==matMeniayem))
{
m2=m1
}


}
m2 = ppp.NewMaterial("Материал")
}
m1.SetActive()
matMeniayem = ActiveMaterial.Name

[свернуть]


вроде в эту сторону надо рыть.

Видимо должно быть взаимодействие Базис-скрипта с Базой материалов или со списком материалов.
Я такого взаимодействия не нашёл. пока.
v22884 вне форума   Ответить с цитированием Вверх
Старый 24.10.2014, 10:56   #550
v22884
Местный
 
Регистрация: 17.04.2014
Адрес: д.Сибирцево, ателье-уют.рф
Сообщений: 454
Сказал(а) спасибо: 242
Поблагодарили 1,094 раз(а) в 210 сообщениях
Вес репутации: 386
v22884 за этого человека можно гордитсяv22884 за этого человека можно гордитсяv22884 за этого человека можно гордитсяv22884 за этого человека можно гордитсяv22884 за этого человека можно гордитсяv22884 за этого человека можно гордитсяv22884 за этого человека можно гордитсяv22884 за этого человека можно гордится
По умолчанию

Сгруппировка в ДВЕРЬ:

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



//Undo.BeginOper()
ar = []

Model.forEach(function(obj) {
if (obj.Selected == true)
{
// Undo.Changing(obj)

ar.push(obj)
// obj.Owner = Dver

}
});

if(ar.length>0)
{

Dver = AddBlock("Дверь")

m=0
while (m <= ar.length-1)
{
Undo.OwnerChanging(ar[m])

// Undo.RecursiveChanging(ar[m])
ar[m].Owner = Dver

m++
}

Dver.AnimType = AnimationType.DoorLeft
Dver.DoorAngle=110
Dver.Build()
}

//Undo.EndOper()

[свернуть]


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

Или можь логика объеденения в Блок не правильная -- тогда как?
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


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


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

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