БАЗИС 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 объект по его типу')

[свернуть]

[Letos]

Сообщение от Rafael M

Вопрос: Почему при изменении параметров, после нажатия установить 84 строка не определена? Хот

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

Edit = NewNumberInput("Между полками");

FileOptions = 'Установка полок.xml'; //создаем файл настроек

function MakeProperties()
{
Prop = Action.Properties;
Shelf = Prop.NewGroup('Полки');
ShelfMat = Shelf.NewMaterial('Материал полок');
ShVidimPol = Shelf.NewButt('Кромка');


ShelfCount = Prop.NewNumber('Количество', 2);
Orientation = Prop.NewCombo('Направление текстуры:', 'По горизонтали\n' + 'По вертикали');
Orientation.Store = false;
ShelfOffsetP = Prop.NewNumber('Передний отступ', 10);
ShelfOffsetZ = Prop.NewNumber('Задний отступ', 0);
ShelfOffsetB = Prop.NewNumber('Отступ с боков', 1);

Krepezh = Prop.NewGroup('Фурнитура')
LCorner = Krepezh.NewFurniture('Фурнитура');
OB = Krepezh.NewNumber('Фурнитура сзади', 50);
OF = Krepezh.NewNumber('Фурнитура спереди', 50);

//LCorner = Prop.NewFurniture('Фурнитура');
OkBtn = Prop.NewButton('Установить');
}

MakeProperties(); //Активация окна параметров
Action.Properties.Load(FileOptions); //Чтение из файла настроек
Action.OnFinish = function() {
Action.Properties.Save(FileOptions);
}

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

//Обработка любого изменения значений свойств
Prop.OnChange = function() {
DeleteNewObjects(); // удалить объкты созданные в этой команде
Make(); //Вызываем функцию построения всех панелейъ
};
ShelfMat.SetActive(); //Устанавливаем активный материал. Все последующие лементы будут из этого материала

//Установка полок в секцию
LeftPanel = GetPanel('Укажите левую панель');
RightPanel = GetPanel('Укажите правую панель');
Left = LeftPanel.GabMax.x;
Right = RightPanel.GabMin.x;

TopPanel = GetPanel('Укажите верхнюю панель');
BottomPanel = GetPanel('Укажите нижнюю панель');
Top = TopPanel.GabMin.y;
Bottom = BottomPanel.GabMax.y;

Back = LeftPanel.GabMin.z;
Front = RightPanel.GabMax.z;

if (LeftPanel.GabMin.z < RightPanel.GabMin.z) //Условие: если зад левой панели < зад правой панели
Back = LeftPanel.GabMin.z; // Установить зад зад левой
else // Иначе
Back = RightPanel.GabMin.z; // Установить зад зад правой
if (RightPanel.GabMax.z < LeftPanel.GabMax.z)
Front = RightPanel.GabMax.z;
else
Front = LeftPanel.GabMax.z;

Action.Continue(); //не завершать действие

function Make()
{
OffsetP = ShelfOffsetP.Value; // Значение спереди
OffsetZ = ShelfOffsetZ.Value; // Сзади
OffsetB = ShelfOffsetB.Value; // С боков

Count = ShelfCount.Value; // Количество полок
Thick = ActiveMaterial.Thickness; // Толщина=толщина активного материала

PosY = Bottom;
SectionHeight = Top - Bottom; //Высота секции
YInc = (SectionHeight - Count * Thick) / (Count + 1);
Edit.Value = YInc; // Расстояние между полками

for (var k = 0; k < Count; k++) // Загадка для меня...

{
PosY += YInc;
Panel = AddHorizPanel(Left + OffsetB, Back + OffsetZ, Right - OffsetB, Front - OffsetP, PosY);
Panel.Name = 'полка';
//Polka.TextureOrientation = ftoHorizontal;
Polkodergatel = LCorner.Value;
Polkodergatel.Mount(Panel, LeftPanel, Left, PosY, Back + OB.Value);
Polkodergatel.Mount(Panel, RightPanel, Right, PosY, Back + OB.Value);
Polkodergatel.Mount(Panel, LeftPanel, Left, PosY, Front - OF.Value);
Polkodergatel.Mount(Panel, RightPanel, Right, PosY, Front - OF.Value);
PosY += Thick;


switch (Orientation.Value) {
case 'По горизонтали':
Panel.TextureOrientation = TextureOrientation.Horizontal;
break;
case 'По вертикали':
Panel.TextureOrientation = TextureOrientation.Vertical;
break;
}

Panel.AddButt(ShVidimPol, 0); //0- задняя сторона
Panel.AddButt(ShVidimPol, 1); // 1- левая сторона
Panel.AddButt(ShVidimPol, 2); // 2- передняя сторона
Panel.AddButt(ShVidimPol, 3); // 3- правая сторона
}
}
Make()
SetCamera(p3dPerspective)

[свернуть]

я полки устанавливаются

У себя запустил - установка нормально отработала, редактор ошибок не показал. Можете прислать скриншот, где будет видно проблему?

[Rafael M]

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

У себя запустил - установка нормально отработала, редактор ошибок не показал. Можете прислать скриншот, где будет видно проблему?

Полки расставляет, все отлично, смущает только строка "PosY = Bottom;", после внесения изменения параметров. Это так должно быть? Или есть ошибка?

[Letos]

Сообщение от Rafael M

Полки расставляет, все отлично, смущает только строка "PosY = Bottom;", после внесения изменения параметров. Это так должно быть? Или есть ошибка?

В редакторе отображает ошибку, что переменная Bottom не определена. Но я не могу понять, как такое могло произойти. По коду она определяется сразу в теле скрипта, поэтому не могу представить ситуацию, когда эта ошибка может выскочить. Если есть желание разобраться в этой ошибке, можно попробовать через логгирование понять, где и как она выскакивает. Для этого надо изменить следующие строки (добавить system.log вызовы):

// Обработка нажатия кнопки
OkBtn.OnClick = function () {
    DeleteNewObjects(); // Удаление старых параметров
    system.log('start installation');
    Make(); // Вызов функции построений всех панелей
    system.log('end installation');
    SetCamera(p3dPerspective); // Установка камеры
    Action.Finish();
    system.log('finished');
}

//Обработка любого изменения значений свойств
Prop.OnChange = function () {
    DeleteNewObjects(); // удалить объкты созданные в этой команде
    system.log('prop on change called');
    Make(); //Вызываем функцию построения всех панелейъ
};

Сохранить скрипт и запустить до ошибки. Интересно, что будет в логе и положение строки с ошибкой в логе.

З.Ы. Тут еще одна идея возникла - маловероятно, но всё же. Проверьте, одинаково ли называются переменные. Выделите и скопируйте название переменной Bottom со строки 59 (где она определяется), вставьте её в строку поиска в редакторе(Ctrl+F для вызова поиска), и посмотрите, найдёт ли поиск это слово на 84 строке. Если не найдёт - значит проблема найдена (Название переменной другое: например буква "о" в другой раскладке), и нужно будет все имена Bottom привести к одному образцу. Если всё нормально - тогда остается "шаманство" в виде варианта выше.

[shapori]

Подскажите плиз, как реализовать вырез в панели по заданным размерам с помощью скрипта?

[Timofeyon]

Всем добрый день! Кто сталкивался с такой проблемой. При создании отверстия в детали. В чем суть проблемы....
Рис.1 - Сквозное отверстие не хочет делатся сквозным а всего лишь углубляется на 10 мм.
Рис.2 - после завершение скрипта вроде сквозное, но линия на 10 мм так и остается.
Рис. 3 - не сразу заметил, но после того как скрипт завершен. Возвращаясь назад в него через кнопку "Редактировать" (Данные сохраняются Action.Properties.Load(FileOptions)) - отверстие станвится как надо. В че может быть проблема?

С кодом вроде все нормально
Skoz = TipKorp.NewFurniture('Сквозное');
Skoz.Value.Mount1(Mont_Z,100,800,75,0);

[Timofeyon]

Еще одна трудность. Как поставить глухое отверстие на торец детали (под конфермат 4,5х33).
Метод: Mount1. Указываю в размерах на середину торца, но оно савится на пласть левую или правую но ни как не на торец. Или средвсва Scripta непосильны?

Tor = TipKorp.NewFurniture('В торец');
Tor.Value.Mount1(Bokov_1,9,118,75,0);

[Letos]

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

Еще одна трудность. Как поставить глухое отверстие на торец детали (под конфермат 4,5х33).
Метод: Mount1. Указываю в размерах на середину торца, но оно савится на пласть левую или правую но ни как не на торец. Или средвсва Scripta непосильны?

Tor = TipKorp.NewFurniture('В торец');
Tor.Value.Mount1(Bokov_1,9,118,75,0);

Mount1 ставит фурнитуру на пласть. Вашу задачу решить можно замороченным путём: установить отверстие, а потом его повернуть и сдвинуть. Вот пример для установки отверстия на левый торец фронтальной панели, установленной в начале координат:

    var furn = Tor.Value.Mount1(Bokov_1, 0, 150, 16, 0);
    if (furn) {
        furn.RotateY(270);
        furn.PositionZ = furn.PositionZ - Bokov_1.Thickness / 2;
    }

З.Ы. Проверил этот же код на евровинте - ставит криво. Так что, если собираетесь делать какой-то универсальный скрипт, надо думать что-то другое.

[Letos]

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

Всем добрый день! Кто сталкивался с такой проблемой. При создании отверстия в детали. В чем суть проблемы....
Рис.1 - Сквозное отверстие не хочет делатся сквозным а всего лишь углубляется на 10 мм.
Рис.2 - после завершение скрипта вроде сквозное, но линия на 10 мм так и остается.
Рис. 3 - не сразу заметил, но после того как скрипт завершен. Возвращаясь назад в него через кнопку "Редактировать" (Данные сохраняются Action.Properties.Load(FileOptions)) - отверстие станвится как надо. В че может быть проблема?

С кодом вроде все нормально
Skoz = TipKorp.NewFurniture('Сквозное');
Skoz.Value.Mount1(Mont_Z,100,800,75,0);

Попробуйте после создания отверстия сделать команду Model.Build().
Я проверял на 8 народной, демо, и 10 демо - всё нормально отрисовывает и отверстие сразу получается сквозным.

[Timofeyon]

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

Попробуйте после создания отверстия сделать команду Model.Build().

Должно ведь так получится?

Skoz = TipKorp.NewFurniture('Сквозное');
Skoz.Value.Mount1(Mont_Z,100,800,75,0);
Mont_Z.Build();

Или имено Model.Build(); Вообщем пробывал и так и так, ничего не миняется (файл с настрошками .xml - удалял). Вот код интересно работает у Вас?

PHP код:

FileOptions = 'Настройки.xml';
 MakeProperties();
 Action.Properties.Load(FileOptions);
  Action.OnFinish = function() {
  Action.Properties.Save(FileOptions);
  }

  Make();
  Action.Continue();
  function MakeProperties() {
  Prop = Action.Properties;


  Korpus = Prop.NewGroup('Корпус');
  z2 = Korpus.NewNumber('Глубина', 300);
  h2 = Korpus.NewNumber('Высота', 300);
  t = Korpus.NewNumber('Ширина', 400);
  h1 = Korpus.NewNumber('Высота ног',100);
  z1 = Korpus.NewNumber('Отступ от стены',0);
  Mat = Korpus.NewMaterial('Корпус');
  Skoz = Korpus.NewFurniture('Сквозное');

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

  Prop.OnChange = function() { //Обработка любого изменения значений свойств
  Make(); //Вызываем функцию построения всех панелей
  }


  }

function Make() {
  DeleteNewObjects();
  BeginParametricBlock("Тумбочка");

  Mat.SetActive();

  Mont_Z = AddHorizPanel(0, z1.Value, t.Value, z2.Value, h1.Value)
  Skoz.Value.Mount1(Mont_Z,100,100,75,0);
  Model.Build();
  Mont_Z.Build();

  EndParametricBlock();
 } 


[Letos]

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

интересно работает у Вас?

Работает так же, как вы и описывали. Но при нажатии на кнопку "Перестроить модель" после выполнения скрипта отверстие становится сквозным. Скриптом нашёл способ вызвать нажатие этой кнопки, правда, сквозным оно станет только после нажатия кнопки "Построить", обработчик которой (изменённый) приведён ниже.

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