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

明经CAD社区

 找回密码
 注册

QQ登录

只需一步，快速开始

搜索
明经CAD社区»社区 › 开发篇 › AutoCAD.net/VB.net/C# 编程技术 › 为.net程序集实现Com接口
12下一页
返回列表 发新帖
查看: 6594|回复: 11

[运行时] 为.net程序集实现Com接口

  [复制链接]
雪山飞狐_lzh
发表于 2009-12-12 20:55:00 | 显示全部楼层 |阅读模式
本帖最后由 作者 于 2009-12-12 22:33:10 编辑

下面是一个简单的示例，
详细见
http://bbs.mjtd.com/forum.php?mod=viewthread&tid=75796
7楼
一、
新建一个类库项目：TlsCad.Curve
在AssemblyInfo.cs文件中修改：
[assembly: ComVisible(true)]
二、
添加引用：acdbmgd.dll,acmgd.dll
在Class1.cs中加入下列代码
  2. using Autodesk.AutoCAD.ApplicationServices;
  3. using Autodesk.AutoCAD.EditorInput;
  4. using AcDb = Autodesk.AutoCAD.DatabaseServices;
  5. using Autodesk.AutoCAD.Runtime;
  6. using Autodesk.AutoCAD.Geometry;
  7. using System.Runtime.InteropServices;
  8. using System;
  9. using System.Collections.Generic;
  10. namespace TlsCad
  11. {
  12.     [ProgId("TlsCad.Curve")]
  13.     public class Curve
  14.     {
  15.         AcDb.ObjectId _id;
  16.         public void Set(object acadObj)
  17.         {
  18.             _id = AcDb.Entity.FromAcadObject(acadObj);
  19.         }
  20.         private AcDb.Curve acCurve
  21.         {
  22.             get
  23.             {
  24.                 AcDb.Database db = _id.Database;
  25.                 using (AcDb.Transaction tr = db.TransactionManager.StartTransaction())
  26.                 {
  27.                     return tr.GetObject(_id, AcDb.OpenMode.ForRead) as AcDb.Curve;
  28.                 }
  29.             }
  30.         }
  31.         public double StartParam
  32.         {
  33.             get
  34.             {
  35.                 return acCurve.StartParam;
  36.             }
  37.         }
  38.         public double EndParam
  39.         {
  40.             get
  41.             {
  42.                 return acCurve.EndParam;
  43.             }
  44.         }
  45.         public object GetClosestPointTo(object pnt, bool extend)
  46.         {
  47.             return acCurve.GetClosestPointTo(new Point3d((double[])pnt), extend).ToArray();
  48.         }
  49.         public double GetDistAtParam(double param)
  50.         {
  51.             return acCurve.GetDistanceAtParameter(param);
  52.         }
  53.         public double GetParamAtDist(double dist)
  54.         {
  55.             return acCurve.GetParameterAtDistance(dist);
  56.         }
  57.         public double GetParamAtPoint(object pnt)
  58.         {
  59.             return acCurve.GetParameterAtPoint(new Point3d((double[])pnt));
  60.         }
  61.         public double GetDistAtPoint(object pnt)
  62.         {
  63.             return acCurve.GetDistAtPoint(new Point3d((double[])pnt));
  64.         }
  65.         public object GetParamsByPoints(object pnts)
  66.         {
  67.             AcDb.Curve c = acCurve;
  68.             List<double> pars = new List<double>();
  69.             foreach (object pnt in (object[])pnts)
  70.             {
  71.                 pars.Add(c.GetParameterAtPoint(new Point3d((double[])pnt)));
  72.             }
  73.             return pars.ToArray();
  74.         }
  75.         public object SplitByParams(object pars)
  76.         {
  77.             AcDb.Database db = _id.Database;
  78.             List<object> objs = new List<object>();
  79.             using (Application.DocumentManager.MdiActiveDocument.LockDocument())
  80.             {
  81.                 using (AcDb.Transaction tr = db.TransactionManager.StartTransaction())
  82.                 {
  83.                     AcDb.Curve c = tr.GetObject(_id, AcDb.OpenMode.ForRead) as AcDb.Curve;
  84.                     AcDb.BlockTableRecord btr = tr.GetObject(c.OwnerId, AcDb.OpenMode.ForWrite) as AcDb.BlockTableRecord;
  85.                     double[] parrs = (double[])pars;
  86.                     Array.Sort(parrs);
  87.                     foreach (AcDb.Curve cc in c.GetSplitCurves(new DoubleCollection(parrs)))
  88.                     {
  89.                         btr.AppendEntity(cc);
  90.                         tr.AddNewlyCreatedDBObject(cc, true);
  91.                         objs.Add(cc.AcadObject);
  92.                     }
  93.                     tr.Commit();
  94.                 }
  95.             }
  96.             return objs.ToArray();
  97.         }
  98.     }
  99. }
生成解决方案，将TlsCad.Curve.dll复制到AutoCad目录下
三、

切换到AutoCad目录下，在命令行键入
regasm TlsCad.Curve.dll /regfile /codebase
运行生成的reg文件，为.Net类库注册Com
四、
在Cad中绘制一条曲线，然后打开VB编辑器，加入下列代码调用
  2. Sub tt()
  3.     Dim tCuve As Object
  4.     Dim obj As Object, pnts(0)
  5.     Set tCuve = Application.GetInterfaceObject("TlsCad.Curve")
  6.     ThisDrawing.Utility.GetEntity obj, pnts(0)
  7.     tCuve.Set obj
  8.     pnts(0) = tCuve.GetClosestPointTo(pnts(0), False)
  9.     tCuve.SplitByParams tCuve.GetParamsByPoints(pnts)
  10. End Sub

本帖子中包含更多资源

您需要 登录 才可以下载或查看，没有账号？注册

x
回复

使用道具 举报

gsteven
发表于 2009-12-12 22:02:00 | 显示全部楼层

老大，我照你的方法做了一遍，但是注册的时候的消息不知道是不是注册成功了，在添加com引用的时候找不到TlsCad.Curve。

在执行VBA代码的时候，Set tCuve = Application.GetInterfaceObject("TlsCad.Curve") 这一句出错：运行时错误

'-2147221005（800401f3）' 加载应用程序时出现问题。

回复 支持 反对

使用道具 举报

雪山飞狐_lzh
 楼主| 发表于 2009-12-12 22:28:00 | 显示全部楼层

添加com引用的时候确实找不到TlsCad.Curve

你运行生成的reg文件么？

把下面的rar解压到d:/tlscad/bin目录下试试

上面的VBA代码改动了一下

本帖子中包含更多资源

您需要 登录 才可以下载或查看，没有账号？注册

x
回复 支持 反对

使用道具 举报

gsteven
发表于 2009-12-13 15:20:00 | 显示全部楼层
老大，我按照你说的帖子的7楼的方法实现了com和ObjectAPI的调用，那8楼的方法和7楼却完全不一样，是不是7楼的方法有时候会碰到问题？
回复 支持 反对

使用道具 举报

飞诗(fsxm)
发表于 2009-12-13 19:31:00 | 显示全部楼层
本人轻易不灌水，灌水只为顶狐哥！~
回复 支持 反对

使用道具 举报

雪山飞狐_lzh
 楼主| 发表于 2009-12-13 21:31:00 | 显示全部楼层

奇怪的问题是：上面的方法在VB或C#却不能使用，只能VBA？

有时间按8楼的代码试下

回复 支持 反对

使用道具 举报

雪山飞狐_lzh
 楼主| 发表于 2009-12-13 23:39:00 | 显示全部楼层
本帖最后由 作者 于 2009-12-14 0:06:50 编辑

代码更改了一下，这样可以了
结论是：
1、不要在NetApi中使用DBObject.FromAcadObject函数
2、注意当前文档加锁的方法
3、C#做Com反射真的好累！
C#代码：
  2. using Autodesk.AutoCAD.ApplicationServices;
  3. using Autodesk.AutoCAD.EditorInput;
  4. using AcDb = Autodesk.AutoCAD.DatabaseServices;
  5. using Autodesk.AutoCAD.Runtime;
  6. using Autodesk.AutoCAD.Geometry;
  7. using System.Runtime.InteropServices;
  8. using System;
  9. using System.Collections.Generic;
  10. namespace TlsCad.Common
  11. {
  12.     [ProgId("TlsCad.Common.Curve")]
  13.     public class Curve
  14.     {
  15.         AcDb.ObjectId _id;
  16.         public void Set(int id)
  17.         {
  18.             _id = new Autodesk.AutoCAD.DatabaseServices.ObjectId(new IntPtr(id));
  19.         }
  20.         private AcDb.Curve acCurve
  21.         {
  22.             get
  23.             {
  24.                 AcDb.Database db = _id.Database;
  25.                 using (AcDb.Transaction tr = db.TransactionManager.StartTransaction())
  26.                 {
  27.                     return tr.GetObject(_id, AcDb.OpenMode.ForRead) as AcDb.Curve;
  28.                 }
  29.             }
  30.         }
  31.         public double StartParam
  32.         {
  33.             get
  34.             {
  35.                 return acCurve.StartParam;
  36.             }
  37.         }
  38.         public double EndParam
  39.         {
  40.             get
  41.             {
  42.                 return acCurve.EndParam;
  43.             }
  44.         }
  45.         public object GetClosestPointTo(object pnt, bool extend)
  46.         {
  47.             return acCurve.GetClosestPointTo(new Point3d((double[])pnt), extend).ToArray();
  48.         }
  49.         public double GetDistAtParam(double param)
  50.         {
  51.             return acCurve.GetDistanceAtParameter(param);
  52.         }
  53.         public double GetParamAtDist(double dist)
  54.         {
  55.             return acCurve.GetParameterAtDistance(dist);
  56.         }
  57.         public double GetParamAtPoint(object pnt)
  58.         {
  59.             return acCurve.GetParameterAtPoint(new Point3d((double[])pnt));
  60.         }
  61.         public double GetDistAtPoint(object pnt)
  62.         {
  63.             return acCurve.GetDistAtPoint(new Point3d((double[])pnt));
  64.         }
  65.         private object GetParamsByPoints(object pnts)
  66.         {
  67.             List<double> pars = new List<double>();
  68.             AcDb.Database db = _id.Database;
  69.             using (AcDb.Transaction tr = db.TransactionManager.StartTransaction())
  70.             {
  71.                 AcDb.Curve c = tr.GetObject(_id, AcDb.OpenMode.ForRead) as AcDb.Curve;
  72.                 foreach (object pnt in (object[])pnts)
  73.                 {
  74.                     pars.Add(c.GetParameterAtPoint(new Point3d((double[])pnt)));
  75.                 }
  76.             }
  77.             return pars.ToArray();
  78.         }
  79.         public void SplitByPoints(object pnts)
  80.         {
  81.             SplitByParams(GetParamsByPoints(pnts));
  82.         }
  83.         public object SplitByParams(object pars)
  84.         {
  85.             AcDb.Database db = _id.Database;
  86.             List<object> objs = new List<object>();
  87.             Document doc = Application.DocumentManager.GetDocument(AcDb.HostApplicationServices.WorkingDatabase);
  88.             using (doc.LockDocument())
  89.             {
  90.                 using (AcDb.Transaction tr = db.TransactionManager.StartTransaction())
  91.                 {
  92.                     AcDb.Curve c = tr.GetObject(_id, AcDb.OpenMode.ForRead) as AcDb.Curve;
  93.                     AcDb.BlockTableRecord btr = tr.GetObject(c.OwnerId, AcDb.OpenMode.ForWrite) as AcDb.BlockTableRecord;
  94.                     double[] parrs = (double[])pars;
  95.                     Array.Sort(parrs);
  96.                     foreach (AcDb.Curve cc in c.GetSplitCurves(new DoubleCollection(parrs)))
  97.                     {
  98.                         btr.AppendEntity(cc);
  99.                         tr.AddNewlyCreatedDBObject(cc, true);
  100.                         objs.Add(cc.AcadObject);
  101.                     }
  102.                     tr.Commit();
  103.                 }
  104.             }
  105.             return objs.ToArray();
  106.         }
  107.     }
  108. }
VBA调用的代码
  2. Sub tt()
  3.     Dim tc As Object
  4.     Set tc = Application.GetInterfaceObject("TlsCad.Common.Curve")
  5.    
  6.     Dim obj As Object, pnts(1)
  7.     ThisDrawing.Utility.GetEntity obj, pnts(0)
  8.     tc.Set obj.ObjectID
  9.    
  10.     pnts(0) = tc.GetClosestPointTo(pnts(0), False)
  11.     pnts(1) = ThisDrawing.Utility.GetPoint()
  12.     pnts(1) = tc.GetClosestPointTo(pnts(1), False)
  13.    
  14.     tc.SplitByPoints (pnts)
  15.    
  16. End Sub
VB调用的代码
  2. Private Sub Command1_Click()
  3. Dim app As Object
  4. Set app = GetObject(, "AutoCad.Application")
  5. Dim tc  As Object
  6. Set tc = app.GetInterfaceObject("TlsCad.Common.Curve")
  7.     Dim obj As Object, pnts(1)
  8.     app.ActiveDocument.Utility.GetEntity obj, pnts(0)
  9.     tc.Set obj.ObjectID
  10.    
  11.     pnts(0) = tc.GetClosestPointTo(pnts(0), False)
  12.     pnts(1) = app.ActiveDocument.Utility.GetPoint()
  13.     pnts(1) = tc.GetClosestPointTo(pnts(1), False)
  14.    
  15.     tc.SplitByPoints (pnts)
  16. End Sub
C#调用的代码
  2. using System;
  3. using System.Collections.Generic;
  4. using System.ComponentModel;
  5. using System.Data;
  6. using System.Drawing;
  7. using System.Linq;
  8. using System.Text;
  9. using System.Windows.Forms;
  10. using Autodesk.AutoCAD.Interop;
  11. using Autodesk.AutoCAD.Interop.Common;
  12. using System.Runtime.InteropServices;
  13. using System.Reflection;
  14. namespace ComTest
  15. {
  16.     public partial class Form1 : Form
  17.     {
  18.         public Form1()
  19.         {
  20.             InitializeComponent();
  21.         }
  22.         private void button1_Click(object sender, EventArgs e)
  23.         {
  24.             AcadApplication acApp = GetAcApp();
  25.             object tc = acApp.GetInterfaceObject("TlsCad.Common.Curve");
  26.             object acCurve;
  27.             object[] pnts = new object[2];
  28.             AcadDocument acDoc = acApp.ActiveDocument;
  29.             acDoc.Utility.GetEntity(out acCurve, out pnts[0], "");
  30.             InvokeMethod(tc, "Set", ((AcadEntity)acCurve).ObjectID);
  31.             pnts[0] = InvokeMethod(tc, "GetClosestPointTo", pnts[0], false);
  32.             pnts[1] = acDoc.Utility.GetPoint(pnts[0], "");
  33.             pnts[1] = InvokeMethod(tc, "GetClosestPointTo", pnts[1], false);
  34.             InvokeMethod(tc, "SplitByPoints", new object[1]{pnts});
  35.         }
  36.         public object InvokeMethod(object obj, string methodName, params object[] args)
  37.         {
  38.             Type t = obj.GetType();
  39.             object res =
  40.                 t.InvokeMember(
  41.                     methodName,
  42.                     BindingFlags.Public | BindingFlags.InvokeMethod,
  43.                     null,
  44.                     obj,
  45.                     args);
  46.             return res;
  47.         }
  49.         public AcadApplication GetAcApp()
  50.         {
  51.             const string progID = "AutoCAD.Application.18";
  52.             AcadApplication acApp = null;
  53.             try
  54.             {
  55.                 acApp =
  56.                   (AcadApplication)Marshal.GetActiveObject(progID);
  57.             }
  58.             catch
  59.             {
  60.                 try
  61.                 {
  62.                     Type acType =
  63.                       Type.GetTypeFromProgID(progID);
  64.                     acApp =
  65.                       (AcadApplication)Activator.CreateInstance(
  66.                         acType,
  67.                         true
  68.                       );
  69.                 }
  70.                 catch
  71.                 {
  72.                     MessageBox.Show(
  73.                       "Cannot create object of type "" +
  74.                       progID + """
  75.                     );
  76.                 }
  77.             }
  78.             return acApp;
  79.         }
  80.     }
  81. }
回复 支持 反对

使用道具 举报

gsteven
发表于 2009-12-15 21:56:00 | 显示全部楼层

老大，问个简单的问题哈：

api.net编好dll之后，应该把这个dll放到cad安装目录下注册吧？

注册成功之后这个到cad安装目录下的dll能删除吗？

然后新建的应用程序在引用这个dll的时候是否复制本地呢？

回复 支持 反对

使用道具 举报

雪山飞狐_lzh
 楼主| 发表于 2009-12-16 07:45:00 | 显示全部楼层

regasm TlsCad.Curve.dll /regfile /codebase

生成reg文件

如果不在安装目录注册，要更改reg文件中的目录信息

然后再运行注册

不需要引用dll的

回复 支持 反对

使用道具 举报

gsteven
发表于 2009-12-17 19:53:00 | 显示全部楼层

但是kean的帖子里面的7楼和8楼都引用了dll，都有这一句using LoadableComponent;

不知道引用和不引用到底有什么区别，很困惑啊

另外他8楼的方法很难看懂，主要是他写了[Guid("5B5B731C-B37A-4aa2-8E50-42192BD51B17")]

不知道这是干什么用的

回复 支持 反对

使用道具 举报

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

本版积分规则

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

GMT+8, 2024-11-25 20:17 , Processed in 0.193998 second(s), 25 queries , Gzip On.

Powered by Discuz! X3.4

Copyright © 2001-2021, Tencent Cloud.

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