Форум профессиональных мебельщиков PROMEBELclub
 
PROMEBELclub - Форум для мебельщиков: конструкторов, дизайнеров, мастеров, технологов и всех, кто имеет отношение к производству и изготовлению мебели. Программы для конструирования и дизайна мебели. Мебельная литература и обучающие пособия.
 
 

Вернуться   Форум профессиональных мебельщиков PROMEBELclub > Программы для мебельщиков > Программы для конструирования и дизайна мебели > Система БАЗИС > Базис-мебельщик. Скрипты

Меню

Маркет


беспроводные выключатели для мебели
Ответ
 
Опции темы Опции просмотра
Старый 13.01.2014, 13:22  
БАЗИС 9 - Скрипты
 
Аватар для Igor_482
Igor_482
VIP
Регистрация: 03.09.2008
Сообщений: 174

Сказал(а) спасибо: 34
Поблагодарили 794 раз(а) в 113 сообщениях
Версия для печати Отправить по электронной почте
Igor_482 Igor_482 вне форума 13.01.2014, 13:22
Рейтинг: ()

ВНИМАНИЕ! Правила выкладывания скриптов.

1. Если в скрипте нет ссылок на фурнитуру, фрагменты и.т.д то достаточно его упаковать в архив и выложить.

2. Если в скрипте есть ссылки на фурнитуру, фрагменты и т.д. то архив должен содержать папку с самим скриптом и всеми файлами на которые есть ссылки в тексте скрипта.


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

__________________________________________________ _______________

Интересует информация по редактору скриптов в БМ8. Существует ли справочная документация и примеры использования скриптов в БМ8. Какие возможности дает данная функция? Владеющим информацией по данному вопросу просьба поделиться ею.

Для работы скриптов от Igor_482 необходим установленный ODBC драйвер FireBird, установленные и зарегистрированные в ОС модули FBDBDialog.dll, MSDATGRD.OCX, MSCOMCTL.OCX и MSSTDFMT.DLL (сообщение с описанием установки этих модулей в ОС, ссылка на модули и исходник "FBDBDialog.dll") а так же файл "ADODB.ini" с настройками соединения к БД в папке со скриптом.

ADODB.ini


[General]
FDBServ = t001
FBSPort = 14357
FDBFile = D:\DBBM\Библиотека\БД\BMDB09.FDB
FBCFile = C:\Windows\System32\fbclient.dll
----------------------------------------------
Переменные .ini:
FDBServ - имя ПК на котором находится сервер FireBird с используемой БД (если локально, то параметр: localhost или 127.0.0.1);
FBSPort - в настройке не нуждается (по умолчанию: 14357);
FDBFile - локальный путь к БД на сервере FireBird;
FBCFile - путь к файлу "fbclient.dll" (находится в корневой папке программы Базис).
[свернуть]

Последний раз редактировалось systland; 23.09.2016 в 11:52..
Просмотров: 985388
Ответить с цитированием Вверх
Пользователь сказал cпасибо:
evilbaby1989 (10.07.2023)
Старый 19.04.2017, 22:40   #1331
Briz
Местный
 
Регистрация: 30.11.2011
Сообщений: 283
Сказал(а) спасибо: 275
Поблагодарили 803 раз(а) в 179 сообщениях
Вес репутации: 358
Briz - просто великолепная личностьBriz - просто великолепная личностьBriz - просто великолепная личностьBriz - просто великолепная личностьBriz - просто великолепная личностьBriz - просто великолепная личностьBriz - просто великолепная личность
По умолчанию

Да, возможно. В примерах вместе с программой в папке COM есть примеры работы с Word
Briz вне форума   Ответить с цитированием Вверх
Пользователь сказал cпасибо:
Timofeyon (21.04.2017)
Старый 21.04.2017, 09:30   #1332
Timofeyon
Пользователь
 
Регистрация: 09.10.2015
Сообщений: 34
Сказал(а) спасибо: 24
Поблагодарили 6 раз(а) в 4 сообщениях
Вес репутации: 0
Timofeyon пока не определено
По умолчанию

Спасибо за подсказку! Помню что где-то видел...
Вы имеете ввиду вот этот скрипт?

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


Word = NewCOMObject('Word.Application');
y = Word.Documents;
z = y.Add();
Word.Visible = true;
Word.Selection.TypeText('Bazis\n');
Action.Continue();

NewButtonInput("Закончить").OnChange = function() {
Action.Finish();
}

NewButtonInput("Записать панели").OnChange = function() {
Model.forEachPanel(
function(Obj) {
var Line = [];
Line.push(Obj.Name);
Line.push(Obj.ArtPos);
Line.push(Obj.ContourWidth);
Line.push(Obj.ContourHeight);
Butt = 'нет кромок';
if (Obj.Butts && (Obj.Butts.Count))
Butt = Obj.Butts.Count + ' кромки';
Line.push(Butt);
Word.Selection.TypeText(Line.join(';') + '\n');
});
}

Action.OnFinish = function() {
Word.Quit(false);
}
[свернуть]

Почему то после запуска, в ворде появляется надпись "Bazis" и больше ничего нет (пробовал и в 8 и в 9). При запуска скрипта не появляется оно свойств, сразу открывается ворд.
Проверьте пожалуйста может, где ошибка. Или что то не так делаю.
Timofeyon вне форума   Ответить с цитированием Вверх
Старый 21.04.2017, 21:44   #1333
larisasan
Новичок
 
Регистрация: 23.04.2013
Адрес: Украина, Днепр
Сообщений: 21
Сказал(а) спасибо: 74
Поблагодарили 14 раз(а) в 7 сообщениях
Вес репутации: 0
larisasan на пути к лучшему
По умолчанию

Цитата:
Сообщение от Timofeyon Посмотреть сообщение
Почему то после запуска, в ворде появляется надпись "Bazis" и больше ничего нет (пробовал и в 8 и в 9). При запуска скрипта не появляется оно свойств, сразу открывается ворд.
Проверьте пожалуйста может, где ошибка. Или что то не так делаю.
После запуска скрипта обратите внимание на кнопки в нижней части экрана. Нажмите на кнопку "Записать панели" после запуска Word.
larisasan вне форума   Ответить с цитированием Вверх
4 пользователя(ей) сказали cпасибо:
anb (21.04.2017), andronf (21.04.2017), Roma (01.11.2018), Timofeyon (21.04.2017)
Старый 21.04.2017, 22:44   #1334
Timofeyon
Пользователь
 
Регистрация: 09.10.2015
Сообщений: 34
Сказал(а) спасибо: 24
Поблагодарили 6 раз(а) в 4 сообщениях
Вес репутации: 0
Timofeyon пока не определено
По умолчанию

Цитата:
Сообщение от larisasan Посмотреть сообщение
После запуска скрипта обратите внимание на кнопки в нижней части экрана. Нажмите на кнопку "Записать панели" после запуска Word.
Заработало! Большое спасибо за подсказку.
Timofeyon вне форума   Ответить с цитированием Вверх
Старый 07.05.2017, 14:56   #1335
sx233077
Новичок
 
Регистрация: 11.11.2013
Сообщений: 12
Сказал(а) спасибо: 7
Поблагодарили 10 раз(а) в 2 сообщениях
Вес репутации: 0
sx233077 на пути к лучшему
По умолчанию

Привет!

Пытаюсь под свои нужды переделать скрипт, на даном етапе при нажатии на кнопку редактировать исчезают полки.

Также после редактирования появляются пустые блоки.

Посмотрите пожалуйта где ошибки.

Также было бы хорошо сделать чтобы пункты меню были свернутыми.

В скриптах я полный нуб. Пока все делаю методом тыка.

если можно помогите.

Спасибо


Скрипт

Left = 0;
Right = 0;
Top = 0;
Bottom = 0;

// если это не режим редактирования, то указываем границы
if (!ParametricBlock) {
SetCamera(p3dFront);
Left = GetEdge('Вкажіть ліву лінію', AxisY).GFirst.x;
Right = GetEdge('Вкажіть праву лінію', AxisY).GFirst.x;
Top = GetEdge('Вкажіть верхню лінію', AxisX).GFirst.y;
Bottom = GetEdge('Вкажіть нижню лінію', AxisX).GFirst.y;

if (Left > Right) {
aaa = Left
Left = Right
Right = aaa
}
if (Bottom > Top) {
aaa = Bottom
Bottom = Top
Top = aaa
}
}
MakeProp();

if (!ParametricBlock) {
FileOptions = 'Save_KT.xml';
Action.Properties.Load(FileOptions);
SzLeft.Value = Left;
SzBottom.Value = Bottom;
SzWidth.Value = Right - Left;
SzHeight.Value = Top - Bottom;
Action.OnFinish = function() {
Action.Properties.Save(FileOptions);
}
}

BtnOK = NewButtonInput("Побудувати")
BtnOK.OnChange = function() {
Action.Finish()
}

function MakeProp() {
Prop = Action.Properties;

//группа корпус
Korp = Prop.NewGroup('Корпус');
SzLeft = Korp.NewNumber('Низ', Left);
SzLeft.Visible = false;
SzBottom = Korp.NewNumber('Низ', Bottom);
SzBottom.Visible = false;
SzWidth = Korp.NewNumber('Ширина', Right - Left);
SzHeight = Korp.NewNumber('Висота', Top - Bottom);
DepthVal = Korp.NewNumber('Глибина');
DepthVal.Value = 510
SideMat = Korp.NewMaterial('ДСП корпусу');
ButtC = Korp.NewButt('Видима крайка');
ButtCNev = Korp.NewButt('Невидима крайка');

//группа вставная полка
PolkaVs = Prop.NewBool('Вставна полиця')
PolkaVs.Value = true
PolkaVs.OnChange = function() {
PolkaVs.ChildrenEnabled = PolkaVs.Value
}
CountPol = PolkaVs.NewNumber('Кількість')
CountPol.Value = 1
ShelfOffset = PolkaVs.NewNumber('Відступ з боків');
ShelfOffset.Value = 0.5
ShelfZag = PolkaVs.NewNumber('Заглиблення')
ShelfZag.Value = 5
// группа ДВП
Dvpo = Prop.NewBool('Задня стінка')
Dvpo.Value = true
Dvpo.OnChange = function() {
Dvpo.ChildrenEnabled = Dvpo.Value
}
MatZadSt = Dvpo.NewMaterial('ДВП')
// группа цоколь
Cok = Prop.NewBool('Цоколь')
Cok.Value = true
Cok.OnChange = function() {
Cok.ChildrenEnabled = Cok.Value
}
MatCok = Cok.NewMaterial('Цоколь')
ButtCok = Cok.NewButt('Крайка')
//группа фасад
Doors = Prop.NewBool('Фасади')
Doors.Value = true
Doors.OnChange = function() {
Doors.ChildrenEnabled = Doors.Value
}

MatFas = Doors.NewMaterial('Матеріал')
ButtD = Doors.NewButt('Крайка')
KolDv = Doors.NewCombo('К-сть фасадів', '1\n2')
PetliLeftRight = Doors.NewCombo('Завіси', 'Ліва\nПрава');
if (SzWidth.Value > 600)
{
PetliLeftRight.Enabled = false;
KolDv.Enabled = false;
}
else
{
if (SzWidth.Value == 600)
{
KolDv.Enabled = true;
if (KolDv.ItemIndex == 0)
PetliLeftRight.Enabled = true;
else
PetliLeftRight.Enabled = false;
}
else
{
KolDv.Enabled = false;
PetliLeftRight.Enabled = true;
}
}

//группа столешница
Stolesh = Prop.NewBool('Стільниця')
Stolesh.Value = true
Stolesh.OnChange = function() {
Stolesh.ChildrenEnabled = Stolesh.Value
}
MatStol = Stolesh.NewMaterial('Матеріал')

// группа фурнитура
FurnGroup = Prop.NewGroup('Фурнітура');
Ручка = FurnGroup.NewFurniture('Ручка');
Angle = FurnGroup.NewCombo('Кут повороту ручки', '0\n90')
Петля = FurnGroup.NewFurniture('Завіса');
ОпораПерёд = FurnGroup.NewFurniture('Опора перед');
ОпораЗад = FurnGroup.NewFurniture('Опора зад');
НавескаЛевая = FurnGroup.NewFurniture('Навеска Левая');
НавескаПравая = FurnGroup.NewFurniture('Навеска Правая');
Евровинт = FurnGroup.NewFurniture('Конфірмат');
Полкодержатель = FurnGroup.NewFurniture('Полицетримач');
Шкант = FurnGroup.NewFurniture('Шкант');
Miніфікс = FurnGroup.NewFurniture('Miніфікс');


Btn = Prop.NewButton('Побудувати')
//обработка нажатия кнокпи



Btn.OnClick = function() {
Action.Finish()
}
}




function Primenit()
{

if (DepthVal.Value < 350)
{НавескаЛевая.Enabled = true;
НавескаПравая.Enabled = true;
ОпораПерёд.Enabled = false;
ОпораЗад.Enabled = false;
}
else
{НавескаЛевая.Enabled = false;
НавескаПравая.Enabled = false;
ОпораПерёд.Enabled = true;
ОпораЗад.Enabled = true;
}

if (SzWidth.Value > 600)
{
PetliLeftRight.Enabled = false;
KolDv.Enabled = false;
}
else
{
if (SzWidth.Value == 600)
{
KolDv.Enabled = true;
if (KolDv.ItemIndex == 0)
PetliLeftRight.Enabled = true;
else
PetliLeftRight.Enabled = false;
}
else
{
KolDv.Enabled = false;
PetliLeftRight.Enabled = true;
}

}



if (Angle.ItemIndex == 0)
Fi = 0;
else
Fi = 90;



if (DepthVal.Value <= 199)
alert('Глубина копуса менша ніж 199 мм!\nВведіть значення ще раз.')
else
MakeShelf();
}


Action.OnStart = function()
{
//обработка событий в любых полях ввода свойства
Prop.OnChange = Primenit;
Primenit();
};

Action.Continue();

function EvrAndShkant(Panel1, Panel2, X, Y, Z, Sdvig) {
Евровинт.Value.Mount(Panel1, Panel2, X, Y, Z);
Шкант.Value.Mount(Panel1, Panel2, X, Y, Z + Sdvig);
}

function Petlya(Panel1, Panel2, X, Y, Z) {
Петля.Value.Mount(Panel1, Panel2, X, Y, Z);
}

function PetliLeft() { if (SzHeight.Value > 1000) { Petlya(LeftPanel, (DverL || DverR || DverL1), LeftX, Bottom + 500, Depth);}
Petlya(LeftPanel, (DverL || DverR || DverL1), LeftX, Bottom + 100, Depth);
Petlya(LeftPanel, (DverL || DverR || DverL1), LeftX, Top - 100 - Fuga2, Depth);
}

function PetliRight() { if (SzHeight.Value > 1000) { Petlya(RightPanel, (DverL || DverR || DverL1), LeftX, Bottom + 500, Depth);}
Petlya(RightPanel, (DverL || DverR || DverL1), LeftX, Bottom + 100, Depth);
Petlya(RightPanel, (DverL || DverR || DverL1), LeftX, Top - 100 - Fuga2, Depth);
}

function Ruchka(Panel, X, Y, Z, S) {
Ручка.Value.Mount1(Panel, X, Y, Z, S)
}



function MakeShelf() {
DeleteNewObjects();

// Границі беремо з параметрів
Left = SzLeft.Value;
Bottom = SzBottom.Value;
Right = SzLeft.Value + SzWidth.Value;
Top = SzBottom.Value + SzHeight.Value;

if (DepthVal.Value < 350)
NameBL = 'Тумба верхня ';
else
NameBL = 'Тумба нижня ';

SH = Right - Left;
SH1 = SH.toFixed().toString();
BL = BeginParametricBlock(NameBL + SH1);
Depth = DepthVal.Value;
Offset = ShelfOffset.Value;
SideMat.SetActive();
DepthDver = Depth + SideMat.Thickness;
LeftX = Left + SideMat.Thickness;
RightX = Right - SideMat.Thickness;
Y1 = Top - SideMat.Thickness;
Y2 = Bottom + SideMat.Thickness;
SideMat.SetActive();
Fuga = 1.5; //зазаор для дверей
Fuga2 = 4; //зазаор для дверей
Fuga3 = 1.5; //зазаор для дверей
CentrX = ((Right - Left) * 0.5 + Left);
Odds = SH.toFixed(); //ширина корпуса

if ( DepthVal.Value < 350) {
LeftPanel = AddVertPanel(0, Bottom, Depth, Top, Left); //установка левого бока
RightPanel = AddVertPanel(0, Bottom, Depth, Top, RightX); //установка правого бока
Dno = AddHorizPanel(LeftX, 0, RightX, Depth, Bottom); // установка дна
VerhPanel = AddHorizPanel(LeftX, 19, RightX, Depth, Top - SideMat.Thickness); // установка кришки
//пазы на панелях
Cut1 = LeftPanel.AddCut('Паз 15 (8х4)');
Cut1.Trajectory.AddLine(17, 0, 17, LeftPanel.ContourHeight);
Cut1.Contour.AddRectangle(-2, 0, 2, 8);
Cut2 = RightPanel.AddCut('Паз 15 (8х4)');
Cut2.Trajectory.AddLine(17, 0, 17, RightPanel.ContourHeight);
Cut2.Contour.AddRectangle(-2, RightPanel.Thickness, 2, RightPanel.Thickness - 8)
Cut3 = Dno.AddCut ('Паз 15 (8х4)');
Cut3.Trajectory.AddLine(0, -17, Dno.ContourWidth, -17);
Cut3.Contour.AddRectangle(-2, Dno.Thickness - 8, 2, Dno.Thickness);
//Кромка на панелях
LeftPanel.AddButt(ButtCNev, 0);
LeftPanel.AddButt(ButtC, 1);
LeftPanel.AddButt(ButtCNev, 2);
LeftPanel.AddButt(ButtCNev, 3);
RightPanel.AddButt(ButtCNev, 0);
RightPanel.AddButt(ButtC, 1);
RightPanel.AddButt(ButtCNev, 2);
RightPanel.AddButt(ButtCNev, 3);
Dno.AddButt(ButtCNev, 0);
Dno.AddButt(ButtCNev, 1);
Dno.AddButt(ButtC, 2);
Dno.AddButt(ButtCNev, 3);
VerhPanel.AddButt(ButtCNev, 0);
VerhPanel.AddButt(ButtCNev, 1);
VerhPanel.AddButt(ButtC, 2);
VerhPanel.AddButt(ButtCNev, 3);
Z1 = 16;
MatZadSt.SetActive();
ZadSt = AddFrontPanel(LeftX - 7, Y1 + 17, RightX + 7, Y2 - 7, Z1); //установка задней стенки
Smech = Z1 + ZadSt.Thickness;
CZ = ZadSt.Contour;
VerhPanel.TextureOrientation = ftoHorizontal;
VerhPanel.Name = 'Кришка';

} else {
LeftPanel = AddVertPanel(0, Bottom + 18, Depth, Top, Left); //установка левого бока
RightPanel = AddVertPanel(0, Bottom + 18, Depth, Top, RightX); //установка правого бока
Dno = AddHorizPanel(LeftX - 18, 0, RightX + 18, Depth, Bottom); // установка дна
LeftPanel.AddButt(ButtCNev, 0);
LeftPanel.AddButt(ButtC, 1);
LeftPanel.AddButt(ButtCNev, 2);
LeftPanel.AddButt(ButtCNev, 3);
RightPanel.AddButt(ButtCNev, 0);
RightPanel.AddButt(ButtC, 1);
RightPanel.AddButt(ButtCNev, 2);
RightPanel.AddButt(ButtCNev, 3);
Dno.AddButt(ButtCNev, 0);
Dno.AddButt(ButtCNev, 1);
Dno.AddButt(ButtC, 2);
Dno.AddButt(ButtCNev, 3);
Cok = AddFrontPanel(Left, Bottom - 100, Right, Bottom - 5, Depth - 36);//установка цоколя
Cok.TextureOrientation = ftoHorizontal;
Cok.AddButt(ButtCok, 1);
Cok.AddButt(ButtCok, 2);
Cok.AddButt(ButtCok, 3);
Cok.AddButt(ButtCok, 0);
PlankaZ = AddHorizPanel(LeftX, 0, RightX, 80, Top - SideMat.Thickness); //установка задней планки
PlankaP = AddHorizPanel(LeftX, Depth, RightX, Depth - 80, Top - SideMat.Thickness); //установка передней планки
PlankaP.TextureOrientation = ftoHorizontal; //направление текстуры
PlankaZ.TextureOrientation = ftoHorizontal; //направление текстуры
PlankaZ.AddButt(ButtCNev, 0);
PlankaZ.AddButt(ButtCNev, 1);
PlankaZ.AddButt(ButtCNev, 2);
PlankaZ.AddButt(ButtCNev, 3);
PlankaP.AddButt(ButtC, 0);
PlankaP.AddButt(ButtCNev, 1);
PlankaP.AddButt(ButtCNev, 2);
PlankaP.AddButt(ButtCNev, 3);

Z1 = -3;
MatZadSt.SetActive();
ZadSt = AddFrontPanel(LeftX - 16.5, Y1 + 16.5, RightX + 16.5, Y2 - 16.5, Z1); //установка задней стенки
Smech = Z1 + ZadSt.Thickness;

PlankaP.TextureOrientation = ftoHorizontal; //направление текстуры
PlankaZ.TextureOrientation = ftoHorizontal; //направление текстуры
Cok.TextureOrientation = ftoHorizontal;
PlankaP.Name = 'Планка передня';
PlankaZ.Name = 'Планка задня';
Cok.Name = 'Цоколь';

//ПОЛКА

PosY = Bottom;
YInc = ((Top - Bottom) - SideMat.Thickness) / 2;
ShLeft = LeftX + Offset; //зазор для вкалдной полки слева
ShRight = RightX - Offset; //зазор для вкалдной полки справа
Prol = ((Y1 - Y2) - SideMat.Thickness * CountPol.Value) / (CountPol.Value + 1)
A1 = Depth - 37; //установка первого евровинта
A2 = A1 % 32; //остаток от глубины корпуса
Zag = ShelfZag.Value; //заглубление вставной полки спереди
WidthPol = Depth - Smech - ShelfZag.Value
//установка вставной полки
if (ShelfZag.Value < 0 || WidthPol <= 142) {
alert('Значение заглубления полки не корректно!\nВедите значение заново.')
} else {
if (PolkaVs.Value == true) {
for (var k = 0; k < CountPol.Value; k++)
if (ShelfOffset.Value < 0 || ShelfOffset.Value > 5) {
alert('Значение отступа полки не корректно!\nВведите значение заново.')
} else {
if (ShelfOffset.Value > 0) {
Y2 += Prol;
SideMat.SetActive();
Zpol = Depth - Zag;
Polka = AddHorizPanel(ShLeft, Smech, ShRight, Zpol, Y2);
Polka.TextureOrientation = ftoHorizontal;
Polka.AddButt(ButtCNev, 0);
Polka.AddButt(ButtCNev, 1);
Polka.AddButt(ButtC, 2);
Polka.AddButt(ButtCNev, 3);
Polka.Name = 'Полка';
}}}}




}

//задание текстур для панелей
LeftPanel.TextureOrientation = ftoVertical;
RightPanel.TextureOrientation = ftoVertical;
Dno.TextureOrientation = ftoHorizontal;
ZadSt.TextureOrientation = ftoVertical;

//Підписуємо назви деталей
LeftPanel.Name = 'Боковина ліва';
RightPanel.Name = 'Боковина права';
Dno.Name = 'Дно';
ZadSt.Name = 'Задня стінка';

}






BL = EndParametricBlock();


[свернуть]
sx233077 вне форума   Ответить с цитированием Вверх
Старый 11.05.2017, 12:52   #1336
Koxa007
Новичок
 
Регистрация: 28.06.2015
Сообщений: 1
Сказал(а) спасибо: 0
Поблагодарили 1 раз в 1 сообщении
Вес репутации: 0
Koxa007 пока не определено
По умолчанию

Цитата:
Сообщение от Timofeyon Посмотреть сообщение
Скажите возможно ли такое? Делаю скрипт "Шкаф-купе" который будет полностью строиться с помощью скрипта... Так вот родилась мысль, чтобы все необходимые данные (Габариты изделия, наименование фурнитуры, названия ручек, cbcntvs и т.д.) записывалbcm в вордовский документ, а если б еще и в форме таблицы )) Скажите возможно ли такое?

p/s Думаю было бы очень удобно. Сделал себе изделие а к нему файл с описанием изделия.
Возможен еще один подход.
При создании чертежей можно назначить вывод спецификации также и в файл XML, который открыть в Exel. Содержит полную информации об изделии - панели, кромки, отверстия с координатами, фурнитура, сводная информация, операции. Написать приложение для обработки этого массива информации (возможно в нескольких разрезах) на Exel Visual Basic весьма не сложно. Смета может получиться интереснее чем в Базисе)))
Koxa007 вне форума   Ответить с цитированием Вверх
Пользователь сказал cпасибо:
Timofeyon (16.05.2017)
Старый 16.05.2017, 09:39   #1337
Timofeyon
Пользователь
 
Регистрация: 09.10.2015
Сообщений: 34
Сказал(а) спасибо: 24
Поблагодарили 6 раз(а) в 4 сообщениях
Вес репутации: 0
Timofeyon пока не определено
По умолчанию

Цитата:
Сообщение от Koxa007 Посмотреть сообщение
Возможен еще один подход.
У нас так одна фирма вытягивает все отверстия под присадочнык. Очень удобно.

Для себя хотел что нибудь по проще. Меня больше интересует проверка изделия. Например: менеджер сделал проект. К нему краткая информация об габаритах изделия, под какие направляющие смоделирован ящик, ДВП накладное или в четверть, может что-то еще.
Timofeyon вне форума   Ответить с цитированием Вверх
Пользователь сказал cпасибо:
Ovsyanicov (16.05.2017)
Старый 16.05.2017, 14:05   #1338
rusisx
Новичок
 
Регистрация: 24.05.2015
Сообщений: 1
Сказал(а) спасибо: 0
Поблагодарили 0 раз(а) в 0 сообщениях
Вес репутации: 0
rusisx пока не определено
По умолчанию

Добрый день, подскажите пожалуйста, возможно ли создать такой скрипт, который будет автоматически создавать "текстовое свойство" (примечание) на криволинейных деталях. Буду очень признателен, если кто поделился, хотя бы схожим скриптом.
rusisx вне форума   Ответить с цитированием Вверх
Старый 21.05.2017, 08:57   #1339
IStiv
Пользователь
 
Регистрация: 02.12.2016
Сообщений: 84
Сказал(а) спасибо: 21
Поблагодарили 55 раз(а) в 27 сообщениях
Вес репутации: 109
IStiv скоро придёт к известности
По умолчанию

Цитата:
Сообщение от rusisx Посмотреть сообщение
автоматически создавать "текстовое свойство" (примечание) на криволинейных деталях.
что есть "криволинейная деталь"? гнутые панели определить можно
Код:
   var isBent = panel.Bent;
если имеется ввиду что криволинейный контур, необходимо как то анализировать контур. например есть:
Код:
Contour2D.IsContourRectangle
Проверка, является ли контур прямоугольным.
ну и далее создаем пользовательское свойство
Код:
Panel.UserPropertyName
Panel.UserProperty
Добавлено через 6 минут
Цитата:
Сообщение от Koxa007 Посмотреть сообщение
При создании чертежей можно назначить вывод спецификации также и в файл XML, который открыть в Exel
с какой целью сначала в XML? можно ведь сразу в Exel через COM данные запихивать.
Ссылка на сервисе
IStiv вне форума   Ответить с цитированием Вверх
6 пользователя(ей) сказали cпасибо:
Старый 23.05.2017, 12:16   #1340
sx233077
Новичок
 
Регистрация: 11.11.2013
Сообщений: 12
Сказал(а) спасибо: 7
Поблагодарили 10 раз(а) в 2 сообщениях
Вес репутации: 0
sx233077 на пути к лучшему
По умолчанию

Добрый день!

Народ,
поделитесь пожалуйста скриптом - тумба с ящиками.
Ну очень нужен.

Спасибо
sx233077 вне форума   Ответить с цитированием Вверх
Ответ

Нижняя навигация
Вернуться   Форум профессиональных мебельщиков PROMEBELclub > Программы для мебельщиков > Программы для конструирования и дизайна мебели > Система БАЗИС > Базис-мебельщик. Скрипты

Опции темы
Опции просмотра

Ваши права в разделе
Вы не можете создавать новые темы
Вы не можете отвечать в темах
Вы не можете прикреплять вложения
Вы не можете редактировать свои сообщения

BB коды Вкл.
Смайлы Вкл.
[IMG] код Вкл.
HTML код Выкл.

Быстрый переход

Похожие темы
Тема Автор Раздел Ответов Последнее сообщение
БАЗИС 8 - Скрипты Igor_482 Базис-мебельщик. Скрипты 1524 07.12.2022 19:53
БАЗИС 9 nayrogi Базис-мебельщик 9 785 01.10.2022 23:13
БАЗИС-ЧПУ 8 chingisnah Базис-мебельщик 8 119 21.12.2017 22:04
Заявки на скрипты dr_john Система БАЗИС 37 01.03.2016 10:36
Базис-7,"Народный Базис"и Windows-8 sergeyzak18 "НАРОДНЫЙ" базис 23 16.01.2014 00:37


Текущее время: 03:51. Часовой пояс GMT +3.


Powered by vBulletin® Version 3.8.12 by vBS
Copyright ©2000 - 2024, Jelsoft Enterprises Ltd.
© 2007-2023 PROMEBEL

џндекс.Њетрика