БАЗИС 10 - Скрипты

Обмениваемся , задаем вопросы, отвечаем... Все, что касается скриптов в БМ 10 в этой теме.

[sergio1982]

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

Я его из под стандартного редактора запускаю.

а если из файлов? Ну или по кнопке.

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

которая вызовет ошибку и обработать

так ошибка есть? я из написанного понял что просто продолжает, или вместо Finish заведомую ошибку?

Добавлено через 6 минут
Кстати что предшествует Finish? Есть минимальный код, или у вас оно при любых условиях?

[aov27]

Я думал тут все профессионалы и знают все термины ) тада поясняю, при установке задней стенки должна исчезать кромка на полке, за это отвечает ключевое слово "if" но этого не происходит, может я где то не внимателен, но ошибки не выдается, по возможности прошу взгляните профессиональным взглядом и помогите найти ошибку в 10м Базисе не работает:

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

FileOptions = 'Настройки кухонный модуль.xml';
MakeProperties();

Action.Properties.Load(FileOptions);
Action.OnFinish = function(){
Action.Properties.Save(FileOptions);
}

function MakeProperties(){ "Кноки"
Prop = Action.Properties;
W = Prop.NewNumber('Ширина', 600);
H = Prop.NewNumber('Высота', 820);
OtstupSzadi = Prop.NewNumber('Отступ сзади', 20);
OtstupSperedi = Prop.NewNumber('Отступ спереди', 20);
HC = Prop.NewNumber('Высота цоколя',100);
ZS = Prop.NewCombo('Задняя стенка', 'Да\nНет')


Materialy = Prop.NewGroup('Материалы')
KromkaF = Materialy.NewButt('Кромка фасад');
KromkaV = Materialy.NewButt('Кромка внутри');
Konfirmat = Materialy.NewFurniture('Конфирмат')
Matkorp = Materialy.NewMaterial('Материал корпуса');

CargaSperedi = Prop.NewCombo('Передняя царга', 'Горизонтально\nВертикально\nБез царги')
CargaSzadi = Prop.NewCombo('Задняя царга', 'Горизонтально\nВертикально\nБез царги')
PolkaVnutri = Prop.NewCombo('Полка', 'Да\nНет')
OkBtn = Action.Properties.NewButton('построить');
};

OkBtn.OnClick = function(){
Make();
Action.Finish();
};

Prop.OnChange = function(){
Make();
};

function Make(){

DeleteNewObjects();
Matkorp.SetActive();
Thick = ActiveMaterial.Thickness; "толщина панели"

LevBok = AddVertPanel (OtstupSzadi.Value,HC.Value+Thick,600-OtstupSperedi.Value,H.Value,0);
LevBok.Name = "НМ Левая боковина"
LevBok.TextureOrientation = TextureOrientation.Vertical
LevBok.AddButt(KromkaF, 1)
LevBok.AddButt(KromkaV,3)
LevBok.AddButt(KromkaV, 2)
LevBok.Build();

PravBok = AddVertPanel (OtstupSzadi.Value,HC.Value+Thick,600-OtstupSperedi.Value,H.Value,W.Value-Thick);
PravBok.Name = "НМ Правая боковина"
PravBok.TextureOrientation = TextureOrientation.Vertical
PravBok.AddButt(KromkaF, 1)
PravBok.AddButt(KromkaV, 3)
PravBok.AddButt(KromkaV, 2)
PravBok.Build();

Dno = AddHorizPanel (0,OtstupSzadi.Value,W.Value,600-OtstupSperedi.Value,HC.Value); "Дно"
Dno.Name = "НМ Дно"
Dno.TextureOrientation = TextureOrientation.Horizontal
Dno.AddButt(KromkaV, 0)
Dno.AddButt(KromkaV, 1)
Dno.AddButt(KromkaF, 2)
Dno.AddButt(KromkaV, 3)
Dno.Build();

switch(PolkaVnutri.ItemIndex){
case 0:{
Polka = AddHorizPanel (Thick,OtstupSzadi.Value+20,W.Value-Thick,600-OtstupSperedi.Value-10,H.Value/2-Thick+50+Thick/2); "полка"
Polka.Name = "НМ Полка";
Polka.TextureOrientation = TextureOrientation.Horizontal;
Polka.AddButt(KromkaF, 2);
if(ZS.ItemsIndex == 1){Polka.AddButt(KromkaV, 0)};
Polka.Build(); break;
}

}

switch(CargaSzadi.ItemIndex){
case 0:{
CargaZad = AddHorizPanel (Thick,OtstupSzadi.Value+20,W.Value-Thick,OtstupSzadi.Value+120,H.Value-Thick); "царга задняя"
CargaZad.Name = "НМ Царга передняя"
CargaZad.TextureOrientation = TextureOrientation.Horizontal;
CargaZad.AddButt(KromkaV, 2);
CargaZad.AddButt(KromkaV, 0);
CargaZad.Build(); break;
}
case 1:{
CargaZad = AddFrontPanel (Thick,H.Value,W.Value-Thick,H.Value-100,OtstupSzadi.Value+20); "царга задняя"
CargaZad.Name = "НМ Царга передняя"
CargaZad.TextureOrientation = TextureOrientation.Horizontal;
CargaZad.AddButt(KromkaV, 2);
CargaZad.AddButt(KromkaV, 0);
CargaZad.Build(); break;
}

}


Nogka = OpenFurniture('C:\\Users\\admin\\Documents\\Bazis10\\Фурнитура\\Опоры и подпятники\\Сборки\\Ножка кух. 100мм клипса универсальная.fr3d');
Nogka.Mount1(Dno, 51.5, HC.Value, OtstupSzadi.Value+65.5, -90)
Nogka.Mount1(Dno, 51.5, HC.Value, 600-OtstupSperedi.Value-83.5, -90)
Nogka.Mount1(Dno, W.Value-51.5, HC.Value, OtstupSzadi.Value+65.5, 90)
Nogka.Mount1(Dno, W.Value-51.5, HC.Value, 600-OtstupSperedi.Value-83.5, 90)


switch(CargaSperedi.ItemIndex){
case 0:{
CargaPered = AddHorizPanel (Thick,600-OtstupSperedi.Value-100,W.Value-Thick,600-OtstupSperedi.Value,H.Value-Thick); "царга передняя горизонтально"
CargaPered.Name = "НМ Царга задняя"
CargaPered.TextureOrientation = TextureOrientation.Horizontal
CargaPered.AddButt(KromkaF, 2)
CargaPered.AddButt(KromkaV, 0)
CargaPered.Build(); break;
}
case 1:{
CargaPered = AddFrontPanel (Thick,H.Value,W.Value-Thick,H.Value-100,600-OtstupSperedi.Value-Thick); "царга фронтально"
CargaPered.Name = "НМ Царга задняя"
CargaPered.TextureOrientation = TextureOrientation.Horizontal
CargaPered.AddButt(KromkaF, 2)
CargaPered.AddButt(KromkaV, 0)
CargaPered.Build(); break;
}

}


switch(CargaSperedi.ItemIndex){
case 0:{
Konfirmat.Value.Mount(CargaPered,LevBok,0,H.Value-Thick/2,600-OtstupSperedi.Value-50);
Konfirmat.Value.Mount(CargaPered,PravBok,600,H.Value-Thick/2,600-OtstupSperedi.Value-50);
break;
}
case 1:{
Konfirmat.Value.Mount(CargaPered,LevBok,0,H.Value-50,600-OtstupSperedi.Value-50);
Konfirmat.Value.Mount(CargaPered,PravBok,600,H.Value-50,600-OtstupSperedi.Value-50);
break;
}

}


switch(CargaSzadi.ItemIndex){
case 0:{
Konfirmat.Value.Mount(CargaZad,LevBok,0,H.Value-50,OtstupSzadi.Value+70);
Konfirmat.Value.Mount(CargaZad,PravBok,W.Value-Thick,H.Value-Thick/2,OtstupSzadi.Value+70);
break;
}
case 1:{
Konfirmat.Value.Mount(CargaZad,LevBok,0,H.Value-50,OtstupSzadi.Value+70);
Konfirmat.Value.Mount(CargaZad,PravBok,W.Value-Thick,H.Value-50,OtstupSzadi.Value+70);
break;
}

}


switch(PolkaVnutri.ItemIndex){
case 0:{
Konfirmat.Value.Mount(Polka,LevBok,0,452,OtstupSzadi.Value+70);
Konfirmat.Value.Mount(Polka,LevBok,0,452,600-OtstupSperedi.Value-50);
Konfirmat.Value.Mount(Polka,PravBok,600,452,600-OtstupSperedi.Value-50);
Konfirmat.Value.Mount(Polka,PravBok,600,452,OtstupSzadi.Value+70);
}
case 1:{}

}



Konfirmat.Value.Mount(LevBok,Dno,0,HC.Value,OtstupSzadi.Value+70);
Konfirmat.Value.Mount(LevBok,Dno,0,HC.Value,600-OtstupSperedi.Value-50);
Konfirmat.Value.Mount(PravBok,Dno,W.Value-Thick/2,HC.Value,600-OtstupSperedi.Value-50);
Konfirmat.Value.Mount(PravBok,Dno,W.Value-Thick/2,HC.Value,OtstupSzadi.Value+70);




};
Make();
Action.Continue();

[свернуть]

[Артем Валерьевич]

if(ZS.ItemsIndex == 1){Polka.AddButt(KromkaV, 0)};

вижу всего одно ключевое слово If
и оно не удаляет, а добавляет кромку)

ЗЫ ключевое слово - это откуда термин такой четкий? chatGPT? зло это)))

[Ivashka_pnz]

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

[Артем Валерьевич]

После выреза не вариант ставить кромку?

[Ivashka_pnz]

Спасибо ), не додумался так

[Ovsyanicov]

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

Я думал тут все профессионалы и знают все термины

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

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

при установке задней стенки должна исчезать кромка на полке

А почему "должна"? Исходя из приведённого кода совсем не должна.

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

может я где то не внимателен

Вполне вероятно. Вы являетесь автором приведённого скрипта?

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

но ошибки не выдается

Скорее всего, с точки зрения программы (если уместно так выразиться), ошибки и нет.

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

в 10м Базисе не работает

А в каком работает? В чём выражается "не работает"?

[Meccano]

ZS = Prop.NewCombo('Задняя стенка', 'Да\nНет') // индекс 1 = Нет
if(ZS.ItemsIndex == 1){Polka.AddButt(KromkaV, 0)}; //тогда кромка добавляется.

[Ovsyanicov]

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

if(ZS.ItemsIndex == 1){Polka.AddButt(KromkaV, 0)}; //тогда кромка добавляется.

Может автору и хотелось бы, но не добавится, вне зависимости от выбранного пункта в Combo, потому что условие инструкции if в любом случае получает на вход undefined.
А причина в этом:

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

я где то не внимателен

PS

Thick = ActiveMaterial.Thickness; "толщина панели"

интересный способ комментировать строку, прям проверка движка на прочность ))

[Ivashka_pnz]

Привет. Снова с вопросом. Через пункт Combo есть выбор материала боковины, фасадная или корпус , как написать правильно? Не соображу ни как, то только корпус, то весь корпус фасадный )))