请教C#能取到通过 (vlax-ldata-put)的扩展数据么

cheng5276

假设图中有一直线，通过 (vlax-ldata-put)给他赋予了扩展数据，请教老大们，c#能直接读取和设置这个数据么？

vectra

请自行脑补 NamedObjectDictionary

cheng5276

可是老大，能请您说详细点么，我采用NamedObjectDictionary方式，并未成功，通过C#设置的扩展数据，通过(vlax-ldata-get (car(entsel))  "cheng5276" )还是获取不了，还得恭请老大继续指点，拜谢了!

+++++++++++++++++以下为程序源码+++++++++++++++++
using Autodesk.AutoCAD.Runtime;
//using qApp = Autodesk.AutoCAD.ApplicationServices;
using Autodesk.AutoCAD.EditorInput;
using System.Windows.Forms;
using System.Windows.Forms.Integration;
using System;
using System.Collections.Generic;
using System.Text;
using System.Collections;
using Autodesk.AutoCAD.DatabaseServices;
using Autodesk.AutoCAD.ApplicationServices;
using Autodesk.AutoCAD.Geometry;
using Application = Autodesk.AutoCAD.ApplicationServices.Application;
using Document = Autodesk.AutoCAD.ApplicationServices.Document;
//[assembly: ExtensionApplication(typeof(Cheng5276_CAD.Main))]
namespace Cheng5276_CAD
{
    public class Main  //: IExtensionApplication
    {
//添加对象扩展数据
        [CommandMethod("Add")]
        public void AddExtDict()
        {
            Editor ed = Application.DocumentManager.MdiActiveDocument.Editor;
            PromptEntityOptions entOps = new PromptEntityOptions("选择要添加扩展数据的对象\n");
            PromptEntityResult entRes = ed.GetEntity(entOps);
            if (entRes.Status != PromptStatus.OK)
            {
                ed.WriteMessage("选择对象失败，退出");
                return;
            }
            Database db = Autodesk.AutoCAD.ApplicationServices.Application.DocumentManager.MdiActiveDocument.Database;
            using (Transaction trans = db.TransactionManager.StartTransaction())
            {
                DBObject obj = trans.GetObject(entRes.ObjectId, OpenMode.ForWrite) as DBObject;
                obj.CreateExtensionDictionary();
                DBDictionary extensionDict = (DBDictionary)trans.GetObject(obj.ExtensionDictionary, OpenMode.ForWrite, false);
              
                // 通过Xrecord准备附加属性数据
                Xrecord xRec = new Xrecord();
                xRec.Data = new ResultBuffer(
                  new TypedValue((int)DxfCode.Text, "张三"),// 姓名
                  new TypedValue((int)DxfCode.Real, 1200.0),//薪水
                  new TypedValue((int)DxfCode.Text, "技术部"));// 部门        
               // 在扩展词典中添加扩展记录
                extensionDict.SetAt("cheng5276", xRec);
                trans.AddNewlyCreatedDBObject(xRec, true);
                trans.Commit();
            }
        }
//取得对象扩展数据
        [CommandMethod("Gg")]
        public void GetExtDict()
        {
            Editor ed = Application.DocumentManager.MdiActiveDocument.Editor;
            PromptEntityOptions entOps = new PromptEntityOptions("选择添加了扩展数据的块\n");
            PromptEntityResult entRes = ed.GetEntity(entOps);
            if (entRes.Status != PromptStatus.OK)
            {
                ed.WriteMessage("选择对象失败，退出");
                return;
            }
            Database db = Autodesk.AutoCAD.ApplicationServices.Application.DocumentManager.MdiActiveDocument.Database;
            using (Transaction trans = db.TransactionManager.StartTransaction())
            {
                DBObject obj = trans.GetObject(entRes.ObjectId, OpenMode.ForWrite) as DBObject;
                DBDictionary extensionDict = (DBDictionary)trans.GetObject(obj.ExtensionDictionary, OpenMode.ForWrite, false);
                Xrecord EmpXRec = (Xrecord)trans.GetObject(extensionDict.GetAt("cheng5276"), OpenMode.ForRead);
                ResultBuffer resBuf = EmpXRec.Data;
                TypedValue val = resBuf.AsArray()[0];
                ed.WriteMessage("出图比例为:{0}\n", val.Value);

                trans.Commit();
            }

        }
}
}

cheng5276

      
+++++++++++++++++++++以下图形词典也无法通过(vlax-ldata-get）来取得数据
//--------------------------------------------------------------
        // 功能:在命名对象词典中添加数据
        // 作者：
        // 日期：2007-7-20
        // 说明：
        //
        //------------------------------------------------------------
        [CommandMethod("AddInNOD")]
        public void AddInNOD()
        {
            Editor ed = Application.DocumentManager.MdiActiveDocument.Editor;
            ed.WriteMessage("在命名对象词典中添加数据\n");
            Database db = HostApplicationServices.WorkingDatabase;
            using (Transaction trans = db.TransactionManager.StartTransaction())
            {
                //获取命名对象词典（NOD)
                DBDictionary NOD =trans.GetObject(db.NamedObjectsDictionaryId, OpenMode.ForWrite) as DBDictionary ;
                // 声明一个新的词典
                DBDictionary copyrightDict;
                // 判断是否存在COPYRIGHT词典，没有则创建
                try
                {
                    // 获取COPYRIGHT词典
                    copyrightDict = (DBDictionary)trans.GetObject(NOD.GetAt("cheng5276-DIC"), OpenMode.ForRead);
                }
                catch
                {
                    //在NOD下创建COPYRIGHT词典
                    copyrightDict = new DBDictionary();
                    NOD.SetAt("cheng5276-DIC", copyrightDict);
                    trans.AddNewlyCreatedDBObject(copyrightDict, true);
                }

                // 在copyrightDict中，获取或创建 "author" 词典
                DBDictionary authorDict;
                try
                {
                    authorDict = (DBDictionary)trans.GetObject(copyrightDict.GetAt("Author"), OpenMode.ForWrite);
                }
                catch
                {
                    authorDict = new DBDictionary();
                    //"author" doesn't exist, create one
                    copyrightDict.UpgradeOpen();
                    copyrightDict.SetAt("Author", authorDict);
                    trans.AddNewlyCreatedDBObject(authorDict, true);
                }

                // 通过Xrecord和ResultBuffer添加扩展数据
                Xrecord authorRec;
                try
                {
                    authorRec = (Xrecord)trans.GetObject(authorDict.GetAt("AuthorInfo"), OpenMode.ForWrite);
                }
                catch
                {
                    authorRec = new Xrecord();
                    authorRec.Data = new ResultBuffer(new TypedValue((int)DxfCode.Text, "张三"));
                    authorDict.SetAt("AuthorInfo", authorRec);
                    trans.AddNewlyCreatedDBObject(authorRec, true);
                }
                trans.Commit();
            }
        }


//--------------------------------------------------------------
        // 功能:获取命名对象词典中的数据
        // 作者：
        // 日期：2007-7-20
        // 说明：
        //
        //------------------------------------------------------------
        [CommandMethod("Gid")]
        //(vlax-ldata-GET  "cheng5276-DIC" "AuthorInfo")
        public void GetInNod()
        {
            Editor ed = Application.DocumentManager.MdiActiveDocument.Editor;
            ed.WriteMessage("获取命名对象词典中数据\n");

            Database db = HostApplicationServices.WorkingDatabase;
            using (Transaction trans = db.TransactionManager.StartTransaction())
            {
                // 获取NOD
                DBDictionary NOD = (DBDictionary)trans.GetObject(db.NamedObjectsDictionaryId, OpenMode.ForRead, false);
                // 获取COPYRIGHT词典
                DBDictionary copyrightDict = (DBDictionary)trans.GetObject(NOD.GetAt("cheng5276-DIC"), OpenMode.ForRead);
                // 获取Author词典
                DBDictionary AuthorDict = (DBDictionary)trans.GetObject(copyrightDict.GetAt("Author"), OpenMode.ForRead);
                // 获取AuthorInfo扩展记录Xrecord
                Xrecord authorXRec = (Xrecord)trans.GetObject(AuthorDict.GetAt("AuthorInfo"), OpenMode.ForRead);
                ResultBuffer resBuf = authorXRec.Data;
                TypedValue val = resBuf.AsArray()[0];
                ed.WriteMessage("该图纸由{0}设计\n", val.Value);
            }
        }

雪山飞狐_lzh

ldata是lisp私有的 只能通过调用lisp函数的方式获取吧

sieben

相应数据类型会是ImpDBObject,在C#可以调用Lisp的注册函数读取

cheng5276

相应的类型确实是ImpDBObject,
老大能进一步解释下么？【在C#可以调用Lisp的注册函数读取】

sieben

就是想办法在C#里面调用Lisp的vlax-ldata-get函数呀,因为要求Lisp注册后才能被C#调用,所以我是另外再写个Lisp函数让C#调用,里面有vlax-ldata-get可以读取相关数据