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

[свернуть]

[bbb i ko]

Есть потребность написать код позволяющий построить панели в БМ по таблице Excel. Хотел спросить у гуру - возможно ли такое сделать с помощью скрипта? Соответствующую заявку разместил здесь.

[bbb i ko]

Пробую сделать самостоятельно ..
Не получается "создать" кромку, делаю так:
VPanel = AddPanel (400, 600);
VPanel.MaterialName = "Стена";
VPanel.Thickness = 20;
Butt = VPanel.Butts.Add;
Butt.Name = "Кромка REHAU 23х1.3 Серебристая[REHAU 23х1.3]";
Butt.ElemIndex = 55;
Butt.Sign = "fdgddfg";
Butt.Thickness = 2;
alert(Butt.Name + " " +Butt.Thickness+ " " +Butt.Sign); сообщение = Кромка REHAU 23х1.3 Серебристая[REHAU 23х1.3] 2 fdgddfg
VPanel.AddButt(Butt, 1);

на последнюю строчку выдает ошибку, хотя предыдущей строчкой все атрибуты кромки вроде как выводятся, т.е. Butt создана ... Что не так, в чем ошибка?

[Letos]

Сообщение от bbb i ko

Пробую сделать самостоятельно ..
Не получается "создать" кромку, делаю так:
VPanel = AddPanel (400, 600);
VPanel.MaterialName = "Стена";
VPanel.Thickness = 20;
Butt = VPanel.Butts.Add;
Butt.Name = "Кромка REHAU 23х1.3 Серебристая[REHAU 23х1.3]";
Butt.ElemIndex = 55;
Butt.Sign = "fdgddfg";
Butt.Thickness = 2;
alert(Butt.Name + " " +Butt.Thickness+ " " +Butt.Sign); сообщение = Кромка REHAU 23х1.3 Серебристая[REHAU 23х1.3] 2 fdgddfg
VPanel.AddButt(Butt, 1);

на последнюю строчку выдает ошибку, хотя предыдущей строчкой все атрибуты кромки вроде как выводятся, т.е. Butt создана ... Что не так, в чем ошибка?

Сейчас проверить нет возможности, поэтому буду лишь предполагать:
1. VPanel.Butts.Add() - скобки при вызове функции обязательны
2. а нужна ли последняя строчка? По идее, функция Add автоматически добавляет кромку в панель и возвращает эту кромку как результат. А в функции AddButt первым аргументом должен идти материал кромки.

[wizardpnz]

Prop = Action.Properties;

Gsize = Prop.NewGroup('Размеры');
L = Gsize.NewNumber('Длина', 300);
A = Gsize.NewNumber('Ширина', 200);


кусок из скрпта базиса
обьясните как взять значение из поля ввода

[Letos]

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

Prop = Action.Properties;

Gsize = Prop.NewGroup('Размеры');
L = Gsize.NewNumber('Длина', 300);
A = Gsize.NewNumber('Ширина', 200);


кусок из скрпта базиса
обьясните как взять значение из поля ввода

L.Value;
A.Value;

[bbb i ko]

Промежуточный вариант:

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

var CSVToArray = function ( strData, strDelimiter ){

strDelimiter = (strDelimiter || ",");

var objPattern = new RegExp(
(
"(\\" + strDelimiter + "|\\r?\\n|\\r|^)" +
"(?:\"([^\"]*(?:\"\"[^\"]*)*)\"|" +
"([^\"\\" + strDelimiter + "\\r\\n]*))"
),
"gi"
);

var arrData = [[]];
var arrMatches = null;

while (arrMatches = objPattern.exec( strData )){
var strMatchedDelimiter = arrMatches[ 1 ];
if (
strMatchedDelimiter.length &&
strMatchedDelimiter !== strDelimiter
){
arrData.push( [] );
}
var strMatchedValue;
if (arrMatches[ 2 ]){
strMatchedValue = arrMatches[ 2 ].replace(
new RegExp( "\"\"", "g" ),
"\""
);
} else {
strMatchedValue = arrMatches[ 3 ];
}
arrData[ arrData.length - 1 ].push( strMatchedValue );
}

return( arrData );
}

arr = CSVToArray(system.readTextFile('test.csv'));

for(var row = 0; row < arr.length-1; row++){

if (arr[row][12] == 'konstr_true')
{
Y_dir = 1
}
else
{
Y_dir = -1
}
HPanel=AddHorizPanel(0, 0, Number(arr[row][0],10), Number(arr[row][1],10), row*100*Y_dir);
HPanel.MaterialName = arr[row][2];
HPanel.Thickness = Number(arr[row][3],10);

for(var side_butt=0; side_butt < 4; side_butt++){
Butt_Material = arr[row][4+side_butt*2];
if (Butt_Material != '')
{
Butt = HPanel.Butts.Add();
Butt.Material = arr[row][4+side_butt*2];
Butt.ElemIndex = side_butt;
Butt.Sign = "REHAU 23х1.3";
Butt.Thickness = Number(arr[row][5+side_butt*2],10);
}
}
}

[свернуть]

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

[andronf]

Сообщение от bbb i ko

bbb i ko

А как этот csv файлик заполнять значениями? Вручную?

[bbb i ko]

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

А как этот csv файлик заполнять значениями? Вручную?

Предполагается, что принимаются заказы на изготовление деталей в xls - т.е. заказчик вам приносит эту таблицу.

[ave2008]

Сообщение от bbb i ko

Предполагается, что принимаются заказы на изготовление деталей в xls - т.е. заказчик вам приносит эту таблицу.

Попробовал, но запутался в запятых. Написал vba-проект excel, для конвертации данных из привычного excel листа в файл *.csv.
Скрипт не мой, а от bbb i ko, взят с форума. Так как сам с js никак.
Схема работы :
1. Запустить xlsx to csv.xlsm (необходимо разрешить макросы).
2. Открыть, полученный от клиента или созданный самими, файл "бланк_шабон_или названый как-то по-другому" (в zip есть пустой лист(шаблон).
3. Запустить convert xlsx to csv : данные из листа(шаблона) переписываются в формат csv; выполняется замена знака "," на "." в данных.
4. Выбрать каталог для сохранения.
5. Обозвать выходные файлы.
6. Сохранить файлы в ранее выбранный каталог.
Т.е. "следуй за кнопками" . Не выходя из прогр. можно проделать то же самое с другим файлом-заказом и т.д., главное, чтобы каталоги были разные или сохр. файлы назывались по другому. Как-то так.
П.С. Добавил в скрипт js подрезку (думаю-это не лишне). Сам js-скрипт "зашил" в макрос, для возможности записать в него имя csv-файла. Т.к. связка js+csv индивидуальна.

[tourcar]

Здравствуйте. Тут можно немного упростить ситуацию - LibreOffice Calc читает в xlsx и записывает в csv. Не знаю насколько это критично, но разделитель полей там может быть установлен только в значениях: запятая, точка с запятой, двоеточие, табуляция или пробел. Табу на "точку" связан с использованием ее в числовом формате для разделения целой и дробной части.
С уважением, tourcar