БАЗИС 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]

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

Подскажите, пожалуйста, Как правильно назначать Объект-Владелец?


Fasad.Owner = Obj.Owner

такой код даёт странные результаты построения, не достраивает, и положение не правильное.

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

[Am0ralist]

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

Fasad.Owner = Obj.Owner

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

Итак, по вашему вопросу: вы хотите блоку присвоить то, какому блоку принадлежит панель?
если да, то код работает замечательно)))
панель должна быть в блоке. но при этом выделять перед запуском надо конкретно панель, а не блок, в котором она находится. тогда все работает.

[bolshoy]

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

[v22884]

Итак, по вашему вопросу: вы хотите блоку присвоить то, какому блоку принадлежит панель?
если да, то код работает замечательно)))
панель должна быть в блоке. но при этом выделять перед запуском надо конкретно панель, а не блок, в котором она находится. тогда все работает.

Я понял ответ. И согласен с ним. Просто у меня как оказалось была проблема с прорисовкой профиля.

Я владельца присваивал блоку с профилем. Так вот после присвоения Вставка прорисовывалась, а профиль в структуре в полном порядке, а на экране отсутствовал.

Решился вопрос применением функции Build() к этому блоку с профилем.

Спасибо за ответ.

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

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

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

У меня как у не профессионала пока приходят такие варианты как AHK.

Или сэмулировать нажатия клавишь CTRL+S.

Но к вопросу я присоединяюсь.

[bolshoy]

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

Вопрос даже расширить бы нужно.
Можно ли скриптом создать модель, построить в ней то что нужно и сохранить на диск.
Предистория.
Решил в салоне заменять фасады. Нужны все типоразмеры. Скрипт сделал мне их все на одном листе. Сижу тыкаю в каждый фасад и сохраняю как фрагмент в библиотеку. Фасадов девять типов штук по двести в каждом плюс рамки. Долго тыкать буду ((. Фасады все сделал за час, а сохранять буду х.з сколько.

[v22884]

ад и сохраняю как фрагмент

То есть сохранить надо не как b3d, а как fr3d.

По эмуляции клавиш ничё работающего не нарыл в java. Использовал Sendkey в vbs. Чот не срабатывает.

Работает в AHK http://www.macrocreator.com/project/

потом командой

system.exec ('C:/!заказы/__________ПО/Bazis8/Scripts/sr.exe')

Эта команда запускает программу, предварительно созданную в Макрокреэйтере. В макросе Макрокреэйтера съэмулировать нажатие горячих клавиш для сохранения фрагмента. (у меня шифт+R).

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

Такими типа как

Action.MoveCursor(10,300)

и

Action.DoClick()


но наверно в параметры DoClick надо указать кнопку правую или левую, а мож и нет. но у меня пока не сработал DoClick. Пробовал жать на Файл в меню.

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

и им же жмём сохранить.

...

Полная хрень.

Можь Базис софт таки снизойдёт до мирзких нужд клиентов.

И даст команды сохранения файлов моделей и фрагментов.

[zorro]

Может кому пригодится такой скрипт. Он формирует из файла раскроя obl набор панелей прямоугольной формы в Базисе. Панели имеют кромку указанную в таблице раскроя.

Мы не занимаемся коммерческим раскроем. Но предистория такая.

Пришел "очень нужный" человек для нашей фирмы. В нем проснулся мастер. Он САМ разработал мебель, хотел чтобы мы напилили, покромили и присадили детали. Отказать ему - себе дороже.
Он принес размеры деталей и кроме размеров надо было где-то радиус сделать, где-то фаску и т.д. В Раскрое это никак не сделаешь. В Базисе тоскливо каждую панель в нужный размер загонять. Поступили проще.

Ввели размеры панелей и кромку в Базис-Раскрое, перегнали с помощью этого скрипта в Базис и там нужные панели отредактировали и добавили сквозные и глухие отверстия.
После этого и смета автоматом считается и программы для ЧПУ формируются.

Текст скрипта

String.prototype.float = function()
{
return parseFloat(this.replace(',', '.'));
}

function trim(s)
{
return rtrim(ltrim(s));
}

function ltrim(s)
{
return s.replace(/^\s+/, '');
}

function rtrim(s)
{
return s.replace(/\s+$/, '');
}

Make();
Action.Finish();

function Make()
{
file = system.askReadTextFile('obl');
arr = file.split('\n');
TekMat = '';
TekThick = 16;
np = 0;
PosX = -100;
PosZ = -100;
PX = 0;
GSx = 0;
DeleteNewObjects();
for (k = 0; k < arr.length; k++)
{
val = arr[k];
vals = val.split('\t');
if ((vals[0] == "Material ") && (vals[2] == "Slab"))
{
if (TekMat != vals[1])
{
if (TekMat != '') PosZ = Model.GSize.z;
PX = 0;
GSx = -100;
PosX = -100;
}
TekMat = vals[1];
continue;
}
if ((vals[0] == "Material ") && (vals[2] != "Slab")) TekMat = "";
if (TekMat == "") continue;
if (trim(val) == "") continue;

Poz = vals[0];
Dl = vals[1].float();
Sh = vals[2].float();
Kol = vals[3].float();
Orient = vals[4];
Name = vals[5];

L1Name = vals[7];
L1Obozn = vals[8];
L1Thickness = vals[9].float();
L1Sves = vals[26].float();

W1Name = vals[10];
W1Obozn = vals[11];
W1Thickness = vals[12].float();
W1Sves = vals[27].float();

L2Name = vals[13];
L2Obozn = vals[14];
L2Thickness = vals[15].float();
L2Sves = vals[28].float();

W2Name = vals[16];
W2Obozn = vals[17];
W2Thickness = vals[18].float();
W2Sves = vals[29].float();

if (TekMat != "")
{
for (k2 = 0; k2 < Kol; k2++)
{
DeleteNewObjects();
Panel = AddHorizPanel(0, 0, Dl, Sh, 0);
Panel.Thickness = TekThick;
if ((trim(L1Obozn) != ""))
{
Butt = Panel.Butts.Add();
Butt.ElemIndex = 2;
Butt.Material = L1Name;
Butt.Sign = L1Obozn;
Butt.Thickness = L1Thickness;
Butt.Overhung = L1Sves;
Butt.ClipPanel = false;
}
if ((trim(W1Obozn) != ""))
{
Butt = Panel.Butts.Add();
Butt.ElemIndex = 3;
Butt.Material = W1Name;
Butt.Sign = W1Obozn;
Butt.Thickness = W1Thickness;
Butt.Overhung = W1Sves;
Butt.ClipPanel = false;
}
if ((trim(L2Obozn) != ""))
{
Butt = Panel.Butts.Add();
Butt.ElemIndex = 0;
Butt.Material = L2Name;
Butt.Sign = L2Obozn;
Butt.Thickness = L2Thickness;
Butt.Overhung = L2Sves;
Butt.ClipPanel = false;
}
if ((trim(W2Obozn) != ""))
{
Butt = Panel.Butts.Add();
Butt.ElemIndex = 1;
Butt.Material = W2Name;
Butt.Sign = W2Obozn;
Butt.Thickness = W2Thickness;
Butt.Overhung = W2Sves;
Butt.ClipPanel = false;
}
Panel.Name = Name;
Panel.MaterialName = TekMat;
Panel.Thickness = 16;
if (Orient != " ") Panel.TextureOrientation = TextureOrientation.None
else Panel.TextureOrientation = TextureOrientation.Horizontal;
Panel.PositionX = PosX + 100;
Panel.PositionY = k2 * TekThick;
Panel.PositionZ = PosZ + 100;
PX = Panel.PositionX;
GSx = Panel.GSize.x;
Action.Commit();
}
PosX = PX + GSx;
}
}
}

[свернуть]

[yavsochi]

Может кому пригодится такой скрипт. Он формирует из файла раскроя obl набор панелей прямоугольной формы в Базисе. Панели имеют кромку указанную в таблице раскроя.

Мы не занимаемся коммерческим раскроем. Но предистория такая.

Пришел "очень нужный" человек для нашей фирмы. В нем проснулся мастер. Он САМ разработал мебель, хотел чтобы мы напилили, покромили и присадили детали. Отказать ему - себе дороже.
Он принес размеры деталей и кроме размеров надо было где-то радиус сделать, где-то фаску и т.д. В Раскрое это никак не сделаешь. В Базисе тоскливо каждую панель в нужный размер загонять. Поступили проще.

Ввели размеры панелей и кромку в Базис-Раскрое, перегнали с помощью этого скрипта в Базис и там нужные панели отредактировали и добавили сквозные и глухие отверстия.
После этого и смета автоматом считается и программы для ЧПУ формируются.

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

[v22884]

Ставит ножки как в шкафе.

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

FileOptions = 'Основные настройки.xml';










MakeProperties();

Action.Properties.Load(FileOptions);



Action.OnFinish = function() {
Action.Properties.Save(FileOptions);
}
BtnMake = NewButtonInput('Закончить');
BtnMake.OnChange = function() {
Make(); //Вызываем функцию построения всех панелей
Action.Finish();
}


Make();



Action.Continue();













true;





//////////////////////////////////////////


//////////////////////////////////////////

////////////////////////////////////////// --------- ОКНО СВОЙСТВ


function MakeProperties() {

Prop = Action.Properties;



otsPeredZad = Prop.NewNumber('Отступ Перед/Зад',50);
otsBoka = Prop.NewNumber('Отступ бока',50);
K_row = Prop.NewNumber('Количество рядов',2);

K_row.OnChange = function() {

if (K_row.Value<2) {

K_row.Value=2
}
}

Krepej = Prop.NewFurniture('Ножки');




OkBtn = Prop.NewButton('Построить');


OkBtn.OnClick = function() {
Make(); //Вызываем функцию построения всех панелей
Action.Finish();
}







Prop.OnChange = function() {
//if (Fas.Value > Hd.Value) alert('Предупреждение! Фаска больше чем высота дна.')
Make(); //Вызываем функцию построения всех панелей
};


}





//Obj = Model.Selected;


function Make()
{
DeleteNewObjects();
//FileFreza = 'Фреза1.frw';
// conturFrezi=NewContour();
// conturFrezi.Load(FileFreza);
Model.forEach (function(Obj) {

if (Obj.Selected == true)

{
Nojki(Obj)




}
} )





}

function Nojki(Obj) {

if (Krepej.Value)
{
otsPered=otsPeredZad.Value;
otsBok = otsBoka.Value;
ryadov = K_row.Value;


lnpv = GabarityContura(Obj);


ln = NewPoint(lnpv[0].x+otsBok,lnpv[0].y+otsPered);
pv = NewPoint(lnpv[1].x-otsBok,lnpv[1].y-otsPered);

mejdu_ryadov = (pv.x-ln.x)/(ryadov-1)

ryad=1

while (ryad<ryadov+1)
{
p1 = NewPoint(ln.x+(mejdu_ryadov*(ryad-1)), ln.y)
p2 = NewPoint(ln.x+(mejdu_ryadov*(ryad-1)), pv.y)



Krepej.Value.Mount1(Obj,Obj.ObjectToGlobal(p1), 0);
Krepej.Value.Mount1(Obj,Obj.ObjectToGlobal(p2), 0);
ryad++;
}


}


}





function GabarityContura(Obj)

{
var text = '';


ln = NewPoint(0, 0); //левый низ
lv = NewPoint(0, 0); //левый верх
pn = NewPoint(0, 0); //правый низ
pv = NewPoint(0, 0); //правый верх контура

kontur = Obj.Contour;

kstoron = kontur.Count;
// var k_ne_krugov = 0;
for (i = 0; i < kstoron; i++) {
if (kontur[i].ElType != 3) { //k_ne_krugov = k_ne_krugov+1

ln = NewPoint(Math.round(kontur[i].Pos1.x * 10) / 10, Math.round(kontur[i].Pos1.y * 10) / 10);
lv = NewPoint(Math.round(kontur[i].Pos1.x * 10) / 10, Math.round(kontur[i].Pos1.y * 10) / 10);
pn = NewPoint(Math.round(kontur[i].Pos1.x * 10) / 10, Math.round(kontur[i].Pos1.y * 10) / 10);
pv = NewPoint(Math.round(kontur[i].Pos1.x * 10) / 10, Math.round(kontur[i].Pos1.y * 10) / 10);
}

};



for (i = 0; i < kstoron; i++) {
if (kontur[i].ElType != 3) {
Pos1x = Math.round(kontur[i].Pos1.x * 10) / 10;
Pos1y = Math.round(kontur[i].Pos1.y * 10) / 10;
Pos2x = Math.round(kontur[i].Pos2.x * 10) / 10;
Pos2y = Math.round(kontur[i].Pos2.y * 10) / 10;


if (ln.x > Pos1x) {
ln.x = Pos1x
};
if (ln.x > Pos2x) {
ln.x = Pos2x
};
if (ln.y > Pos1y) {
ln.y = Pos1y
};
if (ln.y > Pos2y) {
ln.y = Pos2y
};

if (lv.x > Pos1x) {
lv.x = Pos1x
};
if (lv.x > Pos2x) {
lv.x = Pos2x
};
if (lv.y < Pos1y) {
lv.y = Pos1y
};
if (lv.y < Pos2y) {
lv.y = Pos2y
};

if (pn.x < Pos1x) {
pn.x = Pos1x
};
if (pn.x < Pos2x) {
pn.x = Pos2x
};
if (pn.y > Pos1y) {
pn.y = Pos1y
};
if (pn.y > Pos2y) {
pn.y = Pos2y
};

if (pv.x < Pos1x) {
pv.x = Pos1x
};
if (pv.x < Pos2x) {
pv.x = Pos2x
};
if (pv.y < Pos1y) {
pv.y = Pos1y
};
if (pv.y < Pos2y) {
pv.y = Pos2y
};

}
};

text4 = ('ln ---- ' + ln.x + ' - ' + ln.y + '\n' +
'lv ---- ' + lv.x + ' - ' + lv.y + '\n' +
'pn ---- ' + pn.x + ' - ' + pn.y + '\n' +
'pv ---- ' + pv.x + ' - ' + pv.y + '\n');
// alert(text4);
ln_v = ln; //левый низ выреза
pv_v = pv; //правый верх выреза

if (ln_v.x < lv.x) {
ln_v.x = lv.x
};
if (ln_v.y < pn.y) {
ln_v.y = pn.y
};

if (pv_v.x > pn.x) {
pv_v.x = pn.x
};
if (pv_v.y > lv.y) {
pv_v.y = lv.y
};





SeredinaVisotiPaneli = (pv_v.y - ln_v.y) * 0.5;
SeredinaShiriniPaneli = (pv_v.x - ln_v.x) * 0.5;






lnpv = []




lnpv.push(ln_v);
lnpv.push(pv_v);



return lnpv
}

[свернуть]

[v22884]

То ж самое
Ставит ножки как в шкафе.

Но ещё можно крутить, для не цилиндрических ножек полезно.

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

FileOptions = 'Основные настройки.xml';










MakeProperties();

Action.Properties.Load(FileOptions);



Action.OnFinish = function() {
Action.Properties.Save(FileOptions);
}
BtnMake = NewButtonInput('Закончить');
BtnMake.OnChange = function() {
Make(); //Вызываем функцию построения всех панелей
Action.Finish();
}


Make();



Action.Continue();













true;





//////////////////////////////////////////


//////////////////////////////////////////

////////////////////////////////////////// --------- ОКНО СВОЙСТВ


function MakeProperties() {

Prop = Action.Properties;



otsPeredZad = Prop.NewNumber('Отступ Перед/Зад',50);
otsBoka = Prop.NewNumber('Отступ бока',50);
K_row = Prop.NewNumber('Количество рядов',2);

K_row.OnChange = function() {

if (K_row.Value<2) {

K_row.Value=2
}
}

Krepej = Prop.NewFurniture('Ножки');
Povorachivat = Prop.NewBool('Поворачивать')
PovernutDop = Prop.NewCombo('Развернить ножку на', '0\n90\n180\n270');



OkBtn = Prop.NewButton('Построить',true);


OkBtn.OnClick = function() {
Make(); //Вызываем функцию построения всех панелей
Action.Finish();
}







Prop.OnChange = function() {
//if (Fas.Value > Hd.Value) alert('Предупреждение! Фаска больше чем высота дна.')
Make(); //Вызываем функцию построения всех панелей
};


}





//Obj = Model.Selected;


function Make()
{
DeleteNewObjects();
//FileFreza = 'Фреза1.frw';
// conturFrezi=NewContour();
// conturFrezi.Load(FileFreza);
Model.forEach (function(Obj) {

if (Obj.Selected == true)

{
Nojki(Obj)




}
} )





}

function Nojki(Obj) {

if (Krepej.Value)
{
otsPered=otsPeredZad.Value;
otsBok = otsBoka.Value;
ryadov = K_row.Value;


lnpv = GabarityContura(Obj);


ln = NewPoint(lnpv[0].x+otsBok,lnpv[0].y+otsPered);
pv = NewPoint(lnpv[1].x-otsBok,lnpv[1].y-otsPered);

mejdu_ryadov = (pv.x-ln.x)/(ryadov-1)

ryad=1

while (ryad<ryadov+1)
{

if(Povorachivat.Value)
{

ugolPovorotaPered=(-(135+(90*(ryad-1)/(ryadov-1)))) + Math.round(PovernutDop.Value)
ugolPovorotaZad=(-(45-(90*(ryad-1)/(ryadov-1)))) + Math.round(PovernutDop.Value)

}
else
{

ugolPovorotaPered=0
ugolPovorotaZad=0

}

p1 = NewPoint(ln.x+(mejdu_ryadov*(ryad-1)), ln.y)
p2 = NewPoint(ln.x+(mejdu_ryadov*(ryad-1)), pv.y)



Krepej.Value.Mount1(Obj,Obj.ObjectToGlobal(p1), ugolPovorotaPered);
Krepej.Value.Mount1(Obj,Obj.ObjectToGlobal(p2), ugolPovorotaZad);
ryad++;
}


}


}





function GabarityContura(Obj)

{
var text = '';


ln = NewPoint(0, 0); //левый низ
lv = NewPoint(0, 0); //левый верх
pn = NewPoint(0, 0); //правый низ
pv = NewPoint(0, 0); //правый верх контура

kontur = Obj.Contour;

kstoron = kontur.Count;
// var k_ne_krugov = 0;
for (i = 0; i < kstoron; i++) {
if (kontur[i].ElType != 3) { //k_ne_krugov = k_ne_krugov+1

ln = NewPoint(Math.round(kontur[i].Pos1.x * 10) / 10, Math.round(kontur[i].Pos1.y * 10) / 10);
lv = NewPoint(Math.round(kontur[i].Pos1.x * 10) / 10, Math.round(kontur[i].Pos1.y * 10) / 10);
pn = NewPoint(Math.round(kontur[i].Pos1.x * 10) / 10, Math.round(kontur[i].Pos1.y * 10) / 10);
pv = NewPoint(Math.round(kontur[i].Pos1.x * 10) / 10, Math.round(kontur[i].Pos1.y * 10) / 10);
}

};



for (i = 0; i < kstoron; i++) {
if (kontur[i].ElType != 3) {
Pos1x = Math.round(kontur[i].Pos1.x * 10) / 10;
Pos1y = Math.round(kontur[i].Pos1.y * 10) / 10;
Pos2x = Math.round(kontur[i].Pos2.x * 10) / 10;
Pos2y = Math.round(kontur[i].Pos2.y * 10) / 10;


if (ln.x > Pos1x) {
ln.x = Pos1x
};
if (ln.x > Pos2x) {
ln.x = Pos2x
};
if (ln.y > Pos1y) {
ln.y = Pos1y
};
if (ln.y > Pos2y) {
ln.y = Pos2y
};

if (lv.x > Pos1x) {
lv.x = Pos1x
};
if (lv.x > Pos2x) {
lv.x = Pos2x
};
if (lv.y < Pos1y) {
lv.y = Pos1y
};
if (lv.y < Pos2y) {
lv.y = Pos2y
};

if (pn.x < Pos1x) {
pn.x = Pos1x
};
if (pn.x < Pos2x) {
pn.x = Pos2x
};
if (pn.y > Pos1y) {
pn.y = Pos1y
};
if (pn.y > Pos2y) {
pn.y = Pos2y
};

if (pv.x < Pos1x) {
pv.x = Pos1x
};
if (pv.x < Pos2x) {
pv.x = Pos2x
};
if (pv.y < Pos1y) {
pv.y = Pos1y
};
if (pv.y < Pos2y) {
pv.y = Pos2y
};

}
};

text4 = ('ln ---- ' + ln.x + ' - ' + ln.y + '\n' +
'lv ---- ' + lv.x + ' - ' + lv.y + '\n' +
'pn ---- ' + pn.x + ' - ' + pn.y + '\n' +
'pv ---- ' + pv.x + ' - ' + pv.y + '\n');
// alert(text4);
ln_v = ln; //левый низ выреза
pv_v = pv; //правый верх выреза

if (ln_v.x < lv.x) {
ln_v.x = lv.x
};
if (ln_v.y < pn.y) {
ln_v.y = pn.y
};

if (pv_v.x > pn.x) {
pv_v.x = pn.x
};
if (pv_v.y > lv.y) {
pv_v.y = lv.y
};





SeredinaVisotiPaneli = (pv_v.y - ln_v.y) * 0.5;
SeredinaShiriniPaneli = (pv_v.x - ln_v.x) * 0.5;






lnpv = []




lnpv.push(ln_v);
lnpv.push(pv_v);



return lnpv
}

[свернуть]