БАЗИС 8 - Скрипты

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

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

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

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

__________________________________________________ _______________

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

Новое в скриптописании для БМ:

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

while (true)
Вот полный список новшеств, добавленных в скрипты с момента их выхода:

14 декабря 2014

Добавлена поддержка эластичных блоков

List3D : {
IsElastic: new HDefinition("?Boolean:", 'Являетсяли объект эластичным'),
ElasticResize: new HDefinition("?Vector:newSize", 'Растянуть объект до требуемых размеров'),
}

27 ноября 2014

Вспомогательные геометрические алгоритмы, реализованы в глобальном объекте geometry

geometry : new HDefinition("Geometry2D", 'Вспомогательные геометрические функции'),

Geometry2D : {
Intersect: new HDefinition("?Array.<Point>:elem1,elem2", 'Вычислить точки пересечения двухмерных элементов'),
Compare: new HDefinition("?Boolean:elem1,elem2", 'Сравнить элементы'),
Distance: new HDefinition("?Number:elem1,elem2", 'Найти кратчайшее расстояние между элементами'),
Area: new HDefinition("?Number:contour", 'Найти площадь контура')
}

17 ноября 2014

Работа с пользовательскими свойствами

Object3 : {
UserPropCount: new HDefinition("Number", 'Количество пользовательских свойств'),
UserProperty: new HDefinition('Array.<Object>', 'Значение свойства по его имени или индексу'),
UserPropertyName: new HDefinition('Array.<String>', 'Названия свойств')
}

Новые элементы управления на панели свойств

ScriptProperty: {
NewColor: new HDefinition("?ScriptColorProperty:'Название'", 'Создать свойство типа цвет'),
NewSeparator: new HDefinition("?ScriptProperty", 'Создать разделитель')
}

ScriptColorProperty: {
Value: new HDefinition("Number")
},

----------------------------------------------------------------------------------------------------
29 сентября 2014

system.apiVersion = 90 -> Bazis9
system.apiVersion = 85 -> Bazis8

----------------------------------------------------------------------------------------------------
15 сентября 2014

Contour2D : {
Min: new HDefinition("Point", 'Левый нижний угол охватывающего прямоугольника'),
Max: new HDefinition("Point", 'Правый верхний угол охватывающего прямоугольника'),
AddEquidistant : new HDefinition("?undefined:contour,offset,false,false", 'Добавить эквидистанту контура. Последние 2 параметры отвечают за направление и скругление')
}

ScriptProperty: {
OnDeactivate : new HDefinition("Function", 'Обработчик деактивации свойства или меню'),
OnValueValidate : new HDefinition("Function", 'Проверка корректности значения'),
ValueValid: new HDefinition("Boolean", 'Флаг корректности введенного значения, выставляется обработчиком OnValueValidate'),
Validate: new HDefinition("?Boolean:", 'Проверить значение свойства и вложенных свойств')
}

----------------------------------------------------------------------------------------------------
2 сентября 2014

ScriptProperty: {
NameEditable: new HDefinition("Boolean", 'Разрешить редактирование имени (для создания таблиц)'),
NewSeparator: new HDefinition("?ScriptProperty", 'Создать разделитель')
}

----------------------------------------------------------------------------------------------------
9 августа 2014

Добавлены подменю в кнопки

InButton : {
NewSubMenu : new HDefinition('?InButton:"Меню"', 'Создать подменю'),
Combo: new Definition("Boolean", 'Отдельная стрелка для подменю')
},

Добавлены всплывающие меню и цвет фона для всех свойств. Созданы обработчики активации и изменения свойства.
Прежнее событие OnChange срабатывало не только при изменении самого параметра, но и при изменении дочерних свойств.
OnValueChange срабатывает только при изменении значения свойства.

ScriptProperty: {
BackColor: new HDefinition("Number", 'Цвет фона'),
PopupMenu: new HDefinition("ScriptMenu", 'Всплывающее меню'),
OnActivate : new HDefinition("Function", 'Обработчик активации свойства пользователем'),
OnValueChange : new HDefinition("Function", 'Обработчик изменения свойства')
Tag: new HDefinition("Number", 'Пользовательское число'),
}

Добавлено выпадающее меню:

ScriptProperty: {
DropDownMenu: new HDefinition("ScriptMenu", 'Выпадающее меню')
}

----------------------------------------------------------------------------------------------------
21 апреля 2014:

Добавлены свойства и методы:

ScriptMaterialProperty: {
Width: new HDefinition("Number", "Ширина листа"),
}

ScriptButtProperty: {
Thickness: new HDefinition("Number", "Толщина кромки"),
Width: new HDefinition("Number", "Ширина ленты"),
}

Contour2D : {
IsPointInside: new HDefinition("?Boolean:x,y", "Находится ли точка внутри контура?"),
IsInContour: new HDefinition("?Boolean:contour", "Находится ли контур внутри другого?"),
IsClosedContour: new HDefinition("?Boolean:", "Является ли контур замкнутым?"),
IsContourRectangle: new HDefinition("?Boolean:", "Является ли контур прямоугольным?"),
OrderContours: new HDefinition("?Boolean:true", "Упорядочить элементы контура в одном направлении")
}


----------------------------------------------------------------------------------------------------
6 февраля 2014

Реализовано подключение и вызов функций COM и OLE объектов

ScriptProperty : {
Expanded: new HDefinition("Boolean", 'Развернуты ли вложенные свойства')
}

Добавлен метод:
NewCOMObject: new HDefinition("?IDispatch:'CLSID'", 'Создать новый COM объект по его типу')

[свернуть]

[maxgmv]

Сообщение от PEHAT

Существует возможность задать анимацию, другими словами у объекта в сцене изменяются координаты положения за определённый промежуток времени. А существует ли возможность изменить этот самый временной промежуток. Скажем панель имеет координату по оси Х, необходимо изменить координату по оси Х за выбранный промежуток времени.

Попробуйте system.sleep(1000) в скобках время в миллисекундах.

[PEHAT]

system.sleep

Подозреваю что этот параметр можно так же использовать .... скажем перезагрузить сам скрипт, что бы он завершил свою работу, а затем сам запустился. Наверно командой system.require
И ещё такой вопрос, возможно ли что бы скрипт запускался совместно с запуском базиса?

[Briz]

И ещё такой вопрос, возможно ли что бы скрипт запускался совместно с запуском базиса?

пока нет. А для чего это нужно?

[PEHAT]

А для чего это нужно?

Что бы скрипт (в виде панели инструментов) не было необходимости запускать вручную. Или сам факт запуска скрипта не даёт возможности работать в среде базиса? При наличии панели инструментов, запуск скриптов сведётся к нажатию кнопки, а не через обращение в меню и выбора из общей кучи.
Может рассмотреть такой вариант:
Запускаем скрипт (пусть будет Построение шкафа) и в месте с ним на панели инструментов размещаются кнопки (в виде иконок). Каждая из этих кнопок запускает второстепенный скрипт - установка полок, установка крепежа, установка фурнитуры и т.д. Т.е. для каждого отдельного (основного) скрипта свои функциональные наборы. Но в связи с этим вопрос. Как завершить работу "вторичного" скрипта, что бы при этом "основной" скрипт продолжал работу. Если ПКМ и Отмена - отменяется работа обоих скриптов. Если использовать Action.Finish(), то завершают работу оба скрипта или можно прописать имя скрипта которых хочешь завершить.

Проблемка... До завершения работы скрипта построение ведётся в теле скрипта, по этой причине второй скрипт не может определить с какими панелями работать.

[v22884]

Самый простой и правильный способ найти расстояние между двумя 3д точками(Vector) ?


Может функция Model.DistanceToPoint(), но чот всегда 0 возвращает.

Можно конечно ещё пару вариантов сочинить например передвинуть оба объекта(точки) как блок к Началу ГСК и возпользоваться GMin например.

Но

Интересует именно наличие простого правильного решения, конечно желательно в одну функцию?

Подскажите, пожалуйста, есть ли такое?

[Briz]

По теореме Пифагора:

v1 = GetPoint("Укажите точку");
v2 = GetPoint("Укажите точку");

function Distance(p1, p2) {
var dx = p2.x - p1.x;
var dy = p2.y - p1.y;
var dz = p2.z - p1.z;
return Math.sqrt(dx * dx + dy * dy + dz * dz);
}

alert(Distance(v1, v2));

[v22884]

Немного доработанная Растановка Ручек:

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

Ruchka = NewFurnitureInput("Ручка")
UgolPovorota = NewFloatInput ('Поворот',35);
//naYashik = Ne ('Поворот',35);
UgolPovorota.Value = 90;
otX = NewFloatInput ('ОтступX ручки',35);
otX.Value = 35
otY = NewFloatInput ('ОтступY ручки',35);
otY.Value = 99

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


Action.Continue();

// continue action

i=0
while (i<1000)
{



pp = GetPoint("Укажите точку отступа ручки")
Obj = Action.Get3DObject();
if (Obj.AsPanel) {

p = Obj.ToObject(pp);



tochkaRuchki = OpredelitStorouPaneli(p,Obj)
// alert(Obj.Name)
if (Obj.Name=="Фасад ящика") {
// alert("1")
Ruchka.Mount1(Obj,tochkaRuchki.x,tochkaRuchki.y,tochkaRuchki.z+Obj.Thickness, 0)

}
else
{
Ruchka.Mount1(Obj,tochkaRuchki.x,tochkaRuchki.y,tochkaRuchki.z+Obj.Thickness, UgolPovorota.Value)
}
}

i++
}


function OpredelitStorouPaneli(p,Obj)
{
lnpv = GabarityContura(Obj);


if (Obj.Name=="Фасад ящика") {
// alert("1")
return Obj.ToGlobal(NewPoint(pv.x/2, pv.y/2))

}


p = NewPoint(Math.round(p.x * 10) /10,Math.round(p.y * 10)/10 )
//alert(p.x + '\n'+ p.y)
ln =lnpv[0];
pv = lnpv[1];

//alert(p.x + ' -- '+ ln.x + ' -- '+ pv.x +'\n'+ p.y + ' -- '+ ln.y + ' -- '+ pv.y)

if (p.x == ln.x && p.y == ln.y) {
// alert("1")
return Obj.ToGlobal(NewPoint(ln.x + otX.Value, ln.y + otY.Value))

}
if (p.x == pv.x && p.y == ln.y )
{
//alert("2")
return Obj.ToGlobal(NewPoint(pv.x - otX.Value, ln.y + otY.Value))
}
if (p.x == pv.x && p.y == pv.y)
{
//alert("3")
return Obj.ToGlobal(NewPoint(pv.x - otX.Value, pv.y - otY.Value))
}
if (p.x == ln.x && p.y == pv.y)
{
//alert("4")
return Obj.ToGlobal(NewPoint(ln.x + otX.Value, pv.y - otY.Value))
}
seredinaX = (pv.x-ln.x)/2
seredinaY = (pv.y-ln.y)/2
//-------------X
if (p.x > seredinaX)
{
otXx = - otX.Value
}
else if (p.x < seredinaX)
{
otXx = otX.Value
}
else if (p.x = seredinaX)
{
otXx = 0
}
//-------------Y
if (p.y > seredinaY)
{
otYy = - otY.Value
}
else if (p.y < seredinaY)
{
otYy = otY.Value
}
else if (p.y = seredinaY)
{
otYy = 0
}
return Obj.ToGlobal(NewPoint(p.x + otXx, p.y + otYy))


}





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
}

[свернуть]

[Tehnik]

Как в таком скрипте (полка между боковинами):
1) Прописать путь к своему крепежу (c:\БМ8\Фурнитура\Крепеж\Полкодержатели\Полкодержа тель d5.f3d)?
2) Указать направление текстуры устанавливаемой панели по X (сейчас по Z)?

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

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

x1 = Bok1.GabMax.x + 0;
x2 = Bok2.GabMin.x - 0;
z1 = Bok1.GabMin.z + 0;
z2 = Bok1.GabMax.z - 0;

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();

[свернуть]

[Briz]

1) 'c:\\БМ8\\Фурнитура\\Крепеж\\Полкодержатели\\Полко держа тель d5.f3d'
2)Polka.TextureOrientation = TextureOrientation.Horizontal;

[Tehnik]

Briz, в скрипте разработчиков "Крепеж на панелях", откуда берется крепеж Уголок и Евровинт? У меня таких названий нет ни в параметрической, ни в произвольной.

Как тогда по OpenFurniture извлекать параметрическую фурнитуру (где она физически храниться)?

Крепеж на панелях

V1 = AddVertPanel(0, 0, 150, 300, 0);
V2 = AddVertPanel(0, 0, 150, 300, 200);
H = AddHorizPanel(0, 0, 200, 150, 100);

Screw = OpenFurniture('Евровинт.f3d');
Screw.Mount(H, V1, 0, 0, 30);
Screw.Mount(H, V1, 0, 0, 120);
Screw.Mount(H, V2, 0, 0, 75);

Corner = OpenFurniture('Уголок.f3d');
Corner.Mount(H, V1, 50, 0, 75);
Corner.Mount(H, V2, 100, 0, 30);
Corner.Mount(H, V2, 100, 300, 120);

[свернуть]

Как затормозить команду выбора крепежа NewFurnitureInput? А то скрипт строит полку, но игнорирует окошко выбора.

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

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

x1 = Bok1.GabMax.x + 0;
x2 = Bok2.GabMin.x - 0;
z1 = Bok1.GabMin.z + 0;
z2 = Bok1.GabMax.z - 0;

function MoveOdj()
{
DeleteNewObjects()
Polka = AddHorizPanel(x1, z1, x2, z2, Action.Pos3.y);
Polka.TextureOrientation = TextureOrientation.Horizontal;
zp1 = Polka.GabMin.z;
zp2 = Polka.GabMax.z;
Polka.PositionY = Action.Pos3.y

ShelfFast.Mount(Panel, LeftPanel, ShLeft, PosY, 32);
ShelfFast.Mount(Panel, RightPanel, ShRight, PosY, 32);
ShelfFast.Mount(Panel, LeftPanel, ShLeft, PosY, Depth - 32);
ShelfFast.Mount(Panel, RightPanel, ShRight, PosY, Depth - 32);
}

Action.ShowPoints = true;
Action.OnMove = function() {MoveOdj()};
Action.OnClick = function() {Action.Finish()};
Action.Continue();

[свернуть]