如何将所有内容从 arx 应用程序加载到 AutoCAD 中。

admin1

[code]如何将所有内容从 arx 应用程序加载到 AutoCAD 中。网络程序集
//-----------------------------------------------------------------------------
//----- acrxEntryPoint.cpp
//-----------------------------------------------------------------------------
#include "StdAfx.h"
#include "resource.h"
#include "Psapi.h"

using namespace System;
using namespace System::Reflection;
using namespace Autodesk::AutoCAD::ApplicationServices;
using namespace Autodesk::AutoCAD::DatabaseServices;
using namespace Autodesk::AutoCAD::EditorInput;

//-----------------------------------------------------------------------------
//----- ObjectARX EntryPoint
class CGetLoadedApp : public AcRxArxApp {

public:
  CGetLoadedApp() : AcRxArxApp() {}

  virtual AcRx::AppRetCode On_kInitAppMsg(void *pkt) {
    AcRx::AppRetCode retCode = AcRxArxApp::On_kInitAppMsg(pkt);
    return (retCode);
  }

  virtual AcRx::AppRetCode On_kUnloadAppMsg(void *pkt) {
    AcRx::AppRetCode retCode = AcRxArxApp::On_kUnloadAppMsg(pkt);
    return (retCode);
  }

  virtual void RegisterServerComponents() {  }

  static void RivilisGetLoadedMGD() {
    Document^ doc = Application::DocumentManager->MdiActiveDocument;

    if (doc == nullptr) return;
    Editor^ ed = doc->Editor;
    for each (Assembly^ ass in AppDomain::CurrentDomain->GetAssemblies())
    {
      ed->WriteMessage("\nName = {0}", ass->GetName(false)->Name);
      ed->WriteMessage("\n\tFull Name = {0}", ass->FullName);
      try  {
        ed->WriteMessage("\n\tLocation = {0}", ass->Location);
      }
      catch (...) {
        ed->WriteMessage("\n\tNo Location. Possible dynamic assembly");
      };
    }
  }
};

//-----------------------------------------------------------------------------
IMPLEMENT_ARX_ENTRYPOINT(CGetLoadedApp)

ACED_ARXCOMMAND_ENTRY_AUTO(CGetLoadedApp, Rivilis, GetLoadedMGD, GetLoadedMGD, ACRX_CMD_MODAL, NULL)

‎[/code]

[code]//-----------------------------------------------------------------------------
//----- acrxEntryPoint.cpp
//-----------------------------------------------------------------------------
#include "StdAfx.h"
#include "resource.h"

#include <atlsafe.h>
#import <mscorlib.tlb> rename("ReportEvent","ReportEventManaged")
#include <metahost.h>
#pragma comment(lib,"mscoree.lib")
#include <mscoree.h>
#include <comdef.h>

using namespace mscorlib;

//-----------------------------------------------------------------------------
//----- ObjectARX EntryPoint
class CGetMgdFromNativeApp : public AcRxArxApp {

public:
  CGetMgdFromNativeApp() : AcRxArxApp() {}

  virtual AcRx::AppRetCode On_kInitAppMsg(void *pkt) {
    AcRx::AppRetCode retCode = AcRxArxApp::On_kInitAppMsg(pkt);
    return (retCode);
  }

  virtual AcRx::AppRetCode On_kUnloadAppMsg(void *pkt) {
    AcRx::AppRetCode retCode = AcRxArxApp::On_kUnloadAppMsg(pkt);
    return (retCode);
  }

  virtual void RegisterServerComponents() {
    //----- Self-register COM server upon loading.
    if (FAILED(::DllRegisterServer()))
      acutPrintf(_RXST("Failed to register COM server.\n"));
  }

  static void RivilisGetManagedDlls() {
    CComPtr<ICLRMetaHost> spClrMetaHost;
    // Получаем MetaHost
    HRESULT hr = CLRCreateInstance(
      CLSID_CLRMetaHost,
      IID_PPV_ARGS(&spClrMetaHost)
    );
    _ASSERT(hr == S_OK);

    // Получаем runtime-версию (соответствует .NET 4)
    CComPtr<ICLRRuntimeInfo> spCLRRuntimeInfo;
    hr = spClrMetaHost->GetRuntime(L"v4.0.30319",
      IID_PPV_ARGS(&spCLRRuntimeInfo)
    );
    _ASSERT(hr == S_OK);

    // Получаем CorRuntimeHost
    CComPtr<ICorRuntimeHost> spCorRuntimeHost;
    hr = spCLRRuntimeInfo->GetInterface(
      CLSID_CorRuntimeHost,
      IID_PPV_ARGS(&spCorRuntimeHost)
    );
    _ASSERT(hr == S_OK);

    // Стартуем CLR
    hr = spCorRuntimeHost->Start();
    _ASSERT(hr == S_OK);

    // Получаем домен приложения по-умолчанию
    CComPtr<IUnknown> spAppDomainThunk;
    hr = spCorRuntimeHost->GetDefaultDomain(&spAppDomainThunk);
    _ASSERT(hr == S_OK);

    // Конвертируем AppDomain IUnknown в _AppDomain
    CComPtr<_AppDomain> spAppDomain;
    hr = spAppDomainThunk->QueryInterface(IID_PPV_ARGS(&spAppDomain));
    _ASSERT(hr == S_OK);
    // Получаем массив сборок домена
    SAFEARRAY *pAssemblyArray = spAppDomain->GetAssemblies();

    CComSafeArray<IUnknown*> csaAssemblies;
    csaAssemblies.Attach(pAssemblyArray);
    long cAssemblies = csaAssemblies.GetCount();
    for (long i = 0; i < cAssemblies; i++)
    {
      CComPtr<_Assembly> spAssembly;
      spAssembly = csaAssemblies[i];
      if (spAssembly == NULL)
        continue;
      CComBSTR asmFullName;
      hr = spAssembly->get_FullName(&asmFullName);
      if (FAILED(hr))
        continue;
      AcString asmName = asmFullName;
      int iComma = asmName.find(L',');
      if (iComma > 0) asmName = asmName.left(iComma);
      acutPrintf(L"\n\nName:%s", asmName.constPtr());
      acutPrintf(L"\n\tFull Name:%s", asmFullName);
      CComBSTR asmLocatation;
      hr = spAssembly->get_Location(&asmLocatation);
      if (!FAILED(hr))
        acutPrintf(L"\n\tLocation: %s", asmLocatation);
      else
        acutPrintf(L"\n\tLocation not found");
    }
    // Останавливаем CLR
    hr = spCorRuntimeHost->Stop();
    _ASSERT(hr == S_OK);

  }

};

//-----------------------------------------------------------------------------
IMPLEMENT_ARX_ENTRYPOINT(CGetMgdFromNativeApp)

ACED_ARXCOMMAND_ENTRY_AUTO(CGetMgdFromNativeApp, Rivilis, GetManagedDlls, GetManagedDlls, ACRX_CMD_MODAL, NULL)[/code]

‎Arx 应用程序可以是本机应用程序，也可以是混合的。无论哪种方式，都要得到一切。NET 程序集必须使用 AppDomain：： GetAssemblies 方法。对于混合代码，它非常简单：‎