为.net程序集实现Com接口

雪山飞狐_lzh · 发表于 2009-12-12 20:55:00

下面是一个简单的示例，
详细见
7楼
一、
新建一个类库项目：TlsCad.Curve
在AssemblyInfo.cs文件中修改：
[assembly: ComVisible(true)]
二、
添加引用：acdbmgd.dll,acmgd.dll
在Class1.cs中加入下列代码

copy


using Autodesk..ApplicationServices;
using Autodesk.AutoCAD.EditorInput;
using AcDb = Autodesk.AutoCAD.DatabaseServices;
using Autodesk.AutoCAD.Runtime;
using Autodesk.AutoCAD.Geometry;
using System.Runtime.InteropServices;
using System;
using System.Collections.Generic;
namespace TlsCad
{
    [ProgId("TlsCad.Curve")]
    public class Curve
    {
        AcDb.ObjectId _id;
        public void Set(object acadObj)
        {
            _id = AcDb.Entity.FromAcadObject(acadObj);
        }
        private AcDb.Curve acCurve
        {
            get
            {
                AcDb.Database db = _id.Database;
                using (AcDb.Transaction tr = db.TransactionManager.StartTransaction())
                {
                    return tr.GetObject(_id, AcDb.OpenMode.ForRead) as AcDb.Curve;
                }
            }
        }
        public double StartParam
        {
            get
            {
                return acCurve.StartParam;
            }
        }
        public double EndParam
        {
            get
            {
                return acCurve.EndParam;
            }
        }
        public object GetClosestPointTo(object pnt, bool extend)
        {
            return acCurve.GetClosestPointTo(new Point3d((double[])pnt), extend).ToArray();
        }
        public double GetDistAtParam(double param)
        {
            return acCurve.GetDistanceAtParameter(param);
        }
        public double GetParamAtDist(double dist)
        {
            return acCurve.GetParameterAtDistance(dist);
        }
        public double GetParamAtPoint(object pnt)
        {
            return acCurve.GetParameterAtPoint(new Point3d((double[])pnt));
        }
        public double GetDistAtPoint(object pnt)
        {
            return acCurve.GetDistAtPoint(new Point3d((double[])pnt));
        }
        public object GetParamsByPoints(object pnts)
        {
            AcDb.Curve c = acCurve;
            List pars = new List();
            foreach (object pnt in (object[])pnts)
            {
                pars.Add(c.GetParameterAtPoint(new Point3d((double[])pnt)));
            }
            return pars.ToArray();
        }
        public object SplitByParams(object pars)
        {
            AcDb.Database db = _id.Database;
            List objs = new List();
            using (Application.DocumentManager.MdiActiveDocument.LockDocument())
            {
                using (AcDb.Transaction tr = db.TransactionManager.StartTransaction())
                {
                    AcDb.Curve c = tr.GetObject(_id, AcDb.OpenMode.ForRead) as AcDb.Curve;
                    AcDb.BlockTableRecord btr = tr.GetObject(c.OwnerId, AcDb.OpenMode.ForWrite) as AcDb.BlockTableRecord;
                    double[] parrs = (double[])pars;
                    Array.Sort(parrs);
                    foreach (AcDb.Curve cc in c.GetSplitCurves(new DoubleCollection(parrs)))
                    {
                        btr.AppendEntity(cc);
                        tr.AddNewlyCreatedDBObject(cc, true);
                        objs.Add(cc.AcadObject);
                    }
                    tr.Commit();
                }
            }
            return objs.ToArray();
        }
    }
}

生成解决方案，将TlsCad.Curve.dll复制到AutoCad目录下
三、

diz5i4j2jhu.JPG

切换到AutoCad目录下，在命令行键入
regasm TlsCad.Curve.dll /regfile /codebase
运行生成的reg文件，为.Net类库注册Com
四、
在Cad中绘制一条曲线，然后打开VB编辑器，加入下列代码调用

copy


Sub tt()
    Dim tCuve As Object
    Dim obj As Object, pnts(0)
    Set tCuve = Application.GetInterfaceObject("TlsCad.Curve")
    ThisDrawing.Utility.GetEntity obj, pnts(0)
    tCuve.Set obj
    pnts(0) = tCuve.GetClosestPointTo(pnts(0), False)
    tCuve.SplitByParams tCuve.GetParamsByPoints(pnts)
End Sub

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代码改动了一下

请点击此处下载

请先注册会员后在进行下载

已注册会员，请先登录后下载

文件名称:aigfgsbmpln.rar
下载次数:0 文件大小:3.32 KB 售价:2银币 [记录]
下载权限: 不限以上或 Vip会员 [开通Vip] [签到领银币] [免费赚银币]

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

代码更改了一下，这样可以了
结论是：
1、不要在NetApi中使用DBObject.FromAcadObject函数
2、注意当前文档加锁的方法
3、C#做Com反射真的好累！
C#代码：

copy


using Autodesk.AutoCAD.ApplicationServices;
using Autodesk.AutoCAD.EditorInput;
using AcDb = Autodesk.AutoCAD.DatabaseServices;
using Autodesk.AutoCAD.Runtime;
using Autodesk.AutoCAD.Geometry;
using System.Runtime.InteropServices;
using System;
using System.Collections.Generic;
namespace TlsCad.Common
{
    [ProgId("TlsCad.Common.Curve")]
    public class Curve
    {
        AcDb.ObjectId _id;
        public void Set(int id)
        {
            _id = new Autodesk.AutoCAD.DatabaseServices.ObjectId(new IntPtr(id));
        }
        private AcDb.Curve acCurve
        {
            get
            {
                AcDb.Database db = _id.Database;
                using (AcDb.Transaction tr = db.TransactionManager.StartTransaction())
                {
                    return tr.GetObject(_id, AcDb.OpenMode.ForRead) as AcDb.Curve;
                }
            }
        }
        public double StartParam
        {
            get
            {
                return acCurve.StartParam;
            }
        }
        public double EndParam
        {
            get
            {
                return acCurve.EndParam;
            }
        }
        public object GetClosestPointTo(object pnt, bool extend)
        {
            return acCurve.GetClosestPointTo(new Point3d((double[])pnt), extend).ToArray();
        }
        public double GetDistAtParam(double param)
        {
            return acCurve.GetDistanceAtParameter(param);
        }
        public double GetParamAtDist(double dist)
        {
            return acCurve.GetParameterAtDistance(dist);
        }
        public double GetParamAtPoint(object pnt)
        {
            return acCurve.GetParameterAtPoint(new Point3d((double[])pnt));
        }
        public double GetDistAtPoint(object pnt)
        {
            return acCurve.GetDistAtPoint(new Point3d((double[])pnt));
        }
        private object GetParamsByPoints(object pnts)
        {
            List pars = new List();
            AcDb.Database db = _id.Database;
            using (AcDb.Transaction tr = db.TransactionManager.StartTransaction())
            {
                AcDb.Curve c = tr.GetObject(_id, AcDb.OpenMode.ForRead) as AcDb.Curve;
                foreach (object pnt in (object[])pnts)
                {
                    pars.Add(c.GetParameterAtPoint(new Point3d((double[])pnt)));
                }
            }
            return pars.ToArray();
        }
        public void SplitByPoints(object pnts)
        {
            SplitByParams(GetParamsByPoints(pnts));
        }
        public object SplitByParams(object pars)
        {
            AcDb.Database db = _id.Database;
            List objs = new List();
            Document doc = Application.DocumentManager.GetDocument(AcDb.HostApplicationServices.WorkingDatabase);
            using (doc.LockDocument())
            {
                using (AcDb.Transaction tr = db.TransactionManager.StartTransaction())
                {
                    AcDb.Curve c = tr.GetObject(_id, AcDb.OpenMode.ForRead) as AcDb.Curve;
                    AcDb.BlockTableRecord btr = tr.GetObject(c.OwnerId, AcDb.OpenMode.ForWrite) as AcDb.BlockTableRecord;
                    double[] parrs = (double[])pars;
                    Array.Sort(parrs);
                    foreach (AcDb.Curve cc in c.GetSplitCurves(new DoubleCollection(parrs)))
                    {
                        btr.AppendEntity(cc);
                        tr.AddNewlyCreatedDBObject(cc, true);
                        objs.Add(cc.AcadObject);
                    }
                    tr.Commit();
                }
            }
            return objs.ToArray();
        }
    }
}

VBA调用的代码

copy


Sub tt()
    Dim tc As Object
    Set tc = Application.GetInterfaceObject("TlsCad.Common.Curve")
    
    Dim obj As Object, pnts(1)
    ThisDrawing.Utility.GetEntity obj, pnts(0)
    tc.Set obj.ObjectID
    
    pnts(0) = tc.GetClosestPointTo(pnts(0), False)
    pnts(1) = ThisDrawing.Utility.GetPoint()
    pnts(1) = tc.GetClosestPointTo(pnts(1), False)
    
    tc.SplitByPoints (pnts)
    
End Sub

VB调用的代码

copy


Private Sub Command1_Click()
Dim app As Object
Set app = GetObject(, "AutoCad.Application")
Dim tc  As Object
Set tc = app.GetInterfaceObject("TlsCad.Common.Curve")
    Dim obj As Object, pnts(1)
    app.ActiveDocument.Utility.GetEntity obj, pnts(0)
    tc.Set obj.ObjectID
    
    pnts(0) = tc.GetClosestPointTo(pnts(0), False)
    pnts(1) = app.ActiveDocument.Utility.GetPoint()
    pnts(1) = tc.GetClosestPointTo(pnts(1), False)
    
    tc.SplitByPoints (pnts)
End Sub

C#调用的代码

copy


using System;
using System.Collections.Generic;
using System.ComponentModel;
using System.Data;
using System.Drawing;
using System.Linq;
using System.Text;
using System.Windows.Forms;
using Autodesk.AutoCAD.Interop;
using Autodesk.AutoCAD.Interop.Common;
using System.Runtime.InteropServices;
using System.Reflection;
namespace ComTest
{
    public partial class Form1 : Form
    {
        public Form1()
        {
            InitializeComponent();
        }
        private void button1_Click(object sender, EventArgs e)
        {
            AcadApplication acApp = GetAcApp();
            object tc = acApp.GetInterfaceObject("TlsCad.Common.Curve");
            object acCurve;
            object[] pnts = new object[2];
            AcadDocument acDoc = acApp.ActiveDocument;
            acDoc.Utility.GetEntity(out acCurve, out pnts[0], "");
            InvokeMethod(tc, "Set", ((AcadEntity)acCurve).ObjectID);
            pnts[0] = InvokeMethod(tc, "GetClosestPointTo", pnts[0], false);
            pnts[1] = acDoc.Utility.GetPoint(pnts[0], "");
            pnts[1] = InvokeMethod(tc, "GetClosestPointTo", pnts[1], false);
            InvokeMethod(tc, "SplitByPoints", new object[1]{pnts});
        }
        public object InvokeMethod(object obj, string methodName, params object[] args)
        {
            Type t = obj.GetType();
            object res =
                t.InvokeMember(
                    methodName,
                    BindingFlags.Public | BindingFlags.InvokeMethod,
                    null,
                    obj,
                    args);
            return res;
        }        public AcadApplication GetAcApp()
        {
            const string progID = "AutoCAD.Application.18";
            AcadApplication acApp = null;
            try
            {
                acApp =
                  (AcadApplication)Marshal.GetActiveObject(progID);
            }
            catch
            {
                try
                {
                    Type acType =
                      Type.GetTypeFromProgID(progID);
                    acApp =
                      (AcadApplication)Activator.CreateInstance(
                        acType,
                        true
                      );
                }
                catch
                {
                    MessageBox.Show(
                      "Cannot create object of type "" +
                      progID + """
                    );
                }
            }
            return acApp;
        }
    }
}

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")]
不知道这是干什么用的

为.net程序集实现Com接口

发表回复

精选推荐

浏览过的版块