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

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

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" (находится в корневой папке программы Базис).

[свернуть]

[Prndd21]

Здравствуйте!
Можно ли через скрипт узнать, является ли панель вертикальной\горизонтальной\фронтальной?
Пока хочу попробовать читать поле "Габариты" и в зависимости от того, по какой оси панель тоньше всего считать ориентацию панели. Как можно получить значение этого поля?

[Briz]

http://promebelclub.ru/forum/showpos...&postcount=562

[Em.]

Добрый вечер,
можно ли организовать скриптом, как командой Найти и Заменить
в 2д чертеже, только не по одной записи а сразу список на список? Хорошо чтобы списки могли загружаться из текстового файла.
Базис 9

[t01849]

Добрый вечер. Может кто знает как выбрать ребро и алертом вывести его длину?
Ребро панели под наклоном

[Briz]

Легко:

PHP код:

alert(GetEdge("Укажите ребро", NewVector()).Length); 


[IStiv]

Доброго времени.
несколько вопросов от начинающего пользователя Базис-скриптов:
1.У Object3 есть свойство ArtPos(артикул). Обращаюсь к нему из скрипта - возвращает пустую строку. Ранее вроде проблема обсуждаласьpromebelclub.ru/forum/showpost.php?p=369938&postcount=1001.Есть ли решение?
2. Объясните пожалуйста что работает "под капотом" Базис скриптов? какой интерпретатор JS?
3.Возможно ли из Базис скриптов парсить/разбирать XML? (создание ActiveX объектов из скрипта я так понял не работает, ранее этой технологией пользовался для работы с XML).

[IStiv]

еще вопрос. можно ли распарсить . bln? - нужно названия "листов". я так понимаю формат файла не полностью закрыт, т.к. открыв в блокноте .bln я вижу некоторые теги(UTF-8) кодировка.

[Igor_482]

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

1.У Object3 есть свойство ArtPos(артикул). Обращаюсь к нему из скрипта - возвращает пустую строку. ... Есть ли решение?

Необходимо предварительно расставить позиции.

...из скрипта

Action.Control.Owner.Owner.dpModelTree.Controls[1].ItemArrangeNew.Click();
или
Action.Control.Owner.Owner.dpModelTree.Controls[1].ItemArrangeNew.PostClick();

[свернуть]

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

3.Возможно ли из Базис скриптов парсить/разбирать XML? (создание ActiveX объектов из скрипта я так понял не работает, ....

возможно, и ActiveX работает

var Application    = Action.Control.Owner.Owner.Owner,
    ExeName        = Application.ExeName,
    Caption        = Application.MainForm.Caption,
    FSO            = NewCOMObject('Scripting.FileSystemObject'),
    RootFolder     = FSO.GetParentFolderName(ExeName),
    Shell          = NewCOMObject('WScript.Shell'),
    SettingsFile   = new String(),
    ProfileFolder  = new String(),
    AutosaveFolder = new String();

if (Caption.match(/Базис-Мебельщик 9/)) {
  if (Caption.match(/Демо-версия/)) {
    ProfileFolder = '\\Bazis9 DEMO';
  } else {
    ProfileFolder = '\\Bazis9';
  };
};
if (Caption.match(/Базис-Мебельщик 8/)) {
  if (Caption.match(/Демо-версия/)) {
    ProfileFolder = '\\Bazis8 DEMO';
  } else {
    ProfileFolder = '\\Bazis8';
  };
};
if (system.fileExists(Shell.ExpandEnvironmentStrings('%AppData%') +
                        ProfileFolder + '\\Settings.xml')) {
  SettingsFile = Shell.ExpandEnvironmentStrings('%AppData%') +
                   ProfileFolder + '\\Settings.xml';
};
if (system.fileExists(RootFolder + '\\Settings\\Settings.xml')) {
  SettingsFile = RootFolder + '\\Settings\\Settings.xml';
};
system.log('Файл настроек: ' + SettingsFile);
alert('Файл настроек: ' + SettingsFile);

try {
  XMLDOM = NewCOMObject('Microsoft.XMLDOM');
  XMLDOM.async = 'false';
  XMLDOM.load(SettingsFile);
  AutosaveFolder = XMLDOM.selectSingleNode('Settings/Paths/PathTEMP').text;
  system.log('Папка временных файлов: ' + AutosaveFolder);
  alert('Папка временных файлов: ' + AutosaveFolder);
} catch (Error) {
  alert(Error.message);
  Action.Cancel();
};

[свернуть]

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

2. Объясните пожалуйста что работает "под капотом" Базис скриптов? какой интерпретатор JS?

Этот вопрос к уважаемым разработчикам.

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

...сделал для себя вывод, что скрипты все же больше для программистов, а не для простых технологов.
..когда скриптами заниматься, если основной работы выше крыши!?...

К вашему вниманию, простой технолог и личный опыт использования замечательного инструмента технолога - скрипта

[aspid96]

добрый день, пытаюсь сделать скрипт расстановки крепежа, но проблема в том что GabMax считает размер от переда кромки до ЛСК. Подскажите как сделать так, что бы брался именно размер(глубина) полки без привязки к ЛСК

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

Polka = GetPanel("Укажите горизонтальную панель")
Bok1 = GetPanel("Укажите 1-ую вертикальную панель")
Bok2 = GetPanel("Укажите 2-ую вертикальную панель")

x = (Math.floor((Polka.GabMax.z - 74 - 64) / 32))*32 +37
Evrik = OpenFurniture('Евровинт 7х50 для 18.f3d')
Evrik.Mount(Polka, Bok1, 0, 0, Polka.GabMax.z - x)
Evrik.Mount(Polka, Bok2, 0, 0, Polka.GabMax.z - x)
Evrik.Mount(Polka, Bok1, 0, 0, Polka.GabMax.z - 37)
Evrik.Mount(Polka, Bok2, 0, 0, Polka.GabMax.z - 37)

Evrik1 = OpenFurniture('Шкант 8х30.f3d')
Evrik1.Mount(Polka, Bok1, 0, 0, Polka.GabMax.z - x - 32)
Evrik1.Mount(Polka, Bok2, 0, 0, Polka.GabMax.z - x - 32)
Evrik1.Mount(Polka, Bok1, 18, 18, Polka.GabMax.z - 37 - 32)
Evrik1.Mount(Polka, Bok2, 0, 0, Polka.GabMax.z - 37 - 32)

[свернуть]

[IStiv]

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

Необходимо предварительно расставить позиции.

да потом разобрался , но ArtPos возвращает позицию , а не Артикул - как описано в документации.
вероятно это недоработка API.
за пример с xml - спасибо.