Снегопат

SelfScript.self['macrosАнализ объектов формы'] = function() {
    view = windows.getActiveView();
    if (!view) return false;
    dlgInfo = view.getInternalForm() ;
    form = view.getInternalForm() ; //dlgInfo.form
   
      Message(dlgInfo.Caption);
      // Пример перебора контролов на форме
      //Message("HWND = 0x" + dlgInfo.form.hwnd.toString(16));
      for(var c = 0; c < form.controlsCount; c++)
      {
         var ctr = form.getControl(c)
         Message(ctr.name + ",   " + ctr.id + ",   " + ctr.value)
      }
    return true;
}

SelfScript.self['macrosПоместить объект в хранилище'] = function() {

    try{ //иногда вылетают странные исключения :( при работе с элементами форм
        view = windows.getActiveView();
        if (!view || !view.mdObj || view.mdObj.container != metadata.current) return false;
       
       
        res1 = view.mdObj.activateInTree();
       
        isEventConnected = true

        res = stdcommands.CfgStore.StoreIntoCfgStore.send() // true если успешно

    }catch(e)
    {
        Message("Ошибка : " + e.description)
    }

    return true;
}