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

[свернуть]

[Avich]

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

Перед использованием скрипта необходимо расставить позиции штатным методом БМ. Наличие позиций перед запуском скрипта необходимо для сравнения одинаковых объектов внутри блока и назначению им соответственно одинаковых новых позиций.
Нумеруются только блоки которые вы выделили.
Позиции блокам расставляются в том порядке, в котором вы их выделяли.
Внутри выделенного блока нумеруются все объекты которые уже имеют хоть какие то позиции, в т.ч. находящиеся в подблоках.

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

function NumObj(block) {
for (var i = 0; i < block.Count; ++i) {
if ((block.Objects[i].toString() != '[object TFurnBlock]')&&(block.Objects[i].ArtPos) && (block.Objects[i].ArtPos != '')) {
if (!obj_num[block.Objects[i].ArtPos]) {
obj_num[block.Objects[i].ArtPos] = num;
++num;
}
}
else if (block.Objects[i].toString() == '[object TFurnBlock]'){
NumObj(block.Objects[i]);
}
}
}

function NewNumObj(block) {
for (var i = 0; i < block.Count; ++i) {
if ((block.Objects[i].toString() != '[object TFurnBlock]')&&(block.Objects[i].ArtPos) && (block.Objects[i].ArtPos != '')) {
block.Objects[i].ArtPos = (num_block/1000).toFixed(3).toString().replace('0.','') + '_' + (obj_num[block.Objects[i].ArtPos]/1000).toFixed(3).toString().replace('0.','');
}
else if (block.Objects[i].toString() == '[object TFurnBlock]'){
NewNumObj(block.Objects[i]);
}
}
}

StartEditing(Model);
var num_block = 1;
for (var i = 0; i < Model.SelectionCount; ++i) {
if (Model.Selections[i].toString() == '[object TFurnBlock]') {
Model.Selections[i].ArtPos = (num_block/1000).toFixed(3).toString().replace('0.','');
var obj_num = {};
var num = 1;
NumObj(Model.Selections[i]);
NewNumObj(Model.Selections[i]);
++num_block;
}
}
Action.Commit();

[свернуть]

Здравствуйте. А можете немного изменить скрипт, что бы к позициям добавлялось имя блока (имена подблоков не должны учитываться) и при этом номера позиций должны остаться прежними.

[MebelitBY]

Доброго времени суток, уважаемые форумчане. Помогите доработать интересный скрипт (не помню где его взял), чтобы кроме имени он менял ещё и обозначение паза. Заранее спасибо всем откликнувшимся!


Скрипт №1

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

arCuts = []
PanelByCuts = [];
var PanelChanged = 0;

Model.forEachPanel(function(obj) {
if (obj.Cuts.Count > 0)
{
for(i=0;i<obj.Cuts.Count;i++)
{
var CutName = obj.Cuts[i].Name;
var Index = arCuts.indexOf(CutName);
if (Index < 0) {
Index = arCuts.push(CutName) - 1;
var Panels = [];
PanelByCuts.push(Panels);

}
PanelByCuts[Index].push(obj);
}
}

});

len = arCuts.length;

for (var i = 0; i < len; ++i) {
var Gr = Action.Properties.NewString(arCuts[i], 'Паз ДВП');
//Gr.NewButt('Кромка');
BtnPanSel = Gr.NewSelector('Панелей', PanelByCuts[i].length + ' шт');
BtnPanSel.Tag = i;
BtnPanSel.OnClick = function(Sel) {
UnSelectAll();
var Panels = PanelByCuts[Sel.Tag];
var len = Panels.length;
for (var j = 0; j < len; ++j) {
Panels[j].Selected = true;
}
};

BtnMake = Gr.NewButton('Переименовать');
BtnMake.Tag = i;
BtnMake.OnClick = function(Sel) {
UnSelectAll();
var Panels = PanelByCuts[Sel.Tag];
var Gr = Action.Properties.Items[Sel.Tag];
NewCutName = Gr.Value;
var CutName = Gr.Name;
plen = Panels.length;
system.log('make butts: ' + plen);
for (var j = 0; j < plen; ++j) {
if (RenameCuts(Panels[j], NewCutName, CutName))
PanelChanged++;
}
Action.Hint = 'отредактировано панелей: ' + PanelChanged;
Action.Commit();
};
}

NewButtonInput("Закончить").OnChange = function() { Action.Finish() };
NewButtonInput("Снять выделение").OnChange = function() { UnSelectAll() };


function RenameCuts(Panel, NewCutName, CutName) {
var res = false;
system.log('Panel: ' + Panel.Name);
for(i=0;i<Panel.Cuts.Count;i++)
{
var _CutName = Panel.Cuts[i].Name;

if (CutName == _CutName) {
Panel.Cuts[i].Name = NewCutName;
res = true;
}
}
return res;
}

Action.Continue();

[свернуть]

Ниже прикрепляю скрипт, который меняет обозначение паза (знакомый поделился). Но он в базисе 8 - не работает.


Скрипт №2

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

Undo.RecursiveChanging(Model);

let p1 = prompt("Введите текущее обозначение паза");
let p2 = prompt("Введите новое обозначение паза");
let st = 0;

Model.forEachPanel(function (obj){
if (obj.Cuts.Count > 0 ){
for (let i = 0; i < obj.Cuts.Count; i++) {
if (obj.Cuts[i].Sign == p1){
obj.Cuts[i].Sign = p2;
obj.Cuts[i].Name = p2;
st++;
}
}
}
})
alert ("Заменено " + st + " пазов");

[свернуть]

[Ovsyanicov]

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

Но он в базисе 8 - не работает.

Попробуйте заменить let на var.

[MebelitBY]

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

Попробуйте заменить let на var.

Заработало, спасибо.

А что нужно поменять в скрипте, чтобы заменялось обозначение не у всех пазов, а только у тех, которые на выделенных панелях?

В идеале нужно 2-а скрипта на основе тех, которые я выше высылал:
1). Скрипт №1 будет показывать информацию о всех пазах в модели, чтобы их визуально можно было проверить и массово переименовать
(но для этого скрипт надо доработать, чтобы он кроме названия менял ещё и обозначение, как это делает скрипт №2)
2). Скрипт №2 будет выборочно менять название и обозначение только на выделенных панелях
(для этого нужно этот скрипт доработать, чтобы он менял название и обозначение пазов только на выделенных моделях)

Спасибо.

[Ovsyanicov]

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

В идеале нужно 2-а скрипта на основе тех, которые я выше высылал:
1). Скрипт №1 будет показывать информацию о всех пазах в модели, чтобы их визуально можно было проверить и массово переименовать
(но для этого скрипт надо доработать, чтобы он кроме названия менял ещё и обозначение, как это делает скрипт №2)
2). Скрипт №2 будет выборочно менять название и обозначение только на выделенных панелях
(для этого нужно этот скрипт доработать, чтобы он менял название и обозначение пазов только на выделенных моделях)

В принципе, можно обойтись и одним скриптом. Если при запуске скрипта есть выделенные панели, то он может работать только с ними (пункт 2). Если выделенных нет, то работать будет со всей моделью целиком (пункт 1).
У меня в загашнике есть один подходящий скрипт, но, во-первых, он меняет только названия (надо доработать, чтобы менял и обозначения), а во-вторых он для версий 11 и 2021.
На днях попробую заняться доработкой.

[MebelitBY]

Нашёл на форуме скрипт переименования кромки (автор "wizardpnz")

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

Model.forEachPanel(
function(obj) {
for (i = 0; i < obj.Butts.Count; i++) {
var butt = obj.Butts.Butts[i];
var buttMaterial = butt.Material

butt.Material = Model.UserProperty[buttMaterial];
butt.Sign = Model.UserProperty[buttMaterial];
}
}
)

[свернуть]

Помогите, пожалуйста, доработать, чтобы на 8-м базисе работал.

[sergio1982]

Кто нибудь может подсказать как найти внешний контур (или контуры) панели?
Что то у меня никаких идей.
В более свежих версиях вроде как есть IsInContour.

[kos100pudov]

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

Кто нибудь может подсказать как найти внешний контур (или контуры) панели?
Что то у меня никаких идей.
В более свежих версиях вроде как есть IsInContour.

Вот, когда то писал скрипт для вычисления трех "реальных" контуров панели. В 8-ке не тестил.
https://xn--90aakbzfbcrjl8bxh.xn--p1...&postcount=225

[sergio1982]

kos100pudov
Посмотрел код, но не понял что он делает.

Сейчас у меня устроено так, находим все замкнутые контуры, и тот который с наибольшей длинной считается за внешний. Мне это нужно для вычисления длинны всех внутренних контуров - подсчёт фрезеровки на чпу.

В моих проектах этого в принципе достаточно.
Но в общем случае это не верно. Так как один внутренний контур может быть больше наружного, и внешних контуров может быть несколько.

И кстати не нашёл, есть ли формулы по вычислению площади контуров? Имеются ввиду конечно не прямоугольные.
Этой функции нет даже в Базисе.

[kos100pudov]

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

kos100pudov
Посмотрел код, но не понял что он делает.

Сейчас у меня устроено так, находим все замкнутые контуры, и тот который с наибольшей длинной считается за внешний. Мне это нужно для вычисления длинны всех внутренних контуров - подсчёт фрезеровки на чпу.

В моих проектах этого в принципе достаточно.
Но в общем случае это не верно. Так как один внутренний контур может быть больше наружного, и внешних контуров может быть несколько.

И кстати не нашёл, есть ли формулы по вычислению площади контуров? Имеются ввиду конечно не прямоугольные.
Этой функции нет даже в Базисе.

аааа... понял что вам нужно. подход в принципе нормальный. но насчет того как точно узнать является ли контур все же внешним, я бы пошел таким путем.
вычисляем минимальную и максимальную точки контура при помощи Contour.Min, Contour.Max и строим по этим точкам прямоугольник (для точного срабатывания можно сделать прямоугольник чуть меньше со всех сторон, думаю 0.1мм достаточно будет) - получается мы как бы вписываем существующий контур в прямоугольник. далее у вас в любом случае идет перебор элементов контура, так вот в этом переборе параллельно проверяем пересекается ли элемент контура с линиями описанного прямоугольника (geometry.Intersect(elem1,elem2)-возвращает массив точек пересечения). если пересекается то элемент контура явно принадлежит внешнему контуру. ну а дальше дело техники))

а можно поступить вообще просто)))
если вы нашли в одной панели несколько замкнутых контуров, то нужно их просто сложить друг с другом через "один_из_контуров.Addition(еще_один_из_контуро в)" и тогда останется только внешний)))