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

БАЗИС 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
Просмотров: 1498
Размер: 36.4 Кб
ID: 86248

sergio1982 · 07.10.2021, 11:44

Всё верно!

Цитата:

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

разместить его по иерархии в том же месте где и "оригинал"

Это я не представляю как в 8ке сделать, в идеале да, у меня в конец блока добавляет.
У меня не получилось изменить Model.Objects, ошибка доступа.

kos100pudov · 07.10.2021, 12:58

Цитата:

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

Всё верно!

Это я не представляю как в 8ке сделать, в идеале да, у меня в конец блока добавляет.
У меня не получилось изменить Model.Objects, ошибка доступа.

Когда то тут обсуждали баги при добавлении новой панели в существующий блок, который выбирали посредством указания панели уже присутствующей в блоке. Тогда немного зашли в тупил, написал в ТП, они ответили)):

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

Добрый день, Артём. Проблема в назначении панели в выделенный блок. Объекты, создаваемые в скриптах являются "временными" и не должны существовать в модели. Поэтому они пишутся во временную область модели, и по завершении скрипта или после вызова Action.Commit() в модели создаются нормальные объекты и их создание записывается в историю модели. Обычное решение такой проблемы заключается в разбиении скрипта на два этапа:
1. Создание объектов во временной области и сохранение их в модели с помощью Action.Commit()
2. "Перетаскивание" объектов из модели в нужный блок.
Пример для вашего кода:

var block=Model.Selected;
var pan=AddFrontPanel(0,0,100,100,0);
pan.Build();
Action.Commit();

pan = Model.Objects[Model.Count - 1];
// Перемещает и поворачивает панель, чтобы при изменении родительского объекта панели
// положение и поворот панели не изменилось относительно ГСК
pan.ReTransform(pan.Owner, block);
pan.Owner=block;

[свернуть]

на основании этого набросал вам скрипт. копирует любые выделенные объекты, переносит их в то же место по иерархии где и их оригинал, снимает выделение, выделяет копии.

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

var new_obj_mass = [];
for (var i=0; i<Model.SelectionCount; ++i){
//создаем копию объекта
var new_obj = AddCopy(Model.Selections[i]);
new_obj.Build();
Action.Commit();
//новый объект создан в верхнем уровне модели, поэтому читаем последний объект модели
new_obj = Model.Objects[Model.Count - 1];
//pan.ReTransform(pan.Owner, block); это нам не нужно
new_obj.Owner=Model.Selections[i].Owner;
//добавляем новый объект в массив
new_obj_mass.push(new_obj);
}
//снимаем выделение всего
UnSelectAll();
//выделяем то что в массиве - новые объекты
for (var i=0; i<new_obj_mass.length; ++i){
new_obj_mass[i].Selected = true;
}

[свернуть]

в 8-ке не проверял, нет под рукой....

sergio1982 · 07.10.2021, 13:37

Я тем же путём пошёл.
Со слоями так не работает, и тут начинаются танцы с бубнами.

Надеялся что может есть вариант с Model.Objects.

Цитата:

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

их в то же место по иерархии

Я понял, мне надо было включить в дереве сортировку по объекту.

MebelitBY · 11.10.2021, 14:43

Цитата:

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

Ничего не смог найти, написал свой, заодно и для быстрой отмены текстуры.

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

PHP код:


			


/*
v1.2
Выводит список материалов панелей.
При нажатии на материал задаёт всем панелям из этого материала текстуру по длинной стороне.
Погонные материалы не затрагиваются.
Квадратные детали не затрагиваются.
Обе стороны панели должны быть больше её толщины.
*/

Materials = {}
Keys = {}
Prop = Action.Properties;

Model.forEachPanel(function(Panel) {
    if (Panel.MaterialWidth > 0)      // погонный
        return
    MaterialName = Panel.MaterialName
    if (!Materials.hasOwnProperty(MaterialName)) {
        Materials[MaterialName] = 0
        b = Prop.NewButton(MaterialName)
        b.OnClick = Do.bind(b, MaterialName)
        Keys[MaterialName] = b
    }
    ++Materials[MaterialName]
})
for (var button in Keys) {
    Keys[button].Name = Materials[button]
};

b = Prop.NewButton('Все')
b.OnClick = AllDo.bind(b)


NewButtonInput('Закончить').OnChange = function () {Action.Finish()}
Action.Hint ='При нажатии на материал задаёт всем панелям из этого материала текстуру по длинной стороне'
Action.Continue();

function AllDo() {
    for (var button in Keys) {
        Do(button)
    }
}

function Do(MaterialName) {
    StartEditing(Model);
    Model.forEachPanel(function(Panel) {
        if (Panel.MaterialName !== MaterialName)
            return
        if (Panel.Contour.Height == Panel.Contour.Width)
            return
        x = Panel.GMax.x - Panel.GMin.x
        y = Panel.GMax.y - Panel.GMin.y
        z = Panel.GMax.z - Panel.GMin.z
        if (y > x && y > z)
            Panel.TextureOrientation = 2
        else
            Panel.TextureOrientation = 1
    })
    Model.Build()
    myalert('Проверена текстура в материале - ' + MaterialName + '\n\nПродолжить?')
    Action.Commit();
}

function myalert(str)
 {
    bool = confirm(str);
    if (!bool)
        throw ('no confirm');
}

PHP код:


			


/*
v1.2
Выводит список материалов панелей.
Погонные материалы не затрагиваются.
При нажатии на материал отменяет всем панелям из этого материала направление текстуры.
*/

Materials = {}
Keys = {}
Prop = Action.Properties;

Model.forEachPanel(function(Panel) {
    if (Panel.MaterialWidth > 0)      // погонный
        return
    MaterialName = Panel.MaterialName
    if (!Materials.hasOwnProperty(MaterialName)) {
        Materials[MaterialName] = 0
        b = Prop.NewButton(MaterialName)
        b.OnClick = Do.bind(b, MaterialName)
        Keys[MaterialName] = b
    }
    ++Materials[MaterialName]
})
for (var button in Keys) {
    Keys[button].Name = Materials[button]
};

b = Prop.NewButton('Все')
b.OnClick = AllDo.bind(b)


NewButtonInput('Закончить').OnChange = function () {Action.Finish()}
Action.Hint ='При нажатии на материал отменяет всем панелям из этого материала направление текстуры.'
Action.Continue();

function AllDo() {
    for (var button in Keys) {
        Do(button)
    }
}

function Do(MaterialName) {
    StartEditing(Model);
    Model.forEachPanel(function(Panel) {
        if (Panel.MaterialName !== MaterialName)
            return
        Panel.TextureOrientation = 0
    })
    Model.Build()
    myalert('Отменено направление текстуры в материале - ' + MaterialName + '\n\nПродолжить?')
    Action.Commit();
}

function myalert(str)
 {
    bool = confirm(str);
    if (!bool)
        throw ('no confirm');
}

[свернуть]

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

MebelitBY · 19.10.2021, 17:15

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

kos100pudov · 19.10.2021, 18:10

Цитата:

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

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

В 8-ке не проверял, но попробуйте этот.
Перед запуском нужно сохранить скрипт.

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

Action.Continue();
SaveBtn = NewButtonInput('Сохранить');
SaveBtn.OnChange = function() {
system.writeTextFile('conf.txt',Action.DS.Camera.AngleY+';'+Action.DS.Camera.AngleX);
Action.Finish();
};
LoadBtn = NewButtonInput('Восстановить');
LoadBtn.OnChange = function() {
var data=system.readTextFile('conf.txt').split(';');
Action.DS.Camera.AngleY = data[0];
Action.DS.Camera.AngleX = data[1];
Action.Finish();
};

[свернуть]

PravCom · 19.10.2021, 18:54

Цитата:

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

Перед запуском нужно сохранить скрипт.

Отличный вариант! Большое спасибо! Скажите, а есть ли возможность сохранять несколько видов? по принципу сцен в SketchUp?
я попробовал копировать скрипт и задать второму варианту новое наименование, но получилось, что скрипт упорно восстанавливает только последний вариант расположения

kos100pudov · 19.10.2021, 22:12

Цитата:

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

Отличный вариант! Большое спасибо! Скажите, а есть ли возможность сохранять несколько видов? по принципу сцен в SketchUp?
я попробовал копировать скрипт и задать второму варианту новое наименование, но получилось, что скрипт упорно восстанавливает только последний вариант расположения

запускаете скрипт, вращаете сцену, сохраняете новые виды.
после сохраняете все это в файл.
файлов можно сохранить сколько угодно.
также можно загружать списки видов из сохраненных файлов.

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

Action.Continue();
Prop = Action.Properties;
VievList = Prop.NewCombo('Сохраненные виды');
Prop.NewSeparator();
NewBut = Prop.NewButton('Добавить текущий вид');
DelBut = Prop.NewButton('Удалить текущий вид');
DelAllBut = Prop.NewButton('Очистить список');
Prop.NewSeparator();
SaveBut = Prop.NewButton('Сохранить список в файл');
LoadBut = Prop.NewButton('Загрузить список из файла');
Prop.NewSeparator();
CloseBut = Prop.NewButton('Закончить');

NewBut.OnClick = function(){
let name = '';
name = prompt('Введите имя вида');
VievList.AddItem(name + ';' + Action.DS.Camera.AngleY + ';' + Action.DS.Camera.AngleX);
VievList.Value = VievList.ComboItems[VievList.ComboItems.Count-1];
VievList.ItemIndex = VievList.ComboItems.Count-1;
}

DelBut.OnClick = function(){
VievList.ComboItems.Delete(VievList.ItemIndex);
if (VievList.ComboItems.Count>0){
VievList.Value = VievList.ComboItems[0];
VievList.ItemIndex = 0;
} else {
VievList.Value = '';
VievList.ItemIndex = -1;
}
}

DelAllBut.OnClick = function(){
VievList.ComboItems.Clear();
VievList.Value = '';
VievList.ItemIndex = -1;
}

SaveBut.OnClick = function(){
system.askWriteTextFile('txt', VievList.ComboItems.Text);
}

LoadBut.OnClick = function(){
var data = system.askReadTextFile('txt').split('\r\n');
for (var i=0; i<data.length; ++i){
if (data[i]!=''){
VievList.AddItem(data[i]);
//VievList.Value = VievList.ComboItems[VievList.ComboItems.Count-1];
//VievList.ItemIndex = VievList.ComboItems.Count-1;
}
}
if (VievList.ComboItems.Count>0){
VievList.Value = VievList.ComboItems[0];
VievList.ItemIndex = 0;
} else {
VievList.Value = '';
VievList.ItemIndex = -1;
}
}

VievList.OnChange = function(){
if (VievList.Value!=''){
var view = VievList.Value.split(';');
Action.DS.Camera.AngleY = view[1];
Action.DS.Camera.AngleX = view[2];
}
}

CloseBut.OnClick = function(){
Action.Finish();
}

[свернуть]

сори, пред вариант не работает в 8-ке.

вот исправленный под БМ8

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

Action.Continue();
Prop = Action.Properties;
VievList = Prop.NewCombo('Сохраненные виды');
Prop.NewGroup();
NewBut = Prop.NewButton('Добавить текущий вид');
DelBut = Prop.NewButton('Удалить текущий вид');
DelAllBut = Prop.NewButton('Очистить список');
Prop.NewGroup();
SaveBut = Prop.NewButton('Сохранить список в файл');
LoadBut = Prop.NewButton('Загрузить список из файла');
Prop.NewGroup();
CloseBut = Prop.NewButton('Закончить');

NewBut.OnClick = function(){
var name = prompt('Введите имя вида');
if (name){
VievList.AddItem(name + ';' + Action.DS.Camera.AngleY + ';' + Action.DS.Camera.AngleX);
VievList.Value = VievList.ComboItems[VievList.ComboItems.Count-1];
VievList.ItemIndex = VievList.ComboItems.Count-1;
}
}

DelBut.OnClick = function(){
VievList.ComboItems.Delete(VievList.ItemIndex);
if (VievList.ComboItems.Count>0){
VievList.Value = VievList.ComboItems[0];
VievList.ItemIndex = 0;
} else {
VievList.Value = '';
VievList.ItemIndex = -1;
}
}

DelAllBut.OnClick = function(){
VievList.ComboItems.Clear();
VievList.Value = '';
VievList.ItemIndex = -1;
}

SaveBut.OnClick = function(){
system.askWriteTextFile('txt', VievList.ComboItems.Text);
}

LoadBut.OnClick = function(){
var data = system.askReadTextFile('txt').split('\r\n');
for (var i=0; i<data.length; ++i){
if (data[i]!=''){
VievList.AddItem(data[i]);
}
}
if (VievList.ComboItems.Count>0){
VievList.Value = VievList.ComboItems[0];
VievList.ItemIndex = 0;
} else {
VievList.Value = '';
VievList.ItemIndex = -1;
}
}

VievList.OnChange = function(){
if (VievList.Value!=''){
var view = VievList.Value.split(';');
Action.DS.Camera.AngleY = +view[1];
Action.DS.Camera.AngleX = +view[2];
}
}

CloseBut.OnClick = function(){
Action.Finish();
}

[свернуть]

PravCom · 19.10.2021, 22:30

Цитата:

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

вращаете сцену, сохраняете новые виды

очень здорово получилось. Интуитивно понятный интерфейс и функциональность отличная.
а второй вариант подходит и для 8-ки и для 2021? Универсальный?

kos100pudov · 19.10.2021, 22:42

Цитата:

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

очень здорово получилось. Интуитивно понятный интерфейс и функциональность отличная.
а второй вариант подходит и для 8-ки и для 2021? Универсальный?

да, второй универсальный.
там разница небольшая. для 8-ки необходимо было принудительно преобразовать цифры в число, а то читалось как текст, ну и в 8-ке нет разделителя .NewSeparator() для меню свойств, заменил его на пустые группы .NewGroup() - для 2021 это не является проблемой, все адекватно.

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

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

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

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

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

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

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

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