Скрипты и API

[AGorskiy]

Интересующимся рекомендую посетить сайт https://getsatisfaction.com/stlm/topics ... _api_forum EPlan P8 API Programming - это Community Luc Morin. Александр аkа aranea знает этот сайт

[aranea]

гугл сегодня нашел тоже интересный сайтик
http://www.cnblogs.com/AriLee/
сижу читаю

[AGorskiy]

Вынес в отдельную тему Перекрестные ссылки viewtopic.php?f=90&t=4020 работу Воробьева Александра aka aranea
На мой взгляд, в данной теме она (работа) просто потерялась.
По описанию интересная вещь, но признаюсь сам не проверял.

[aranea]

ну так и задача разовая и довольно редкая =)

[Dyma]

Хотелось бы такую штучку придумать (хотя это ближе к разделу МЕЧТА), чтобы как в Автокаде, если нужно что-то обрезать, то все разом, а не тыкать в каждый графический объект.
ЗЫ. Столкнулась сейчас с разрисовкой узлов на плане.

[AGorskiy]

Сабж для резервного копирования БДИ. Простой код, простая операция. Можно поступить двумя путями
1) создать ярлык поместить его в автозагрузку и при старте ОС будет произведена операция;
2) создать задание в Планировщике заданий, создать там некоторые условия, если нужны, указать путь к батнику.

Код: Выделить всё

@date /T > D:\EPLAN\Base_backup\filename
Set /p input=Имя < D:\EPLAN\Base_backup\filename
echo %input%
copy P:\Ресурсы\Элементы\СПб\ESS_part001.mdb "D:\EPLAN\Base_backup\%input%BackUp.mdb"

После выполнения операции у вас в каталоге с батником будет лежать еще файлы
"25.02.2014 BackUp.mdb" (пример, число сегодняшнее) и "filename" (в нем указана дата)

При изменении путей помните, что пробелов надо избегать, а сохранить батник в кодировке OEM 866, если в имени пути используете кириллицу, Notepad++ вам поможет.
Батник неидеален, замечания, предложения, пожелания приветствуются.

[+] кстати

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

Код: Выделить всё

@date /T > filename
Set /p input=Имя < filename
echo %input%
copy P:\Ресурсы\Элементы\СПб\ESS_part001.mdb "D:\EPLAN\Base_backup\%input%BackUp.mdb"

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

[limbir]

Всем здравствуйте!
Ни как не получается найти, как задать координаты создаваемого текста.

Код: Выделить всё

Eplan.EplApi.DataModel.Graphics.Text text = new Text();
text.Create(oPage, "Текст", 2.5);

Текст создаётся в точке [0,0]. Как бы его подвинуть?

[limbir]

Всё очень просто

Код: Выделить всё

PointD A = new PointD();
A.X = 20; A.Y = 20;
text.Location = A;

[Madwolf]

А еще проще так:

Код: Выделить всё

text.Location = new PointD(20, 20);

Кстати, все изменения в графических объектах нужно производить после того как они созданы методом create(), иначе вываливается исключение.

[limbir]

Добрый день!
Написана программка, использующая свойство функции "Пользователь, доп. поле1 <40201>". Для удобства оно переименовано, например, в "Номер сигнала" (Настройки: Проекты: Проект: Управление: Дополнительные поля: Функция: Новое имя).
Возможно ли это переименование запрограммировать, чтобы при запуске программы в другом проекте это свойство проекта уже называлось как надо.

[AGorskiy]

Мои познания в АПИ ничтожны, но смею предположить, что нет так как это затрагивает саму программу, но вам ничего не стоит использовать перенос свойств проекта - viewtopic.php?f=90&t=4873#p44146 и(или) заложить это себе в программку.

[limbir]

AGorskiy, спасибо за совет, но требовалось немножко не то.
Порылся в хелпе, чуток подумал и придумал вот что:

Код: Выделить всё

SelectionSet sel = new SelectionSet();
Project prj = sel.GetCurrentProject(false);
ProjectSettings prjSet = new ProjectSettings(prj);
prjSet.SetStringSetting("TrDMBase.PropertyDefs.17.40201.PropertyName", "Моё новое имя свойства", 0);

Самая проблема оказалась в поиске имени настройки "TrDMBase.PropertyDefs.17.40201.PropertyName", в хелпе не нашёл, решил искать в "\EPLAN\Platform\2.2.5\cfg" по тексту "SUPPLEMENTARYFIELD" (взято из имени свойства функций, для которого и требуется замена). Поиск меня привёл к файлу SettingsMasterGui_AvailableSettings.xml, где лежат path'ы настроек.

[aranea]

limbir, отличное решение!
также имена путей можно найти после экспорта нужных настроек в xml файл

Код: Выделить всё

<?xml version="1.0" encoding="utf-8" ?>
- <Settings ver="2.2.5">
  <CAT name="COMPANY" />
  <CAT name="INSTALL" />
- <CAT name="PROJECT">
- <MOD name="TrDMBase">
- <LEV1 name="PropertyDefs">
.......
- <LEV2 name="17">
...........
- <LEV3 name="40201">
- <Setting name="PropertyName" ver="1" type="string" desc="649">
- <Default>
  <Val />
  </Default>
  <Val />
  </Setting>
  </LEV3>
..............

[limbir]

Никак теперь не могу определить к какому классу относится "Обозначение местоположения", это штрихпунктирная рамка, которая на CTRL+F11 вызывается. Может кто в курсе?

[aranea]

Код: Выделить всё

SelectionSet selectionSet = new SelectionSet();
StorableObject[] storableObjects = selectionSet.Selection;

foreach (StorableObject so in storableObjects)
    {
    MessageBox.Show("so.ToString(): " + so.ToString());
    }

дает
so.ToString(): Eplan.EplApi.DataModel.LocationBox

[limbir]

aranea, благодарю!

[limbir]

Воспользовавшись предложенным aranea методом определил TypeIdentifier "Обозначения местоположения", указав в выводимом сообщении

Код: Выделить всё

so.TypeIdentifier.ToString();

Потом по этому значению пытаюсь выбирать из списка StorableObject эти рамки мест обозначения.

Код: Выделить всё

SelectionSet sel = new SelectionSet();
Project prj = sel.GetCurrentProject(false);
DMObjectsFinder fndr = new DMObjectsFinder(prj);
StorableObject[] storObj = fndr.GetStorableObjects(null);
foreach (StorableObject so in storObj)
                if (so.TypeIdentifier == 88)
                {

                }

Выбрал, но как их теперь преобразовать из класса StorableObject в LocationBox?

[aranea]

вариант 1

Код: Выделить всё

SelectionSet selectionSet = new SelectionSet();
List<LocationBox> oLBs = selectionSet.Selection.OfType<LocationBox>().ToList();

foreach (LocationBox oLB in oLBs)
    {

    }

вариант 2

Код: Выделить всё

LocationBox oLB = so as LocationBox;

не проверял

[limbir]

Спасибо! Второй вариант то что надо!
В первом варианте выбор производится через SelectionSet, а мне бы через DMObjectsFinder.

[Madwolf]

Также еще можно использовать следующую конструкцию явного приведения типов ((LocationBox)so). ...

[AlmazM]

Добрый день всем! Кто-нибудь подскажет можно ли реализовать с помощью API вот что: хочу чтобы при вставке устройств и кабелей в их счетчик (для ОУ) присваивалась цифра которую я написал в обозначение места установки в структурном идентификаторе.
Например, у меня есть объект "Емкость подземная". По технологической схеме его номер 41. Захожу в струк. идентификатор создаю данный объект: Обозначение места установки=41, Описание=Емкость подземная. Далее создаю страницу и размещаю ее в 41 месте установки. Все устройства (с черными ящиками и кабели) нумеруем как сам объект. Т.е Счетчик в ОУ = 41 и подсчетчик = 1...n.
Так вот приходится делать это вручную. А хотелось бы вставил макрос, допустим датчика, на страницу и он автоматически себе в счетчик присвоил номер "обозначения место установки" со структурного идентификатора.

[legionercheg]

Можно, наверное, попробовать эти данные для устройства вытаскивать через "Свойство блока"...
Будет выглядеть как то так:
[spoiler=Свойство блока]

1.jpg

[/spoiler]

[Alexander_Pavlov]

Как можно запускать скрипты? сервисные программы - сценарии - выполнить? версия p8 2.1

[aranea]

если скрипт содержит строку [Start], то "сервисные программы - сценарии - выполнить"
в противном случае "сервисные программы - сценарии - загрузить"

[AGorskiy]

GitHub — самый крупный веб-сервис для хостинга IT-проектов и их совместной разработки.
https://github.com/DanielPa - думаю некоторых коллег заинтересует