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

БАЗИС 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.08.2021, 16:22

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

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

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');
}

[свернуть]

noname.bazis · 08.08.2021, 13:26

Добрый день.
Смотрите видео SHKAFSCRIPT.

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

[свернуть]

Проектирование изделия за 5-10 минут.
Кому интересно, пишите на почту:
shkafscript@yandex.ru

donik · 08.08.2021, 23:20

Цитата:

Сообщение от noname.bazis

Добрый день.
Смотрите видео SHKAFSCRIPT.

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

[свернуть]

Проектирование изделия за 5-10 минут.
Кому интересно, пишите на почту:
shkafscript@yandex.ru

Вы тему попутали( см шапку темы). Здесь делятся скриптами.

sergio1982 · 14.08.2021, 20:51

Пытаюсь сохранить текстовик в кодировке UTF-8.
Так понял в Базис есть проблемы с передачей более одного параметра в COMObject. Конкретно тут не передаётся в метод OpenAsTextStream.

PHP код:


			
Path = '"' + Action.Properties.AbsolutePath() + 'закупки.txt"'

string = '123 456'





// https://script-coding.com/WSH/FileSystemObject.html#5.3.4.

var fso  = NewCOMObject("Scripting.FileSystemObject");

var txtfile  = fso.GetFile(Path)

var ts = txtfile.OpenAsTextStream(2, -1)

ts.Write(string)

ts.Close()

NewCOMObject('WScript.Shell').run(Path);

Meccano · 16.08.2021, 17:05

Цитата:

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

Пытаюсь сохранить текстовик в кодировке UTF-8.
Так понял в Базис есть проблемы с передачей более одного параметра в COMObject. Конкретно тут не передаётся в метод OpenAsTextStream.

PHP код:


			
Path = '"' + Action.Properties.AbsolutePath() + 'закупки.txt"'

string = '123 456'





// https://script-coding.com/WSH/FileSystemObject.html#5.3.4.

var fso  = NewCOMObject("Scripting.FileSystemObject");

var txtfile  = fso.GetFile(Path)

var ts = txtfile.OpenAsTextStream(2, -1)

ts.Write(string)

ts.Close()

NewCOMObject('WScript.Shell').run(Path);

А стандартные не устраивают?

PHP код:


			
system.askWriteTextFile('txt','currentText')

system.writeTextFile('file.txt','currentText')

sergio1982 · 16.08.2021, 17:19

У вас сам скрипт в UTF8?

sergio1982 · 17.08.2021, 11:50

Снова я про COMObject, как получить строку из буфера обмена windows?

Meccano · 17.08.2021, 16:19

Цитата:

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

Снова я про COMObject, как получить строку из буфера обмена windows?

На сколько я знаю, яваскрипт не имеет доступа к буферу. Обрезано в целях безопасности. Лечится через заплатки. В сети попадался код для сайтов. Насколько применимо в Базис скриптах вопрос открытый.

sergio1982 · 17.08.2021, 18:09

Цитата:

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

код для сайтов.

Пробовал через IE, не получилось.

Цитата:

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

На сколько я знаю, яваскрипт не имеет доступа к буферу.

К буферу да, но COMObject имеют.
Я не полностью задал вопрос, сторонние COM могут передавать строки в Базис, но их надо регистрировать в системе, интересуют именно встроенные в ОС.

kos100pudov · 17.08.2021, 23:40

Цитата:

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

На сколько я знаю, яваскрипт не имеет доступа к буферу. Обрезано в целях безопасности. Лечится через заплатки. В сети попадался код для сайтов. Насколько применимо в Базис скриптах вопрос открытый.

возможно у node есть нужные компоненты?... чисто мысли вслух...

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

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

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

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

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