Femap основы написания макросов

При создании этой статьи предполагалось, что читатель знаком с языком программирования VisualBasic (VB). Для быстрого способа написания макроса в Femape существует стандартная вкладка API Programming. Данную вкладку можно найти в menu:Tools->Programming. При открытии данной вкладки мы видим сгенерированный код на языке VB. Этот код содержит описание основной подпрограммы и создает переменную App для доступа к данным и функциям конечно-элементного комплекса femap. Одна из самых часто использованных функций

feAppMessage(ByVal color As zMessageColor, ByVal message As String) As zReturnCode

Из объявления функции видно, что она принимает два параметра. Первый параметр обозначает цвет выводимого текста, а другой строку текста. Данная функция так же возвращает код ошибки. При удачном выполнении функции текст будет отображаться в окне message. Если вы хотите выводить сообщения в отдельном окне, то должны использовать функцию

feAppMessageBox(ByVal msgmode As Long, ByVal message As String)

Первый параметр в функции означает количество и расположения кнопок в диалоговом окне. Этот параметр может принимать значения от 0 до 3. Второй параметр — это сам текст, который будет выводиться в диалоговом окне. Функция возвращает значение нажатой кнопки. Наш первый макрос не будет отличаться оригинальностью. Макрос создает диалоговое окно, определяет, какая кнопка нажата и выдает соответствующее сообщение.

Program
Sub Main
  Dim App As femap.model
  Set App=feFemap()
  Dim m As Long
  m=App.feAppMessageBox(3, «Привет, Мир!»)
  if(m=FE_OK)Then
    App.feMessage(FCM_NORMAL, «Yes!»)
  if(m=FE_CANCEL)Then
    App.feMessage(FCM_WARNING, «Cancel»)
  endif
  if(m=FE_FAIL)Then
    App.feMessage(FCM_ERROR, «No»)
  endif
End Sub

03.07.2017

Резюме
Femap основы написания макросов
Название статьи
Femap основы написания макросов
Краткое описание
В этой статье демонстрируется один из способов программирования в системе femap
Автор
Publisher Name
нет
Publisher Logo