Topic: acedTrans to .NET

[gile]

This topic is quite old, but here's my new attempt for a Trans method working as the LISP one (it accepts either integer, ObjectId or Vector3d as argument).
The extension method uses some C# 7 functional programming features (local function and pattern matching).

Code - C#: [Select]

1.     static class Extension
2.     {
3.         [DllImport("accore.dll", CallingConvention = CallingConvention.Cdecl, EntryPoint = "acedTrans")]
4.         static extern int acedTrans(double[] point, IntPtr fromRb, IntPtr toRb, int disp, double[] result);
5.  
6.         public static Point3d Trans(this Point3d source, object from, object to, bool disp = false)
7.         {
8.             ResultBuffer toResBuf(object obj)
9.             {
10.                 switch (obj)
11.                 {
12.                     case int i:
13.                         return new ResultBuffer(new TypedValue(5003, i));
14.                     case ObjectId id:
15.                         return new ResultBuffer(new TypedValue(5006, id));
16.                     case Vector3d v:
17.                         return new ResultBuffer(new TypedValue(5009, new Point3d(v.X, v.Y, v.Z)));
18.                     default:
19.                         throw new Autodesk.AutoCAD.Runtime.Exception(ErrorStatus.InvalidInput);
20.                 }
21.             }
22.             double[] result = new double[3];
23.             int status = acedTrans(source.ToArray(), toResBuf(from).UnmanagedObject, toResBuf(to).UnmanagedObject, disp ? 1 : 0, result);
24.             if (status == 5100)
25.                 return new Point3d(result);
26.             else
27.                 throw new Autodesk.AutoCAD.Runtime.Exception(ErrorStatus.InvalidInput);
28.         }
29.     }

[kdub_nz]

Nice update Gilles.