设为首页收藏本站CAD论坛CAD教程CAD下载明经币充值
切换到宽版

明经CAD社区

 找回密码
 注册

QQ登录

只需一步，快速开始

搜索
明经CAD社区»社区 › 开发篇 › AutoCAD.net/VB.net/C# 编程技术 › netload时注册dll并加载局部cui
12下一页
返回列表 发新帖
查看: 4196|回复: 11

[界面] netload时注册dll并加载局部cui

[复制链接]
雪山飞狐_lzh
发表于 2015-4-2 16:47 | 显示全部楼层 |阅读模式
本帖最后由 雪山飞狐_lzh 于 2015-4-3 12:49 编辑

自2006版本以后，cad的用户界面变成了cui/cuix，使用局部cui可以简单的加载界面要素，比如菜单、工具栏
但cui的加载一直没有提供NetApi的版本，而Com库提供的该功能，问题是Com库通常要加载组件，使跨版本成为问题
那么有办法简单解决这个问题吗，显然反射可以，下面的代码就是基于这个想法的实现
AxObject类， Com对象代理类，封装了属性设置/读取和函数调用

  1. using System;using System.Collections.Generic;
  2. using System.Linq;
  3. using System.Text;
  4. using System.Reflection;
  5. using Autodesk.AutoCAD.ApplicationServices;
  6. using Autodesk.AutoCAD.DatabaseServices;

  8. namespace TlsCad.Runtime
  9. {
  10.     public class AxObject
  11.     {

  13.         public static AxObject AcadApplication
  14.         {
  15.             get { return new AxObject(Application.AcadApplication); }
  16.         }

  18.         public static AxObject Preferences
  19.         {
  20.             get { return new AxObject(Application.Preferences); }
  21.         }

  23.         public object Object
  24.         { protected set; get; }

  26.         protected Type _type;

  28.         protected AxObject()
  29.         { }

  31.         public AxObject(DBObject obj)
  32.             : this(obj.AcadObject)
  33.         { }

  35.         public AxObject(object value)
  36.         {
  37.             Object = value;
  38.             _type = Type.GetTypeFromHandle(Type.GetTypeHandle(Object));
  39.         }

  41.         public AxObjectList AsList()
  42.         {
  43.             return new AxObjectList(Object, _type);
  44.         }

  46.         public AxObject GetProperty(string propertyName)
  47.         {
  48.             try
  49.             {
  50.                 object obj =
  51.                     _type.InvokeMember(
  52.                     propertyName,
  53.                     BindingFlags.GetProperty,
  54.                     null,
  55.                     Object,
  56.                     new object[0]);
  57.                 if (obj != null)
  58.                     return new AxObject(obj);
  59.             }
  60.             catch
  61.             { }

  63.             return null;

  65.         }

  67.         public void SetProperty(string propertyName, object value)
  68.         {
  69.             try
  70.             {
  71.                 _type.InvokeMember(
  72.                     propertyName,
  73.                     BindingFlags.SetProperty,
  74.                     null,
  75.                     Object,
  76.                     new object[] { value });
  77.             }
  78.             catch
  79.             { }
  80.         }

  82.         public AxObject Invoke(string methodName, params object[] args)
  83.         {
  84.             try
  85.             {
  86.                 object obj = _type.InvokeMember(methodName, BindingFlags.InvokeMethod, null, Object, args);
  87.                 if (obj != null)
  88.                     return new AxObject(obj);
  89.             }
  90.             catch
  91.             { }

  93.             return null;

  95.         }

  97.         public override string ToString()
  98.         {
  99.             return Object.ToString();
  100.         }

  102.     }
  103. }


AxObjectList类
  1. using System;
  2. using System.Collections.Generic;
  3. using System.Linq;
  4. using System.Text;
  5. using System.Collections;

  7. namespace TlsCad.Runtime
  8. {
  9.     public class AxObjectList : AxObject,IEnumerable<AxObject>
  10.     {


  13.         internal AxObjectList(object value, Type type)
  14.         {
  15.             Object = value;
  16.             _type = type;
  17.         }

  19.         public AxObject this[int index]
  20.         {
  21.             get { return this.Invoke("Item", index); }
  22.         }

  24.         public AxObject this[string name]
  25.         {
  26.             get { return this.Invoke("Item", name); }
  27.         }

  29.         public int Count
  30.         {
  31.             get { return (int)this.GetProperty("Count").Object; }
  32.         }

  34.         public void ForEach(Action<AxObject> action)
  35.         {
  36.             for (int i = 0; i < Count; i++)
  37.                 action(this.Invoke("Item", i));
  38.         }

  40.         public IEnumerator<AxObject> GetEnumerator()
  41.         {
  42.             for (int i = 0; i < Count; i++)
  43.                 yield return this.Invoke("Item", i);
  44.         }

  46.         IEnumerator IEnumerable.GetEnumerator()
  47.         {
  48.             for (int i = 0; i < Count; i++)
  49.                 yield return this.Invoke("Item", i);
  50.         }

  52.     }
  53. }


AutoRegAessem类，自动注册dll的简化类，改写自kean
  1. using System;
  2. using System.IO;
  3. using System.Linq;
  4. using System.Reflection;

  6. using Autodesk.AutoCAD.DatabaseServices;
  7. using Autodesk.AutoCAD.Runtime;
  8. using Microsoft.Win32;


  11. namespace TlsCad.Runtime
  12. {


  15.     public enum AssemLoadType
  16.     {
  17.         Startting = 2,
  18.         ByCommand = 12,
  19.         Disabled = 20
  20.     }

  22.     [Serializable]
  23.     public struct AssemInfo
  24.     {
  25.         /// <summary>
  26.         /// 注册名
  27.         /// </summary>
  28.         public string Name;

  30.         /// <summary>
  31.         /// 程序集全名
  32.         /// </summary>
  33.         public string Fullname;

  35.         /// <summary>
  36.         /// 程序集路径
  37.         /// </summary>
  38.         public string Loader;

  40.         /// <summary>
  41.         /// 加载方式
  42.         /// </summary>
  43.         public AssemLoadType LoadType;

  45.         /// <summary>
  46.         /// 程序集说明
  47.         /// </summary>
  48.         public string Description;

  50.     }

  52.     [Serializable]
  53.     public class Command : IComparable<Command>
  54.     {

  56.         public string GlobalName;
  57.         public string LocalizedName;
  58.         public string GroupName;

  60.         public string TypeName;
  61.         public string MethodName;

  63.         public string Description;

  65.         public Command() { }

  67.         public Command(string globalName)
  68.         {
  69.             GlobalName = globalName;
  70.         }

  72.         #region IComparable<Command> 成员

  74.         int IComparable<Command>.CompareTo(Command other)
  75.         {
  76.             return this.GlobalName.CompareTo(other.GlobalName);
  77.         }

  79.         #endregion

  81.     }

  83.     public abstract class AutoRegAssem : IExtensionApplication
  84.     {

  86.         private AssemInfo _info = new AssemInfo();

  88.         public static Assembly CurrAssembly
  89.         {
  90.             get { return Assembly.GetCallingAssembly(); }
  91.         }

  93.         public static string Location
  94.         {
  95.             get { return CurrAssembly.Location; }
  96.         }

  98.         public static string Path
  99.         {
  100.             get
  101.             {
  102.                 DirectoryInfo di = new DirectoryInfo(Location).Parent;
  103.                 string path = di.FullName;
  104.                 if (path.LastIndexOf('\\') != path.Length - 1)
  105.                     path += '\\';
  106.                 return path;
  107.             }
  108.         }

  110.         public AutoRegAssem()
  111.         {

  113.             Assembly assem = Assembly.GetCallingAssembly();
  114.             _info.Loader = assem.Location;
  115.             _info.Fullname = assem.FullName;
  116.             _info.Name = assem.GetName().Name;
  117.             _info.LoadType = AssemLoadType.Startting;

  119.             if (!SearchForReg())
  120.             {
  121.                 RegApp();
  122.             }

  124.         }


  127.         #region Reg

  129.         private RegistryKey GetAcAppKey()
  130.         {

  132.             RegistryKey ackey =
  133.                 Registry.CurrentUser.OpenSubKey(
  134.                     HostApplicationServices.Current.RegistryProductRootKey, true);

  136.             return ackey.CreateSubKey("Applications");

  138.         }

  140.         private bool SearchForReg()
  141.         {

  143.             RegistryKey appkey = GetAcAppKey();
  144.             var regApps = appkey.GetSubKeyNames();
  145.             return regApps.Contains(_info.Name);

  147.         }

  149.         public void RegApp()
  150.         {

  152.             RegistryKey appkey = GetAcAppKey();
  153.             RegistryKey rk = appkey.CreateSubKey(_info.Name);
  154.             rk.SetValue("DESCRIPTION", _info.Fullname, RegistryValueKind.String);
  155.             rk.SetValue("LOADCTRLS", _info.LoadType, RegistryValueKind.DWord);
  156.             rk.SetValue("LOADER", _info.Loader, RegistryValueKind.String);
  157.             rk.SetValue("MANAGED", 1, RegistryValueKind.DWord);
  158.             appkey.Close();

  160.         }

  162.         #endregion

  164.         

  166.         #region IExtensionApplication 成员

  168.         public abstract void Initialize();

  170.         public abstract void Terminate();

  172.         #endregion

  174.     }
  175. }


调用方式
  1. [assembly: ExtensionApplication(typeof(TlsCad.Parts.MyArx))]
  2. [assembly: CommandClass(typeof(TlsCad.Parts.MyArx))]

  4. namespace TlsCad.Parts
  5. {
  6.     class MyArx : AutoRegAssem
  7.     {

  9.         public override void Initialize()
  10.         {

  12.             var files = AxObject.Preferences.GetProperty("Files");
  13.             var oldPath = files.GetProperty("SupportPath").ToString();
  14.             if (!oldPath.ToLower().Contains(Path.ToLower()))
  15.                 files.SetProperty("SupportPath", oldPath + ";" + Path);

  17.             var acapp = AxObject.AcadApplication;
  18.             var groups = acapp.GetProperty("MenuGroups").AsList();
  19.             var cui = groups["TlsCad"];

  21.             if (cui == null)
  22.             {
  23.                 cui = groups.Invoke("Load", "TlsCad.cui");
  24.                 var menus = cui.GetProperty("Menus").AsList();
  25.                 foreach (var menu in menus)
  26.                 {
  27.                     menus.Invoke(
  28.                         "InsertMenuInMenuBar",
  29.                         menu.GetProperty("Name"),
  30.                         "");
  31.                 }
  32.             }

  34.             SystemManager.Editor.WriteMessage("\nTlsPart Loading!......");

  36.         }

  38.         public override void Terminate()
  39.         {

  41.         }

回复

使用道具 举报

雪山飞狐_lzh
 楼主| 发表于 2015-4-2 18:10 | 显示全部楼层
本帖最后由 雪山飞狐_lzh 于 2015-4-3 07:42 编辑

二、Com集合的处理
让AxObject类继承IEnumerable接口，可以实现集合的遍历
修改如下

  1. using System;
  2. using System.Collections.Generic;
  3. using System.Linq;
  4. using System.Text;
  5. using System.Reflection;
  6. using Autodesk.AutoCAD.ApplicationServices;
  7. using Autodesk.AutoCAD.DatabaseServices;
  8. using System.Collections;

  10. namespace TlsCad.Runtime
  11. {
  12.     public class AxObject: IEnumerable<AxObject>
  13.     {

  15.         public static AxObject AcadApplication
  16.         {
  17.             get { return new AxObject(Application.AcadApplication); }
  18.         }

  20.         public static AxObject Preferences
  21.         {
  22.             get { return new AxObject(Application.Preferences); }
  23.         }

  25.         public object Value
  26.         { private set; get; }

  28.         Type _type;

  30.         public AxObject(DBObject obj) :this(obj.AcadObject)
  31.         {   }

  33.         public AxObject(object value)
  34.         {
  35.             Value = value;
  36.             _type = Type.GetTypeFromHandle(Type.GetTypeHandle(Value));
  37.         }

  39.         public AxObject GetProperty(string propertyName)
  40.         {
  41.             try
  42.             {
  43.                 object obj =
  44.                     _type.InvokeMember(
  45.                         propertyName,
  46.                         BindingFlags.GetProperty,
  47.                         null,
  48.                         Value,
  49.                         new object[0]);
  50.                 if (obj != null)
  51.                     return new AxObject(obj);
  52.             }
  53.             catch
  54.             { }

  56.             return null;

  58.         }

  60.         public void SetProperty(string propertyName, object value)
  61.         {
  62.             try
  63.             {
  64.                 _type.InvokeMember(
  65.                     propertyName,
  66.                     BindingFlags.SetProperty,
  67.                     null,
  68.                     Value,
  69.                     new object[] { value });
  70.             }
  71.             catch
  72.             { }
  73.         }

  75.         public AxObject Invoke(string methodName, params object[] args)
  76.         {
  77.             try
  78.             {
  79.                 object obj =
  80.                     _type.InvokeMember(
  81.                         methodName,
  82.                         BindingFlags.InvokeMethod,
  83.                         null,
  84.                         Value,
  85.                         args);
  86.                 if (obj != null)
  87.                     return new AxObject(obj);
  88.             }
  89.             catch
  90.             { }

  92.             return null;

  94.         }

  96.         public void ForEach(Action<AxObject> action)
  97.         {
  98.             int count = (int)this.GetProperty("Count").Value;
  99.             for (int i = 0; i < count; i++)
  100.                 action(this.Invoke("Item", i));
  101.         }

  103.         public IEnumerator<AxObject> GetEnumerator()
  104.         {
  105.             int count = (int)this.GetProperty("Count").Value;
  106.             for (int i = 0; i < count; i++)
  107.                 yield return this.Invoke("Item", i);
  108.         }

  110.         IEnumerator IEnumerable.GetEnumerator()
  111.         {
  112.             int count = (int)this.GetProperty("Count").Value;
  113.             for (int i = 0; i < count; i++)
  114.                 yield return this.Invoke("Item", i);
  115.         }
  116.     }
  117. }

调用代码如下修改
  1.             if (cui == null)
  2.             {
  3.                 cui = groups.Invoke("Load", "TlsCad.cui");
  4.                 var menus = cui.GetProperty("Menus");
  5.                 foreach (var menu in menus)
  6.                 {
  7.                     menus.Invoke(
  8.                         "InsertMenuInMenuBar",
  9.                         menu.GetProperty("Name").Value,
  10.                         "");
  11.                 }
  12.             }
回复 支持 反对

使用道具 举报

雪山飞狐_lzh
 楼主| 发表于 2015-4-3 12:51 | 显示全部楼层
添加AxObjectList类以支持集合类，一楼代码已更新
回复 支持 反对

使用道具 举报

zzyong00
发表于 2015-4-6 20:06 | 显示全部楼层
帮版主顶帖，好像.net版人气也很凋零
回复 支持 反对

使用道具 举报

cheng5276
发表于 2015-5-9 22:07 | 显示全部楼层
我也顶，老大威武！
回复 支持 反对

使用道具 举报

ydw621
发表于 2015-5-9 22:42 | 显示全部楼层
顶，老大威武！
回复 支持 反对

使用道具 举报

cheng5276
发表于 2015-5-9 23:45 | 显示全部楼层
本帖最后由 cheng5276 于 2015-5-9 23:47 编辑

老大，现碰到个问题，采用您这种方法，CUI是加载了，工具栏显示了，但是菜单不显示
                    var acapp = AxObject.AcadApplication;
                    var groups = acapp.GetProperty("MenuGroups").AsList();
                    var cui = groups["我的工具"];
                    if (cui == null)
                    {
                        cui = groups.Invoke("Load", "MyTool.cuix");
                        var menus = cui.GetProperty("Menus").AsList();
                        foreach (var menu in menus)
                        {
                            menus.Invoke( "InsertMenuInMenuBar",menu.GetProperty("Name"),"");
                        }

                    }

//没办法，只好模拟LISP的语句 (menucmd "p99=+我的工具.POP1") ,再次设置菜单项

                    string loadmenu = "(menucmd \"p99=+我的工具.POP1\") ";
                    Application.DocumentManager.MdiActiveDocument.SendStringToExecute(loadmenu, true, false, false);
虽然目前能够显示菜单了，但这种发送命令行的方式总是不太保险，很可能会出现执行不了的情况（如CAD未完全启动好，调用会失败）

请问老大，能直接用.net方法解决这个问题么;

回复 支持 反对

使用道具 举报

cheng5276
发表于 2015-5-9 23:48 | 显示全部楼层
还有请教老大，用这种COM方法，如何直接加载LISP文件？
回复 支持 反对

使用道具 举报

雪山飞狐_lzh
 楼主| 发表于 2015-5-9 23:57 来自手机 | 显示全部楼层
我的示例菜单应该是可以显示的 08 10 12 我都测试过
回复 支持 反对

使用道具 举报

鱼与熊掌
发表于 2015-5-10 22:49 | 显示全部楼层
其实用Autolisp加载很简单的...
回复 支持 反对

使用道具 举报

12下一页
返回列表 发新帖
高级模式
B Color Image Link Quote Code Smilies
您需要登录后才可以回帖 登录 | 注册

本版积分规则

小黑屋|手机版|CAD论坛|CAD教程|CAD下载|联系我们|关于明经|明经通道 ( 粤ICP备05003914号 )  
©2000-2023 明经通道 版权所有 本站代码，在未取得本站及作者授权的情况下，不得用于商业用途

GMT+8, 2024-4-16 16:35 , Processed in 0.616028 second(s), 25 queries , Gzip On.

Powered by Discuz! X3.4

Copyright © 2001-2021, Tencent Cloud.

快速回复 返回顶部 返回列表