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

БАЗИС 8 - Скрипты · 13.01.2014, 13:22

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

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

[свернуть]

Нажмите на изображение для увеличения
Название: Базис.jpg
Просмотров: 1497
Размер: 36.4 Кб
ID: 86248

Miknm · 28.02.2014, 15:36

Тогда, можно будет обращатьсяк стойкам по номеру, например
Stoiki[0].Name = '123';[/QUOTE]

И все равно ничего не получается, да и еще стяжка VB35 ставится наоборот...

maloji · 28.02.2014, 17:17

Помогите закольцевать скрипт до команды например кнопкой стоп

PHP код:


			
 Btn1 = NewButtonInput("Ручка");

Ruchka = NewFurnitureInput();



   Vert = NewFloatInput("По вертикали");

Vert.Value = 30;





Gor = NewFloatInput("По горизонтали");

Gor.Value = 114;





 Left = 0;

Right = 0;

Top = 0;

Bottom = 0;



    Right = GetEdge('Укажите вертикальную границу', AxisY).GFirst.x;

    Top = GetEdge('Укажите горизонтальную границу', AxisX).GFirst.y;









P1 = GetPanel("Укажите панель");

Ruchka.Mount1(P1, Right+Vert.Value, Top+Gor.Value, 0, 90);

**maxgmv** · 28.02.2014, 17:36

Цитата:

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

Помогите закольцевать скрипт до команды например кнопкой стоп

PHP код:


			
 Btn1 = NewButtonInput("Ручка");
Ruchka = NewFurnitureInput();

   Vert = NewFloatInput("По вертикали");
Vert.Value = 30;


Gor = NewFloatInput("По горизонтали");
Gor.Value = 114;


 Left = 0;
Right = 0;
Top = 0;
Bottom = 0;

    Right = GetEdge('Укажите вертикальную границу', AxisY).GFirst.x;
    Top = GetEdge('Укажите горизонтальную границу', AxisX).GFirst.y;




P1 = GetPanel("Укажите панель");
Ruchka.Mount1(P1, Right+Vert.Value, Top+Gor.Value, 0, 90);

Закольцевать можно так:

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

Btn1 = NewButtonInput("Ручка");
Ruchka = NewFurnitureInput();

Vert = NewFloatInput("По вертикали");
Vert.Value = 30;

Gor = NewFloatInput("По горизонтали");
Gor.Value = 114;

OkBtn = NewButtonInput('Закончить');

while (true)
{
Right = GetEdge('Укажите вертикальную границу', AxisY).GFirst.x;
Top = GetEdge('Укажите горизонтальную границу', AxisX).GFirst.y;
P1 = GetPanel("Укажите панель");
Ruch();
P1.Build();
OkBtn.OnChange = function () {
Action.Commit();
Action.Finish();
}
}

function Ruch()
{
Left = 0;
Right = 0;
Top = 0;
Bottom = 0;
Ruchka.Mount1(P1, Right+Vert.Value, Top+Gor.Value, 0, 90);
}

[свернуть]

после установки ручек нажмете кнопку Закончить и скрипт прекратит работу.

Miknm · 28.02.2014, 18:33

Уважаемый maxgmv, давненько от Вас не было шедевров....

maloji · 01.03.2014, 09:04

Спасибо.
Немножко подправил (в вашей версии ручки устанавливались в одно и то же место)
Теперь скрипт выглядит так:

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

Btn1 = NewButtonInput("Ручка");
Ruchka = NewFurnitureInput();

Vert = NewFloatInput("По вертикали");
Vert.Value = 30;

Gor = NewFloatInput("По горизонтали");
Gor.Value = 114;

Ugl = NewFloatInput("Угол");
Ugl.Value = 90;

OkBtn = NewButtonInput('Закончить');

while (true) {

Left = 0;
Right = 0;
Top = 0;
Bottom = 0;

Right = GetEdge('Укажите вертикальную границу', AxisY).GFirst.x;
Top = GetEdge('Укажите горизонтальную границу', AxisX).GFirst.y;

P1 = GetPanel("Укажите панель");
Ruchka.Mount1(P1, Right+Vert.Value, Top+Gor.Value, 10000000000000, Ugl.Value);

OkBtn.OnChange = function () {
Action.Commit();
Action.Finish();
}

}

[свернуть]

Ну или так (убрал обнуление системы координат перед установкой ручки)

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

Btn1 = NewButtonInput("Ручка");
Ruchka = NewFurnitureInput();

Vert = NewFloatInput("По вертикали");
Vert.Value = 30;

Gor = NewFloatInput("По горизонтали");
Gor.Value = 114;

Ugl = NewFloatInput("Угол");
Ugl.Value = 90;

OkBtn = NewButtonInput('Закончить');

while (true)
{
Right = GetEdge('Укажите вертикальную границу', AxisY).GFirst.x;
Top = GetEdge('Укажите горизонтальную границу', AxisX).GFirst.y;
P1 = GetPanel("Укажите панель");
Ruch();
P1.Build();
OkBtn.OnChange = function () {
Action.Commit();
Action.Finish();
}
}

function Ruch()
{
Ruchka.Mount1(P1, Right+Vert.Value, Top+Gor.Value, 1000000000000, Ugl.Value);
}

[свернуть]

Недостаток скрипта состоит в том что ручки правильно устанавливаются только кода панель фронтальная...
Ruchka.Mount1(P1, Right+Vert.Value, Top+Gor.Value, 1000000000000, Ugl.Value) - Параметр по "z" завышен, чтобы избежать установки ручки на обратную сторону панели

**maxgmv** · 01.03.2014, 17:25

Цитата:

Немножко подправил (в вашей версии ручки устанавливались в одно и то же место)

Я сделал только чтобы скрипт зациклился, а так в нем работать еще есть над чем.

Miknm · 03.03.2014, 13:37

Уважаемые форумчане, подскажите почему эксцентрики неправильно ставятся? Почему они не внутри полки, а снаружи приклеиваются. И опять же по методу Mount нет выбора стороны панели для правильной ориентации крепежа. Как с этим бороться?

Briz · 03.03.2014, 14:47

В параметрах Mount указываются координаты точки. В зависимости от тоог, слева или справа от панели находится указанная точка - с той пласти и будет ставиться крепёж

Miknm · 05.03.2014, 15:09

Народ подскажите пожалуйста.
Ставлю на дверь профиль-ручку.
Она ставится, но только к нижнему габариту шкафа, а мне нужно ее приподнять от пола на высоту (напр цоколя или дна).
Вопрос: как сдвинуть ручку-профиль вверх. Вот кусок скрипта:
// Устанавливаем Профиль-ручку на двери -------//
MatRuch.SetActive();
Xr1= PozX-20;
Yr1= Glub.Value-45;
Xr2= PozX- 5;
Yr2= Glub.Value-17;
Rad=3;
DlR= VysDver
Ручка = AddExtrusion('Ручка');
Ручка.Name='Ручка-профиль';
Ручка.Contour.AddRoundRect(Xr1, Yr1, Xr2, Yr2, Rad);
// вытянем профиль вдоль оси Y
Ручка.Orient(AxisY, AxisZ);
// установим длину профиля
Ручка.Thickness = DlR;
MatDver.SetActive();
//-----------------------------------------------

Miknm · 05.03.2014, 15:53

Всё, разобрался. Нужно установить принудительно высоту позиции по Y^
Ручка.PositionY = PozY;

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

Обратите внимание на полезные ответы в этой теме!

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

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

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