• Доступ к внутренним функциям UG - для получения какой-то информации об операции, если МОМ-переменной для этого не создано.

• Вывод сообщений Технологу.

• Создание Диалоговых Окон.

• Обработка после постпроцессирования УП программ (если Вам известно, что размер файла будет очень большой.)

  Есть несколько примеров для создания подобных расширений.
  Первый, с него я начинал: это часть всем печально известной библиотеки : ugp_adv_kins.dll (ныне ugpadvkins.dll )- расширенная кинематика (за которую брали деньги и продолжают брать :) ) - uf_mom_add_ufun_tclexts.c

  Второй - это пример файла из документации по UniGraphiCS ( описание появилось лишь в документации NX4 ): uf_mom_extend. Но есть недочеты, с которыми употреблять её незя. Почему? Читайте ниже.

Например:

 set mes1 "Привет"
 set mes2 "Вы готовы для изменений?"
 set ret [ MOM_ui_message INFO YESNO $mes1 $mes2 ]
 if {$ret==3} {
  ;# вы нажали NO  
  } else {
  ;#  вы нажали Да 
 }
 

    MOM_ui_message
    MOM_ask_part_attr

 Не бойтесь использовать функцию UF_print_syslog  , для вывода отладочных и диагностических сообщений в Лог-файл Юниграфики.

 Обратите внимание, что для нашего случая достаточно применять функцию UF_MOM_ask_mom, вызов функции UF_MOM_ask_interp_from_param - избыточен, и в принципе не нужен. Он необходим для других вещей.

 Обязательно нужно указать UniGraphiCS как он должен загружать/выгружать в память код Вашей программы.
 При регистрации (здесь) я использую параметр:
     UF_UNLOAD_SEL_DIALOG
 во-первых, при отладке  всегда можно вручную выгрузить библиотеку. Из-за этого я не применяю параметр    UF_UNLOAD_UG_TERMINATE.
 во-вторых, UG достаточно корректно при данном параметре работает с образом и памятью в процессе своей работы. Что очень существенно, при многократном запуске постпроцессоров (то-есть, многократной попытке разместить в памяти один и тот фрагмент кода).
 в-третьих, Время жизни и выполнения MOM команды может некоторое время продолжаться, после завершения постпроцесса. Именно, поэтому я не применяю параметр UF_UNLOAD_IMMEDIATELY. Он может вызвать ошибку. Вернее, почти всегда её вызывает.:)

 Коротко можно сформулировать Правило:
  применяйте UF_UNLOAD_SEL_DIALOG - если создаете MOM-функции.
  применяйте UF_UNLOAD_IMMEDIATELY - если создавая расширение, Вы, создаете и заполняете только MOM-переменные.

Сделаем небольшое отступление и обсудим компоновку dll.

1) После создании приложения для Юниграфики, это приложение необходимо как то активировать или запускать в UG. Разработчики UG приняли соглашение, что для тех или иных  случаев, или модулей, действует соглашение вызываемых имен. Как пример, могу привести: ufsta   ufusr  - имеющие для Юниграфики различные методы запуска. Возвращаясь к MOM-интерпретатору - нужно написать, что использовать для него такую точку входа:

extern "C" DllExport void ufusr( char *parm, int *returnCode, int rlen )
{

}

для загрузки в Tcl посредством -  MOM_run_user_function <shared_library_name> ufusr  -  вовсе не обязательно. Для этого, Вы, можете употреблять любое другое название удобное Вам. Например:

extern "C" DllExport void user_my( char *parm, int *returnCode, int rlen )
{

}

После этого, Вы, лишь измените способ загрузки в постпроцессоре, указав :    MOM_run_user_function <shared_library_name> user_my

2) Если Вы все же решили, что хотите применять для выгрузки приложения параметр  "UF_UNLOAD_UG_TERMINATE":

 .
extern "C" int ufusr_ask_unload( void )
{
  /*when UG terminates... */
  return ( UF_UNLOAD_UG_TERMINATE );
}

•   То-есть, применять его примерно по схеме:

  ......
  static int my_func
  (
    void *client_data, /* This is the mom object */
    void *interp, /* Pointer to the TCL interpreter */
    int argc, /* Count of the numnber of arguments */
    char **argv /* Array of arguments where the argv[0] - The TCL extension */
  )
  {
     UF_MOM_id_t mom_id = ( UF_MOM_id_t ) client_data ;
  .....
     /* вызов вашей функции с параметром unload
        my_func "unload"
        будет выгружать библиотеку dll из памяти. ( НО повторяю, не факт !)
     */
     if (0==strcmp(argv[1],"unload")) {  UF_terminate(); }
  
     return ( 0 ) ;
  }
  
  extern "C" DllExport void user_my( char *parm, int *returnCode, int rlen )
  {
    int errorCode ;
    UF_MOM_id_t mom ;
    void *interp = NULL ;
  
    if ( !UF_is_initialized() )
    {
      errorCode = UF_initialize();
      if ( errorCode ) return ;
     }
  
     /* Get the TCL interpreter id from the ufusr param */
     UF_MOM_ask_interp_from_param ( parm, &interp ) ;
     /* Get the MOM id from the ufusr param */
     UF_MOM_ask_mom (parm, &mom) ;
     /*Создаем функции в интепретаторе*/
     UF_MOM_extend_xlator ( mom , "my_func", my_func ) ;
  
     errorCode = UF_terminate();
  }
  
  extern "C" int ufusr_ask_unload( void )
  {
    /*when UG terminates... */
    return ( UF_UNLOAD_UG_TERMINATE );
  }
  
  

Вообще, разобрать какую версию

 %BASE%\ugii\p4libs
данная папка существует только в 32-х битной версии UG, если данной папки нет, то вы используете 64-х битную версию UG
Я решил, проводить выяснение этого вопроса, на основе размера файла. :):)

rem Check PLATFORM ____________________ NX 4.0.1.2
rem This update can contain either 32 bit or 64 bit software. Must make sure 
rem the user is installing this update on the same type of software that is
rem already installed in %UGII_BASE_DIR%. If not - we must exit.
rem Note: Checking %PROCESSOR_ARCHITECTURE is unreliable so must ck for p4libs.
rem Look for %BASE%\ugii\p4libs folder - it only exists on 32 bit.
rem
rem if p4libs exists base dir must have 32 bit software else its 64 bit.
if exist "%BASE%"\ugii\p4libs (
set INSTALLED_PLATFORM=x86
) else (
set INSTALLED_PLATFORM=AMD64
)
if not "%REQUIRED_PLATFORM%" == "%INSTALLED_PLATFORM%" goto wrong_platform_exit
rem End Platform checks.

более новых версиях Юга появились наконец переменные, позволяющие различать 32-х и 64-х разрядные версии:

# The following platform variables should not be changed. They are defined
# here so that TBR, MEN, etc. files that users want to share between Windows 32
# and Windows 64 can have a way to specify the exact DLL to be run, as the
# DLL's will be different on the two platforms.
#
#if x64wnt
UGII_PLATFORM=x64wnt
#endif
#if ix86wnt
UGII_PLATFORM=ix8xwnt
#endif
#

значения которых можно узнать MOM командой  [ MOM_ask_env_var    UGII_PLATFORM ]