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

[свернуть]

[Am0ralist]

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

p = AddFrontPanel(0, 0, 100, 200, 0);
p.MaterialName = 'ДСП 16\rМой артикул';
p.AddPlastic('ДВП\rАртикул пластика', true);

чОрт, про каретку забыл...
только \n проверил...
Спасибо тебе, добрый человек!

[WingZZ]

Вопрос. Как можно выбрать весь крепеж принадлежащий выбраной панели?

[Grom]

Пишите скрипт и сохраняете в папке Scripts (C:\Users\user\Documents\Bazis8)

Подскажите, как можно сделать в скрипте "двери-купе" возможность выбора наполнения не только ДСП 10 мм, но и зеркала 4 мм

Добавлено через 2 минуты
Подскажите, как можно сделать в скрипте "двери-купе" возможность выбора наполнения не только ДСП 10 мм, но и зеркала 4 мм

[maxgmv]

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

Пишите скрипт и сохраняете в папке Scripts (C:\Users\user\Documents\Bazis8)

Подскажите, как можно сделать в скрипте "двери-купе" возможность выбора наполнения не только ДСП 10 мм, но и зеркала 4 мм

Добавлено через 2 минуты
Подскажите, как можно сделать в скрипте "двери-купе" возможность выбора наполнения не только ДСП 10 мм, но и зеркала 4 мм

Как вариант...
В function MakeProp() третьей строкой добавить
MatNapol = Prop.NewCombo('Наполнение', 'ДСП 10 мм\nЗеркало 4 мм');

а в function DverC() для цикла уставновки наполнения после PosY2;

switch (MatNapol.ItemIndex) {
case 0:
ActiveMaterial.Make('ДСП EGGER 10 мм', 10);
ZZ = 0;
break
case 1:
ActiveMaterial.Make('Зеркало 4 мм', 4);
ZZ = 3;
break
}

и в строке

DSP = AddFrontPanel(LeftDsp, PosY2 - 8, RightDsp, Ydsp + PosY2, DspProfCback + ZZ);

Коэффициент ZZ нужен для корректного поциционирования зеркала по оси Z из-за разной толщины материалов.

[Briz]

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

Вопрос. Как можно выбрать весь крепеж принадлежащий выбраной панели?

Если панель выделена и установлена галочка "подсвечивать крепёж", то можно так:
List = [];
for (var k = 0; k < Model.HighlightCount; k++)
List.push(Model.Highlights[k].Name);
alert(List.join('\n'));

[WingZZ]

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

Если панель выделена и установлена галочка "подсвечивать крепёж", то можно так:
List = [];
for (var k = 0; k < Model.HighlightCount; k++)
List.push(Model.Highlights[k].Name);
alert(List.join('\n'));

Спасибо.
Но этот вариант немного не подходит.Суть задачи такова. Есть изделие с большим кол-вом используемых цветов ЛДСП. Надо посчитать сколько и какого цвета необходимо заглушек на крепеж.

Добавлено через 14 минут

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

Спасибо.
Но этот вариант немного не подходит.Суть задачи такова. Есть изделие с большим кол-вом используемых цветов ЛДСП. Надо посчитать сколько и какого цвета необходимо заглушек на крепеж.

Вариан учета заглушек с во время постановки крепежа сделать не сложно.
Нужен метод подсчета на готовой модели с проставленным крепежом

[Am0ralist]

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

Вот функция для кромки не выбирая из активных.

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

Дополню предыдущее сообщение. Есть еще

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

p.MaterialName = 'ДСП 16\rМой артикул';

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

Итак, создание кромки, дополненное и с комментариями

function AddButts1(Panel, ElemIndex, Material, Thickness, Sign, Overhung, Allowance, Width, Profile, Cut, )
{
b = Panel.Butts.Add();
b.ElemIndex = ElemIndex; // на какой элемент контура ставится кромка
b.Material = Material; // наименование кромки\rАртикул
b.Thickness = Thickness; // Толщина кромки
b.Sign = Sign; // Обозначение кромки на чертежах
b.ClipPanel = true; // Подрезать на толщину кромки
b.Overhung = Overhung; // Свес кромки
b.Allowance = Allowance; // Припуск кромки
b.Width = Width; /* Ширина кромки. Для "неленты", закромленной в ручную, выводит -1, и даже если задать 40, то в спеку выпадет в тощину панели, а не заданное число => абсолютно бессмысленное и нигде не использующееся свойство, которое можно опустить*/

/* А вот, собственно, найденные, но все, кроме первых двух, не проверенные мной свойства:*/

b.ButtType = 0; // Лента = 0, "нелента" = 1
b.CutIndex = -1; // Кромка не входит в отрез, если входит, то нумерация с 0
b.Profile = Profile; // Контур сечения канта, объект T2DElemList
b.FrontFace = true; // Возможно, от какой плоскости строиться профиль канта
b.CutAssigned = true; // Задает, есть ли паз под кант
b.Cut = Cut; // Собственно, паз, объект TFurnCut
b.Tag = -1; /* Без понятия, что это, но кроме -1 значения ни разу не принимало, может кто угадает?*/
}

// ну и вызов функции, чуть с большим количеством параметров:
AddButts1(Dno, 0, 'Имя Материал\rАртикул Материала', 2, 'Обозн', 20, 0, 19, ProfileKant, CutKant)

[свернуть]

Так что теперь основная проблема, это анализ контура, на который наносится кромка. А с учетом, что нумерация элементов контура абсолютно непоследовательна, то тут только через координаты, тип элемента, углы и прочее.
В идеале бы хотелось наносить кромку отрезом по криволинейным сторонам... Пока думаю как)

[WingZZ]

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

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

Итак, создание кромки, дополненное и с комментариями

function AddButts1(Panel, ElemIndex, Material, Thickness, Sign, Overhung, Allowance, Width, Profile, Cut, )
{
b = Panel.Butts.Add();
b.ElemIndex = ElemIndex; // на какой элемент контура ставится кромка
b.Material = Material; // наименование кромки\rАртикул
b.Thickness = Thickness; // Толщина кромки
b.Sign = Sign; // Обозначение кромки на чертежах
b.ClipPanel = true; // Подрезать на толщину кромки
b.Overhung = Overhung; // Свес кромки
b.Allowance = Allowance; // Припуск кромки
b.Width = Width; /* Ширина кромки. Для "неленты", закромленной в ручную, выводит -1, и даже если задать 40, то в спеку выпадет в тощину панели, а не заданное число => абсолютно бессмысленное и нигде не использующееся свойство, которое можно опустить*/

/* А вот, собственно, найденные, но все, кроме первых двух, не проверенные мной свойства:*/

b.ButtType = 0; // Лента = 0, "нелента" = 1
b.CutIndex = -1; // Кромка не входит в отрез, если входит, то нумерация с 0
b.Profile = Profile; // Контур сечения канта, объект T2DElemList
b.FrontFace = true; // Возможно, от какой плоскости строиться профиль канта
b.CutAssigned = true; // Задает, есть ли паз под кант
b.Cut = Cut; // Собственно, паз, объект TFurnCut
b.Tag = -1; /* Без понятия, что это, но кроме -1 значения ни разу не принимало, может кто угадает?*/
}

// ну и вызов функции, чуть с большим количеством параметров:
AddButts1(Dno, 0, 'Имя Материал\rАртикул Материала', 2, 'Обозн', 20, 0, 19, ProfileKant, CutKant)

[свернуть]

Так что теперь основная проблема, это анализ контура, на который наносится кромка. А с учетом, что нумерация элементов контура абсолютно непоследовательна, то тут только через координаты, тип элемента, углы и прочее.
В идеале бы хотелось наносить кромку отрезом по криволинейным сторонам... Пока думаю как)

Попробовал, но понял что это не понять.

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

Butt = Action.Properties.NewButt('Кромка');
p = AddPanel();
C = p.Contour;
C.Clear();
L1 = C.AddLine(0, 0, 300, 0);
L2 = C.AddLine(300, 0, 300, 200);
C.AddArc3(NewPoint(300, 200), NewPoint(150, 250), NewPoint(0, 200));
L3 = C.AddLine(0, 200, 0, 0);
C.Rounding(290, 10, 20);
C.Rounding(80, 20, 25);
C.Rounding(220, 20, 25);
StartEditing(p)
for (i = 0; i < p.Contour.Count; i++){
alert(i + ' ' +p.Contour.Objects[i].ArcRadius)
b = p.Butts.Add();
b.Material = Butt.Name;
b.ElemIndex = i;
b.Sign = Butt.Name;
b.CutIndex = i
}
p.Build()

[свернуть]

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

[Am0ralist]

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

Попробовал, но понял что это не понять.
...
for (i = 0; i < p.Contour.Count; i++){
alert(i + ' ' +p.Contour.Objects[i].ArcRadius)
b = p.Butts.Add();
b.Material = Butt.Name;
b.ElemIndex = i;
b.Sign = Butt.Name;
b.CutIndex = i
}
...
Нумерация элементов не совпадает с индексом нанесенной кромки

а) в вашем коде:
b.ElemIndex = i;
и
b.CutIndex = i

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

б) нумерация элементов в базисе идет от балды, обходя сложные контуры против часовой можно получить такую последовательность: 0,2,3,5,7,1,4,6 (точнее, скорей всего от времени создания данного элемента зависит, но не суть, да и не проверил я это). Это все по координатам и значениям ElType видно. И вообще никакой связи между номером кромки и номером элемента контура нет (но тут понятно, кромок может быть несколько на одном элемента).

Но вообще, здесь надо создавать массив координат Pos1 и Pos2, плюс координат центров (Center) для дуг с привязкой к номеру контура. После чего сортировку сделать (не забыв вначале округлить координаты до трех знаков)и уже отсортированные обходить, сверяя длины с габаритами детали, углы и прочее, короче логику анализа навернуть.

Кстати, собственно, зная координаты X и Y одного конца элемента и центра дуги вывести алерт на радиус < 30 - можно достаточно легко (спрашивали парой страниц ранее)

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

Что-то в духе, ибо не претендую на правильность, под рукой нет ничего, на память пишу:

c = Panel.Countour; // где Panel - какая-то панель.
for (i = 0; i < p.Contour.Count; i++) c[i].ElType == 2 && (R = ((c[i].Pos1.x - c[i].Center.x)^2+(c[i].Pos1.y - c[i].Center.y)^2)^0,5) <= 30 ? alert(i + ' ' + R) : break;

}

[свернуть]

[STORM]

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