topic Re: Can this code be written in ". Net" language? in .NET Forum

Can this code be written in ". Net" language?

546817208 — Sat, 19 Mar 2022 15:06:21 GMT

Can you help write an example?

(defun c:test()

(setq p1 (entsel))

(setq p1 (car p1))

(setq p1_data (entget p1))

(setq p1_data (assoc 1 p1_data ))
)

Re: Can this code be written in ". Net" language?

_gile — Sat, 19 Mar 2022 16:15:00 GMT

Hi,

The short answer is: "Not this way".

because the .NET API does not use DXF data (as returned by AutoLISP's entget function) to access entity properties;
because .NET uses strong and static typing instead of dynamic typing, looking at your example, this means the p1 cannot be assigned to list and to an ename (same for p1_data) and that we must first determine the entity type to get its property value, e.g. DBText.TextString, MText.Contents, ... for (cdr (assoc 1 ...)).

The closest .NET code to your LISP example (using dynamic typing and without any error checking) should be something like this (nobody should write such .NET code in real life):

[CommandMethod("TEST")] public static void Test() { var ed = Application.DocumentManager.MdiActiveDocument.Editor; var ppr = ed.GetEntity("\nSelect object: "); dynamic ent = ppr.ObjectId; ed.WriteMessage($"\n{ent.TextString}"); }

In real life, the equivalent .NET code should be closer to this one:

[CommandMethod("TEST")] public static void Test() { var doc = Application.DocumentManager.MdiActiveDocument; var db = doc.Database; var ed = doc.Editor; var peo = new PromptEntityOptions("\nSelet a text: "); peo.SetRejectMessage("\nSelected object is not a text."); peo.AddAllowedClass(typeof(DBText), true); var per = ed.GetEntity(peo); if (per.Status != PromptStatus.OK) return; using (var tr = db.TransactionManager.StartTransaction()) { var ent = (DBText)tr.GetObject(per.ObjectId, OpenMode.ForRead); ed.WriteMessage($"\n{ent.TextString}"); tr.Commit(); } }

Re: Can this code be written in ". Net" language?

546817208 — Sun, 20 Mar 2022 10:42:32 GMT

(setq p1_data (entget p1)) output:
((-1 . <图元名: 16f882e3e50>) (0 . "TCH_SPACE") (330 . <图元名: 16730aff9f0>) (5 . "1EDCAC5") (100 . "AcDbEntity") (67 . 0) (410 . "Model") (8 . "SPACE") (100 . "TDbEntity") (46 . 0.0) (47 . 100.0) (68 . 0) (100 . "TDbSpace") (70 . 5) (10 1.12856e+06 393884.0 0.0) (1 . "便民用房") (2 . "1033") (7 . "宋体") (40 . 3.5) (41 . 16.335) (42 . 16260.0) (43 . 120.0) (50 . 0.0) (90 . 0))

"assoc 1 p1_data" = per.ObjectId
"assoc 41 p1_data" = ???

Can ". Net" get the return value of LISP function?

Re: Can this code be written in ". Net" language?

_gile — Sun, 20 Mar 2022 17:24:05 GMT

You can P/Invoke the unmanaged acdbEntget and acdbGetAdsName functions.

Note the acdbGetAdsName is major version and platform dependent.

// Replace the DLL name according to the AutoCAD targeted version // 2013-2014: "acdb19.dll" // 2015-2016: "acdb20.dll" // 2017: "acdb21.dll" // 2018: "acdb22.dll" // 2019-2020: "acdb23.dll" // 2021-2022: "acdb24.dll" // Replace the EntryPoint according to AutoCAD plateform // 32 bits: "?acdbGetAdsName@@YA?AW4ErrorStatus@Acad@@AAY01JVAcDbObjectId@@@Z" // 64 bits: "?acdbGetAdsName@@YA?AW4ErrorStatus@Acad@@AEAY01_JVAcDbObjectId@@@Z" [System.Security.SuppressUnmanagedCodeSecurity] [DllImport("acdb24.dll", CallingConvention = CallingConvention.Cdecl, EntryPoint = "?acdbGetAdsName@@YA?AW4ErrorStatus@Acad@@AEAY01_JVAcDbObjectId@@@Z")] static extern ErrorStatus acdbGetAdsName(out AdsName ename, ObjectId id); [System.Security.SuppressUnmanagedCodeSecurity] [DllImport("accore.dll", CallingConvention = CallingConvention.Cdecl, EntryPoint = "acdbEntGet")] static extern IntPtr acdbEntGet(AdsName ename); public static ResultBuffer EntGet(ObjectId id) { var errorStatus = acdbGetAdsName(out AdsName ename, id); if (errorStatus != ErrorStatus.OK) throw new Autodesk.AutoCAD.Runtime.Exception(errorStatus); var result = acdbEntGet(ename); if (result != IntPtr.Zero) return ResultBuffer.Create(result, true); return null; } [CommandMethod("TEST")] public static void Test() { Document doc = Application.DocumentManager.MdiActiveDocument; Editor ed = doc.Editor; var entRes = ed.GetEntity("\nSelect an entity: "); if (entRes.Status == PromptStatus.OK) { var rb = EntGet(entRes.ObjectId); if (rb != null) { foreach (TypedValue typedValue in rb) { ed.WriteMessage($"\n{typedValue.TypeCode,-3}\t{typedValue.Value}"); } Application.DisplayTextScreen = true; } } }