Converting Paper Space point to Model Space using AutoCAD.NET

By Fenton Webb

Recently I tried to find some information on how to convert a Paper Space point to a Model Space point, and was shocked to find there was no simple to use sample code!!! Perhaps I missed something obvious, nevertheless, I opted to create my own and share it with you.

The code below utilizes the acedTrans() (which has been around since the R11 ADS days) using PInvoke, it’s very simple to use when you know how.

To run and test the code out:

1. Run AutoCAD and load the code below
2. Switch to Paper Space, either click the Layout tab or set TILEMODE=0
3. Create a VPort
4. Make sure you have TILEMODE=0
5. Run my “ps2ms” command and click somewhere over the MS VPort. You will see a DBPoint appear directly under your cursor, but in Model space.
6. If you can’t see the DBPoint, simply set PDSIZE=10 and PDMODE=98

Hope you like it.

    // convert a PS point to MS and then add a DBPoint to MS to show where we picked

    // by Fenton Webb, DevTech, Autodesk, 20/Aug/2012

#if NOTACAD2013

  [DllImport("acad.exe", CallingConvention = CallingConvention.Cdecl, EntryPoint="acedTrans")]

#else

    [DllImport("accore.dll", CallingConvention = CallingConvention.Cdecl, EntryPoint = "acedTrans")]

#endif

    static extern int acedTrans(double[] point, IntPtr fromRb, IntPtr toRb, int disp, double[] result);

    [CommandMethod("ps2ms", CommandFlags.NoTileMode)]

    static public void ps2ms()

    {

      Editor ed = Application.DocumentManager.MdiActiveDocument.Editor;

      // pick some point in PS

      PromptPointResult res = ed.GetPoint("Pick Model Space Point");

      if (res.Status == PromptStatus.OK)

      {

        // now to make sure this works for all viewpoints

        ResultBuffer psdcs = new ResultBuffer(new TypedValue(5003, 3));

        ResultBuffer dcs = new ResultBuffer(new TypedValue(5003, 2));

        ResultBuffer wcs = new ResultBuffer(new TypedValue(5003, 0));

        double[] retPoint = new double[] { 0, 0, 0 };

 

        // translate from the DCS of Paper Space (PSDCS) RTSHORT=3 to

        // the DCS of the current model space viewport RTSHORT=2

        acedTrans(retPoint, psdcs.UnmanagedObject, dcs.UnmanagedObject, 0, retPoint);

        //translate the DCS of the current model space viewport RTSHORT=2

        //to the WCS RTSHORT=0

        acedTrans(retPoint, dcs.UnmanagedObject, wcs.UnmanagedObject, 0, retPoint);

 

        ObjectId btId = ed.Document.Database.BlockTableId;

        // create a new DBPoint and add it to model space to show where we picked

        using (DBPoint pnt = new DBPoint(new Point3d(retPoint[0], retPoint[1], retPoint[2])))

        using (BlockTable bt = btId.Open(OpenMode.ForRead) as BlockTable)

        using (BlockTableRecord ms = bt[BlockTableRecord.ModelSpace].Open(OpenMode.ForWrite)

                        as BlockTableRecord)

          ms.AppendEntity(pnt);

      }

    }