Bricscad ET Chspace-like命令

using System;
using System.Collections.Generic;
using System.Linq;
using System.Threading;
using System.Threading.Tasks;
using System.Diagnostics;
using BricscadApp;
using BricscadDb;
using RxNet.ApplicationServices;
using RxNet.Runtime;
using RxNet.Geometry;
using RxNet.RxGlobal;
namespace Bricscad
{
  public static class Commands
  {
    // from papaerspace vp is active
    [CommandMethod("doit")]
    public static void test01()
    {
      try
      {
        // get app stuff
        var app = Application.AcadApplication as AcadApplication;
        var doc = app.ActiveDocument;
        var mspace = doc.ModelSpace;
        GlobalFunctions.MSpace();
        //select an entity and copy
        object opnt, oent, pairs = null;
        doc.Utility.GetEntity(out oent, out opnt, "Select Entity");
        AcadEntity entity = oent as AcadEntity;
        AcadEntity[] ocol = { entity };
        object[] ncol = doc.CopyObjects((object)ocol, doc.PaperSpace, ref pairs);
        AcadEntity nentity = ncol[0] as AcadEntity;
        // get the center of both entities bounding box
        Point3d cenent = getBBCenter(entity);
        Point3d cennent = getBBCenter(nentity);
        // scale
        nentity.ScaleEntity(cennent.ToArray(), doc.ActivePViewport.CustomScale);
        // rotate
        nentity.Rotate(cennent.ToArray(), doc.ActivePViewport.TwistAngle);
        // move
        nentity.Move(cennent.ToArray(),
          doc.Utility.TranslateCoordinates(
          cenent.ToArray(), AcCoordinateSystem.acUCS, AcCoordinateSystem.acPaperSpaceDCS, 0));
        // delete
        entity.Delete();
        GlobalFunctions.PSpace();
      }
      catch (System.Exception ex)
      {
        GlobalFunctions.Printf("\n{0}\n{1}",
         ex.Message, ex.StackTrace);
      }
    }
    static Point3d getBBCenter(AcadEntity ent)
    {
      object omin, omax;
      ent.GetBoundingBox(out omin, out omax);
      Point3d min = new Point3d((double[])omin);
      Point3d max = new Point3d((double[])omax);
      return new Point3d(min[0] + ((max[0] - min[0]) / 2),
                         min[1] + ((max[1] - min[1]) / 2), 0);
    }
  }
}

using System;
using System.Collections.Generic;
using System.Linq;
using System.Threading;
using System.Threading.Tasks;
using System.Diagnostics;
using BricscadApp;
using BricscadDb;
using RxNet.ApplicationServices;
using RxNet.Runtime;
using RxNet.Geometry;
using RxNet.RxGlobal;
namespace Bricscad
{
  public static class Commands
  {
    // from papaerspace vp is active
    [CommandMethod("doit")]
    public static void test01()
    {
      AcadSelectionSet selection = null;
      try
      {
        // get app stuff
        var app = Application.AcadApplication as AcadApplication;
        var doc = app.ActiveDocument;
        GlobalFunctions.MSpace();
        selection = doc.SelectionSets.Add("MySel");
        selection.SelectOnScreen();
        foreach (AcadObject o in selection)
        {
          AcadEntity e = o as AcadEntity;
          if (e != null)
            cloneToPspace(e, doc);
        }
        foreach (AcadObject o in selection)
        {
          AcadEntity e = o as AcadEntity;
          if (e != null)
            e.Delete();
        }
        GlobalFunctions.PSpace();
      }
      catch (System.Exception ex)
      {
        GlobalFunctions.Printf("\n{0}\n{1}",
         ex.Message, ex.StackTrace);
      }
      finally
      {
        selection.Delete();
      }
    }
    static void cloneToPspace(AcadEntity entity, AcadDocument doc)
    {
      try
      {
        object pairs = null;
        AcadEntity[] ocol = { entity };
        object[] ncol = doc.CopyObjects((object)ocol, doc.PaperSpace, ref pairs);
        AcadEntity nentity = ncol[0] as AcadEntity;
        // get the center of both entities bounding box
        Point3d cenent = getBBCenter(entity);
        Point3d cennent = getBBCenter(nentity);
        // scale
        nentity.ScaleEntity(cennent.ToArray(), doc.ActivePViewport.CustomScale);
        // rotate
        nentity.Rotate(cennent.ToArray(), doc.ActivePViewport.TwistAngle);
        // move
        nentity.Move(cennent.ToArray(),
          doc.Utility.TranslateCoordinates(
          cenent.ToArray(), AcCoordinateSystem.acUCS, AcCoordinateSystem.acPaperSpaceDCS, 0));
      }
      catch {/*hehe*/}
    }
    static Point3d getBBCenter(AcadEntity ent)
    {
      object omin, omax;
      ent.GetBoundingBox(out omin, out omax);
      Point3d min = new Point3d((double[])omin);
      Point3d max = new Point3d((double[])omax);
      return new Point3d(min[0] + ((max[0] - min[0]) / 2),
                         min[1] + ((max[1] - min[1]) / 2), 0);
    }
  }
}

Sub msTxt2ps()
      Dim pp As Variant
      Dim pt1 As Variant
      Dim ent As AcadEntity
      Dim aTxt As AcadText
      Dim mTxt As AcadMText
      Dim nTxt As AcadText
      Dim amTxt As AcadMText
      Dim mAtt As Variant
      
      Dim ss As AcadSelectionSet
      Dim Code(0) As Integer
      Dim Val(0) As Variant
      Set ss = ThisDrawing.ActiveSelectionSet
      ss.Clear
          Code(0) = 0
          Val(0) = "TEXT,MTEXT"
          
     Dim styl As AcadTextStyle
     Set styl = ThisDrawing.ActiveTextStyle
      
      Dim ps As AcadPViewport
      Set ps = ThisDrawing.ActivePViewport
      pss = ps.CustomScale
      psrot = ps.TwistAngle
      
      ss.SelectOnScreen Code, Val
      ThisDrawing.ActiveSpace = acPaperSpace
For Each ent In ss
      If TypeOf ent Is AcadText Then
          Set aTxt = ent
          pt1 = aTxt.InsertionPoint
          pt1 = transPt(pt1)
          rot = Math.Round(aTxt.Rotation, 5)
          pt2 = aTxt.TextAlignmentPoint
          pt2 = transPt(pt2)
          txtht = aTxt.Height * pss
          Set nTxt = ThisDrawing.PaperSpace.AddText(aTxt.TextString, pt1, txtht)
          nTxt.Alignment = aTxt.Alignment
          nTxt.TextAlignmentPoint = pt2
          nTxt.InsertionPoint = pt1
               If rot = 0# Then
               nTxt.Rotation = 0#
               Else
               nTxt.Rotation = rot + psrot
               End If
          Else
          Set mTxt = ent
          pt1 = mTxt.InsertionPoint
          pt1 = transPt(pt1)
          rot = Math.Round(mTxt.Rotation, 5)
          wid = mTxt.Width
          mAtt = mTxt.AttachmentPoint
          Set amTxt = ThisDrawing.PaperSpace.AddMText(pt1, wid, mTxt.TextString)
          amTxt.AttachmentPoint = mAtt
               If rot = 0# Then
               amTxt.Rotation = 0#
               Else
               amTxt.Rotation = rot + psrot
               End If
          amTxt.StyleName = styl.Name
          amTxt.ScaleEntity pt1, pss
     End If
Next
      
End Sub
Function transPt(ByRef pt1 As Variant) As Variant
     pt1 = ThisDrawing.Utility.TranslateCoordinates(pt1, acUCS, acDisplayDCS, 0)
     pt1 = ThisDrawing.Utility.TranslateCoordinates(pt1, acDisplayDCS, acPaperSpaceDCS, 0)
     transPt = pt1
End Function