Русский

English


	Поддержка

	Форум

	Техподдержка

	Персональная

Авторизация




	Запомнить меня на этом компьютере
	Забыли свой пароль?
	Регистрация

Поиск по сайту

Подписка

	Новости Bars- Lincor
	Новости RastrWin
	Общие новости
	Новости RUStab


Изменение параметров

Hits		67408956
		306

Hosts		3607088
		125

Visitors		53561903
		306
		62

Главная / Поддержка / Форумы / Макро

Форум «Макро»

Тема: «Объект Rastr , его методы и свойства » в форуме: Макро

Михаил Реутов
Постоянный посетитель

Всего сообщений: 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(formula 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 CompareMegapointWithReference(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(table As String, Field As String, nIndex As Long, SnapshotFileIndex As Long)
Function GetChainedGraphString(table 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(CompanyName 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(BlockNum 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(table 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(MegaAgrIdx 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, не описанных в Справке.
Спасибо.

Профиль

Наверх

Евгений Машалов
Администратор

Всего сообщений: 1059
Дата регистрации: 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/support/forum/...=9&TID=312 в приведенном коде макроса уже использовал данный метод (хотя немного не в том месте). Могу себе представить, сколько еще недокументированных методов и свойств можно полезно использовать.

Профиль

Наверх

Евгений Машалов
Администратор

Всего сообщений: 1059
Дата регистрации: 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 справился на отлично!

При необходимости буду писать в эту тему, если что подобное еще понадобится.

Профиль

Наверх

Евгений Машалов
Администратор

Всего сообщений: 1059
Дата регистрации: 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.

Профиль

Наверх

Читают тему

гостей: 1, пользователей: 0, из них скрытых: 0

Программный комплекс «RastrWin»