Русский
English
Главная
RastrWin
Программа
Последние изменения
Часто задаваемые вопросы
Аннотация
Лицензирование и защита от копирования
Права Windows для пользователя RastrWin
Курсы
Компонентная архитектура
Интерфейс
Инструкция по установке
Документация, видео, презентации
Свидетельство о регистрации
RastrKZ
RastrMDP
RastrOS
ZamerSeti
Архив
Bars-Lincor
Расчетная модель
Система моделирования
Последние изменения
Программа
Инструкция пользователя
Инсталляция
RUStab
Загрузка
Последние изменения
Поддержка
Поддержка
Форум
Техподдержка
Персональная
Макро студия
Макро студия
Автоматизация
Работа с SQL
Оценка параметров ЛЭП и ТР
Эффективность размыкания сети
Анализ напряжений в Excel
Автоматизация с "AutoIt"
Создание графа сети из режима
Передача графики в SVG
Вариантные расчеты
Импортозамещение
О нас
О компании
Фотогалерея
Пользователи
Отчеты об использовании своего имущества
Реквизиты
Поддержка
Форум
Техподдержка
Персональная
Авторизация
Запомнить меня на этом компьютере
Забыли свой пароль?
Регистрация
Поиск по сайту
Подписка
Новости Bars- Lincor
Новости RastrWin
Общие новости
Новости RUStab
Изменение параметров
Hits
66985886
4473
Hosts
3541122
706
Visitors
53213273
3104
15
Главная
/
Поддержка
/
Форумы
/
Макро
Форум «Макро»
Версия для печати
Список форумов
Новые темы
Список тем
Поиск по форумам
Помощь
Войти
Регистрация
Тема: «
Объект Rastr
, его методы и свойства » в форуме:
Макро
Просмотров: 8972
Михаил Реутов
Постоянный посетитель
Всего сообщений:
224
Дата регистрации:
21.11.2007
Создано:
01.06.2011 12:24:56
Приветствую.
Не поленился - выписал все предусмотренные методы и свойства объекта Rastr.
В Справке к программе приводятся описания не всех методов и свойств. Считаю, что ограничен в возможностях написания макросов в силу отсутствия соответсвующей информации.
Далее привожу полный перечень методов и свойств объекта Rastr; некоторые в Справке описаны и чисто интуитивно можно понять назначение некоторых свойств,методов.
Далее методы:
Function Actualize(nStart As Long, nEnd As Long, [nMode As Long = 1], [NoFormulas As Long]) As RastrRetCode
Sub AddControl(st As Long, Name As String)
Sub AddControlTableCols(table
As String, Rows)
Function AnSech(Mode As PrelOPFMode, per_loss As Double, ns As Long, wrt_plim As Long, wrt_pgen As Long) As Long
Sub ApplyVariant(num As Long)
Function Bars3Actualize(Time As Double, DayLength As Double) As RastrRetCode
Function Bars3TimeConvert(Time As Double, DayLength As Double) As RastrRetCode
Function BuildMegapoint([bFlags As Long]) As RastrRetCode
Sub CalcIdop(Temp As Double, PCab As Double, viborka As String)
Sub CalcPsevdoTI(ti As PseTI)
Function CalculateImmediately(form
ula As String)
Sub CheckChanges(pVal)
Function CheckMegapoint() As RastrRetCode
Sub ClearControl()
Sub Commit()
Sub CompareMatrixSetKa(__MIDL
__IRastr0000 As Long, mat As String, n1 As Long, n2 As Long, prot As String)
Function CompareMegapointWithRefer
ence(ReferencePath As String)
Function ekv(param As String) As RastrRetCode
Function Emergence(nNum As Long) As Long
Function Emergencies() As Long
Function ExecMacroPath(MacroPath As String, [Parameters As String])
Function ExecMacroSource(MacroText
As String, [Parameters As String])
Sub ExportToXML(FileName As String, [Config As String])
Function FastRGEGraphs([StartPoint
As Long = -1], [EndPoint As Long = -1]) As RastrRetCode
Function FindOS(nVirNum As Long, bstrParam As String) As Long
Function FindOSs(bstrParam As String) As Long
Function FWDynamic() As FWDynamic
Function FWSnapshotFiles() As FWSnapshotFiles
Function GetCellColor(MKTableIndex
As Long, MKColIndex As Long, MkRow As Long) As Long
Function GetChainedGraph(table As String, Field As String, nIndex As Long)
Function GetChainedGraphSnapshot(t
able As String, Field As String, nIndex As Long, SnapshotFileIndex As Long)
Function GetChainedGraphString(tab
le As String, Field As String, nIndex As Long) As String
Function GetChainedInfo(table As String, Field As String, ChainedTable As String, ChainedField As String) As Long
Function GetChangeInfo(nIndex As Long) As ChangeInfo
Function GetCurrentMegapointNum() As Long
Function GetFunctionStatus(nIndex As Long, FunctionName As String, DateExpired As String, Enabled As Long) As Long
Sub GetLicenseInfo(CompanyNam
e As String, UserName As String, LicenseValid As Long)
Function GetMaxPoint() As Long
Function GetMaxUserPoint() As Long
Function GetMinPoint() As Long
Function GetMinUserPoint() As Long
Sub getMustangSSP(regfile As String)
Sub getPSSE(regfile As String)
Function GetStopEventHandle() As Long
Sub ImportFromXML(FileName As String, [kod As CSV_KOD = CSV_REPL])
Function IsBaseStateAvailable() As Long
Function IsMegapointAvailable() As Long
Function jakobi(param As String) As RastrRetCode
Function kdd(param As String) As RastrRetCode
Sub Load(kd As RG_KOD, Name As String, shabl As String)
Sub LoadOldFile(ti As OldTip, Name As String, shabl As String)
Function MakeAllICs() As RastrRetCode
Function MakeCurrentICs() As RastrRetCode
Sub MatrixSetKa(tip As Long, matr As String, num As Long, Name As String, e1 As Double, e2 As Double)
Sub MegaAggregate(subj, target As Long, TableName As String, Nrs As Long)
Sub MegaAggregateToGrid(Block
Num As Long, addrlines As Long, linescnt As Long, addrpages As Long, pagescnt As Long, addrcells As Long, cellcnt As Long, dd As Long, mm As Long, yyyy As Long, startx As Long, endx As Long)
Function multi_opf(h_beg As Long, h_end As Long, param As String) As RastrRetCode
Sub NewFile(shabl As String)
Function nonsymm_shunt(par As String, NonSymType As _NonSymType, nNodeNum As Long, vRe_Rd, vRe_Shunt, vIm_Shunt, pvRe_Z1, pvIm_Z1, pvRe_Z2, pvIm_Z2, pvRe_Z0, pvIm_Z0, pvRe_Z, pvIm_Z) As Long
Sub OpenSubst(num As Long)
Function opf(param As String) As RastrRetCode
Function opt(param As String) As RastrRetCode
Function os_start(nVirNum As Long) As Long
Function os_step(param As String) As Long
Sub os_stop(param As String)
Function PrelOPF(param As String, Mode As PrelOPFMode, per_loss As Double) As PrelOPFRetCode
Function PrepOPF([Mode As Long]) As RastrRetCode
Sub PrintBaza()
Sub Printp(string As String)
Sub push_rgm()
Sub putMustangSSP(regfile As String)
Sub putPSSE(regfile As String)
Sub read_euro(regfile As String)
Sub read_rgm(fname As String)
Function read_tkz3000(FPath As String) As Long
Function ReadPnt(NPoint As Long, [bUseBaseState As Long]) As RastrRetCode
Sub RearrangeNTables()
Sub RemoveControlTableCols(ta
ble As String, Rows)
Sub repair_graph(Level As Long)
Function rgm(param As String) As RastrRetCode
Sub RollBack()
Function RunAutomatic(nStart As Long, nEnd As Long) As RastrRetCode
Sub Save(Name As String, templ As String)
Sub save_rgm(fname As String)
Sub SaveLicense(CompanyName As String, UserName As String)
Sub SendChangeData(hint As Long, tabl As String, col As String, row As Long)
Function SendCommandMain(kom As COMM_MAIN, p1 As String, p2 As String, pp As Long)
Sub sensiv_back(tip As Long, koef As Double, n1 As Long, n2 As Long, np As Long)
Sub sensiv_clear()
Sub sensiv_end()
Sub sensiv_forw(tip As Long, n_uzl As Long, kf As Double)
Sub sensiv_predel()
Function sensiv_start(param As String) As RastrRetCode
Sub sensiv_write(par As String)
Function ShiftMegapoint(NPoint As Long, nRenumber As Long) As RastrRetCode
Sub ShutDownSubstServer()
Function step_ut(param As String) As RastrRetCode
Function stes(param As String) As RastrRetCode
Sub TestAggreagtionTemplate(M
egaAgrIdx As Long, Name As String)
Sub Time()
Sub ut_FormControl()
Sub write_euro(regfile As String, Flags As Long)
Function WritePnt(NPoint As Long, [LimitTables As String], [NoFormulas As Long]) As RastrRetCode
Далее свойства:
Property Calc(tip As String, tabl As String, formula As String, viborka As String) As Double
Property CodComp As <Unsupported variant type>
Property CodRepl As <Unsupported variant type>
Property Dynamic As Dynamic
Property ekv_next(i As Long) As String
Property ekv_nextnum(i As Long, i_to As Long, is_create_tabl As Long) As String
Property ekv_region(i As Long, i_to As Long, is_create_tables As Long) As Long
Property FromDST As Double
Property History As History
Property HistoryAutoClose(Message As String) As History
Property HistoryAutoPause As History
Property IsDemo As Long
Property LockEvent As Long
Property LogEnable As Long
Property OutEnumAsInt As Long
Property OutZero As Long
Property RenumWP As Long
Property Stage(st As String) As Stage
Property Status As Long
Property SubstServer As Object
Property Tables As Tables
Property TimeZone As Long
Property ToDST As Double
Property ut_Param(kod As ParamUt) As Long
Property ZN(tabl As String, tip As String, obj As Long)
К чему это все? Хочу знать назначение всех методом и свойств объекта Rastr, не описанных в Справке.
Спасибо.
Профиль
Наверх
Евгений Машалов
Администратор
Всего сообщений:
1046
Дата регистрации:
23.04.2007
Создано:
01.06.2011 19:44:10
Здравствуйте Михаил. В справке описаны, и достаточно подробно, методы и свойства предназначенные для использования во встроенных макросах или VBA-средах. Не описанные функции можно грубо разделить на три категории:
1. Служебные, необходимые для взаимодействия с оболочкой.
2. Методы управления внешними по отношению к ядру компонентами (типа SubsServer, Megagrid).
3. Методы преобразования из/в всякие форматы.
Так что в справке мы не описываем функционал не потому, что есть какие-то секретные возможности, а потому что воспользоваться этим функционалом скорее всего никто не захочет и/или не сможет.
Если есть конкретные требования, или просто интересно что делает та или иная недокументированная функция могу здесь проконсультировать.
Профиль
Наверх
Михаил Реутов
Постоянный посетитель
Всего сообщений:
224
Дата регистрации:
21.11.2007
Создано:
02.06.2011 08:46:22
Здравствуйте, Евгений.
Цитата
Евгений Машалов пишет:
Если есть конкретные требования, или просто интересно что делает та или иная недокументированная функция могу здесь проконсультировать.
Мне нужно написать макрос, который бы из файла мегаточки делал бы 24 (или другое количество) файлов в формате rg2.
Есть методы, в названии которых имеется наимеование Megapoint (мегаточка). С помощью этих методов считаю, что могу решить посталенную задачу. Прошу Вашу консультацию.
Цитата
Евгений Машалов пишет:
потому что воспользоваться этим функционалом скорее всего никто не захочет и/или не сможет
Например, в Справке отсутствует описание метода CalcIdop, который расчитывает допустимый ток в зависимости от указанной температуры и прочих параметров (аналог нажатию F9). Хотя здесь
http://www.rastrwin.ru/su
pport/forum/...=9&TID=312
в приведенном коде макроса уже использовал данный метод (хотя немного не в том месте). Могу себе представить, сколько еще недокументированных методов и свойств можно полезно использовать.
Профиль
Наверх
Евгений Машалов
Администратор
Всего сообщений:
1046
Дата регистрации:
23.04.2007
Создано:
02.06.2011 15:30:01
Набросок:
for i = Rastr.GetMinUserPoint to Rastr.GetMaxUserPoint
Rastr.ReadPnt i
Rastr.Save "Path","режим.rg2"
next
Если речь идет о "Барс" COM-интерфейс для него никто и не описывал. Функционал Барс для пользователей реализуется внешним объектом - Консолью Барс, интерфейс которой описан в Разделе Bars/Информация для разработчиков. Низкоуровневые функции для работы с мегаточкой используются в основном во всяких больших комплексах, типа консоли БР, сайта СО и пр. Но на тему этих функций в комплекте Барс куча макросов, включая и таких монстров как "Сравнить МТ". Они весьма познавательны.
CalcIdop опишем.
Профиль
Наверх
Михаил Реутов
Постоянный посетитель
Всего сообщений:
224
Дата регистрации:
21.11.2007
Создано:
02.06.2011 15:53:11
Спасибо, Евгений.
Речь идет о RastrWin, а не о Барсе.
У меня на рабочем компе вообще нет Барса, а ОДУ предоставляет нам только мегаточку. Нет желания делать вручную то, с чем ваш "набросок" в RastrWin справился на отлично!
При необходимости буду писать в эту тему, если что подобное еще понадобится.
Профиль
Наверх
Евгений Машалов
Администратор
Всего сообщений:
1046
Дата регистрации:
23.04.2007
Создано:
02.06.2011 16:45:55
Не за что Михаил.
Я примерно понимаю что и у кого установлено, поэтому и был удивлен мнением о недостаточной освещенности COM-интерфейса
RastrWin
. Разработчики, имеющие дело с мегаточкой в общем знают о ней все что нужно. А в RastrWin мегаточка формально "отсутствует".
На Ваши вопросы с удовольствием отвечу.
Профиль
Наверх
eek21
Заглянувший
Всего сообщений:
2
Дата регистрации:
29.02.2024
Создано:
29.02.2024 17:03:37
Добрый день.
В моей работе существует потребность программно запускать работу, эквивалентную нажатию кнопки "МДП" в RastrWin3. Подскажите,пожалуйста, каким образом работает Function FindOS(nVirNum As Long, bstrParam As String) и Function os_start. Конкретно непонятен параметр bstrParam и сам алгоритм работы FindOS.
Профиль
Наверх
Читают тему
гостей:
2
, пользователей:
0
, из них скрытых:
0
Список форумов
Новые темы
Список тем
Поиск по форумам
Помощь
Войти
Регистрация
Программный комплекс «RastrWin»
© «RastrWin», 1988-2019