Заявки на создание скрипта.

Тема создана для размещения заявок на написание скриптов.

Для того, чтобы заявка была рассмотрена, необходимо составить максимально понятное техзадание :
1. Описать, какую задачу должен выполнять скрипт.
2. Какие данные должны использоваться скриптом.
3. Алгоритм (последовательность действий) работы скрипта.

Заявки типа "Мне нужен скрипт для расстановки полок" или подобные рискуют остаться без внимания.

Любые заявки не обязательны для рассмотрения. Если Вам не ответили, значит по какой-либо причине нет возможности её выполнить.
Альтернативный вариант - обратиться лично к тем, кто может оказать такую услугу

Другие сообщения, не соответствующие назначению темы, будут удалены без предупреждения!

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

[Анатолий.ru]

Доброго времени суток.
#Запрос.
Импорт файла 3D DXF в Мебельщик.
Без скрипта: Алгоритм таков, загружаю в 3CAD, отрезкам предаю тело 1мм. После загружаю в мебельщик.

[Mullerr]

Здравствуйте. Есть стандартный скрипт в 8БМ "Облицовка кромкой". Может кто-нибудь его изменить чтобы он работал не на всех панелях, а только на выделенных и облицовывал "все кромки/видимые/открытые". Скрипт прилагается.

[kos100pudov]

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

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

Решается через смету, операции и сопутствующие материалы.
Создаёте операцию допустим "заглушка эксцентрика белая", параметр для этой операции "кол-во глухих отверстий d15", кэтой операции назначает сопутствующие материал "заглушка эксц.белая"..
Делаете подобные операции для всех цветов заглушек.
По аналогии делаете такие же операции для всех видов заглушек.
Потом для удобства можно сделать операцию допустим "кол-во всех заглушек белые", параметр с модели не указываете, к данной операции по сопутствия подвязываете все ранее созданные операции, заглушки от которых используются для белого материала.
Далее эту обобщенную операцию подвязываете сопутствием ко всем белым материалам.
И вуаля.
Так называемая групповая операция не обязательна, можно все "вложенные" в неё сразу на материал назначить, просто мне было так удобнее, одну назначил а не десять)
У нас все работает и на лдсп и на профиль реагирует.

[sergio1982]

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

Здравствуйте. Есть стандартный скрипт в 8БМ "Облицовка кромкой". Может кто-нибудь его изменить чтобы он работал не на всех панелях, а только на выделенных и облицовывал "все кромки/видимые/открытые". Скрипт прилагается.

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

Materials = [];
PanelByMaterial = [];
var PanelChanged = 0;

var Selected = Model.SelectionCount;


Model.forEachPanel(
    function(Obj) {
        if (Selected && !Obj.Selected)
            return
        var MtName = Obj.MaterialName;
        var Index = Materials.indexOf(MtName);
        if (Index < 0) {
            Index = Materials.push(MtName) - 1;
            var Panels = [];
            PanelByMaterial.push(Panels);
        }
        PanelByMaterial[Index].push(Obj);
    });

len = Materials.length;
system.log(len);
for (var i = 0; i < len; ++i) {
    var Gr = Action.Properties.NewCombo(Materials[i], 'На видимые\nНа все\nУдалить');
    Gr.NewButt('Кромка');
    BtnPanSel = Gr.NewSelector('Панелей', PanelByMaterial[i].length + ' шт');
    BtnPanSel.Tag = i;
    BtnPanSel.OnClick = function(Sel) {
        UnSelectAll();
        var Panels = PanelByMaterial[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 = PanelByMaterial[Sel.Tag];
        var Gr = Action.Properties.Items[Sel.Tag];
        CurAction = Gr.ItemIndex;
        var Butt = Gr.Items[0];
        plen = Panels.length;
        system.log('make butts: ' + plen);
        for (var j = 0; j < plen; ++j) {
          if (MakeButts(Panels[j], CurAction, Butt))
            PanelChanged++;
        }
        Action.Hint = 'отредактировано панелей: ' + PanelChanged;
        Action.Commit();
    };
}

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

function MakeButts(Panel, Action, Butt) {
    var res = false;
    system.log('Panel: ' + Panel.Name);
    if (Action < 2 ) {
        if (Panel.Butts.Count === 0) {
            for (var i = 0; i < Panel.Contour.Count; i++) {
                if  ((Action == 1) || (Panel.IsButtVisible(i, 1))) {  //проверяет соприкасеется ли кромящиеся сторана(i) с другой пнелью на растояние 1мм
                    system.log('Editing panel butt ' + i);
                    StartEditing(Panel);
                    Panel.AddButt(Butt, i);
                    res = true;
                }
            }
        }
    }
    if (Action == 2) {
        if (Panel.Butts.Count > 0) {
          StartEditing(Panel);
          Panel.Butts.Clear();
          res = true;
        }
    }
    return res;
}

Action.Continue();

[свернуть]

[Uncle]

Нужен скрипт по типу функции в Excel "Найти/Заменить" для замены символов (отдельные знаки, буквы, цифры, слова, словосочетания) в наименованиях профилей и панелей.
Алгоритм примерно следующий:
1. Запустить скрипт.
2. В панели свойств поле для ввода "Найти". Вводим в это поле символы, которые нужно найти и заменить.
3. Нажимаем кнопку "Найти". Скрипт находит все сочетания указанных символов.
4. В поле "Заменить на" вводим символы, на которые нужно заменить найденные. Если поле остается пустым, значит найденные символы удаляются. Если ввести в поле замены ""пробел"", то есть, между кавычками нажать клавишу пробел, найденные символы заменяются соответственно на пробел...
5. Нажимаем кнопочку "Заменить".
Готов отблагодарить материально.

Решено. Обсуждение здесь

[Mullerr]

sergio1982, Спасибо. Можно добавить нанесение кромки на "открытые" торцы и чтобы в процессе нанесения на "видимые" торцы удалялась старая кромка Только с "видимых" торцов и клеилась новая?

[sergio1982]

Mullerr
Попытался сделать "правильно", удалять кромки только с тех сторон которые будут облицованы, но не вышло.
Добавил DeleteMode, сначала удаляются все кромки, потом наносятся новые.

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

var DeleteMode = 1  // Удалять все кромки перед нанесением
var ButtVisible = 1  // Насколько мм не закрыта кромка панели чтобы считать её видимой
Materials = [];
PanelByMaterial = [];
var PanelChanged = 0;

var Selected = Model.SelectionCount;

Model.forEachPanel(
    function(Obj) {
        if (Selected && !Obj.Selected)
            return
        var MtName = Obj.MaterialName;
        var Index = Materials.indexOf(MtName);
        if (Index < 0) {
            Index = Materials.push(MtName) - 1;
            var Panels = [];
            PanelByMaterial.push(Panels);
        }
        PanelByMaterial[Index].push(Obj);
    });

len = Materials.length;
system.log(len);
for (var i = 0; i < len; ++i) {
    var Gr = Action.Properties.NewCombo(Materials[i], 'На видимые\nНа все\nУдалить');
    Gr.NewButt('Кромка');
    BtnPanSel = Gr.NewSelector('Панелей', PanelByMaterial[i].length + ' шт');
    BtnPanSel.Tag = i;
    BtnPanSel.OnClick = function(Sel) {
        UnSelectAll();
        var Panels = PanelByMaterial[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 = PanelByMaterial[Sel.Tag];
        var Gr = Action.Properties.Items[Sel.Tag];
        CurAction = Gr.ItemIndex;
        var Butt = Gr.Items[0];
        plen = Panels.length;
        system.log('make butts: ' + plen);
        for (var j = 0; j < plen; ++j) {
          if (MakeButts(Panels[j], CurAction, Butt))
            PanelChanged++;
        }
        Action.Hint = 'отредактировано панелей: ' + PanelChanged;
        Action.Commit();
    };
}

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

function MakeButts(Panel, Mode, Butt) {
    var res = false;
    system.log('Panel: ' + Panel.Name);
    if (Mode == 2 || DeleteMode) {
        if (Panel.Butts.Count > 0) {
          StartEditing(Panel);
          Panel.Butts.Clear();
          res = true;
        }
    }
    if (Mode < 2) {
        StartEditing(Panel);
        for (var i = 0; i < Panel.Contour.Count; i++) {
            if  ((Mode == 1) || (Panel.IsButtVisible(i, ButtVisible))) {  //проверяет соприкасеется ли кромящиеся сторана(i) с другой пнелью на растояние 1мм
                system.log('Editing panel butt ' + i);
                Panel.AddButt(Butt, i)
                res = true;
            }
        }
    }
    Panel.Build();
    return res;
}
Action.Continue();

[свернуть]

[Slav]

Коллеги. Нужен скрипт для поиска и выделения панелей с габаритами имеющими дробные окончания размеров. Как такое написать?

[Максим Геннадьевич]

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

Коллеги. Нужен скрипт для поиска и выделения панелей с габаритами имеющими дробные окончания размеров. Как такое написать?

Пробуйте

PHP код:

Model.forEachPanel(
        function(obj) {
            var xo = ((obj.GSize.x ^ 0) === obj.GSize.x) ;
            var yo = ((obj.GSize.y ^ 0) === obj.GSize.y) ;
            if( !xo || !yo) {
                obj.Selected = true;
            }
        }
    ); 


Но помните, что в БМ кол-во знаков после запятой 3, а панель может иметь больше знаков. Т.е панель 720,000 , а на самом деле 720,000008 и скрипт эту панель выделит.

[kos100pudov]

Сообщение от Максим Геннадьевич

Пробуйте

PHP код:

Model.forEachPanel(
        function(obj) {
            var xo = ((obj.GSize.x ^ 0) === obj.GSize.x) ;
            var yo = ((obj.GSize.y ^ 0) === obj.GSize.y) ;
            if( !xo || !yo) {
                obj.Selected = true;
            }
        }
    ); 


Но помните, что в БМ кол-во знаков после запятой 3, а панель может иметь больше знаков. Т.е панель 720,000 , а на самом деле 720,000008 и скрипт эту панель выделит.

Можно перед проверкой добавить принудительное округление до 3х знаков, все равно сам базис также округлит. И потом проверять.