我写了spl转多段线代码，有点bug

paniclp

如果只是选择几个样条曲线，转多段线没有什么问题，
如果选择很多的话，比如1000个，autocad就会崩溃，提示致命错误。
代码如下
   //Spline变多段线
      [CommandMethod("MyEx")]
      public static void MyEx()
      {
          Editor ed = Application.DocumentManager.MdiActiveDocument.Editor;
          PromptSelectionResult result = ed.GetSelection();
          SelectionSet set = result.Value;
          Database db = HostApplicationServices.WorkingDatabase;
          using (Transaction trans = db.TransactionManager.StartTransaction())
          {
              //以读方式打开块表..  
              BlockTable bt = (BlockTable)trans.GetObject(db.BlockTableId, OpenMode.ForRead);

              //以写方式打开模型空间块表记录  
              BlockTableRecord btr = (BlockTableRecord)trans.GetObject(bt[BlockTableRecord.ModelSpace], OpenMode.ForWrite);

              if (set != null && set.Count > 0)
              {
                 // List<DBText> textlist = new List<DBText>();
                  int nCount = 0;
                  foreach (ObjectId id in set.GetObjectIds())
                  {
                      Entity ent = (Entity)id.GetObject(OpenMode.ForWrite);
                      if (ent is Spline)
                      {
                          nCount = nCount + 1;
                          Debug.WriteLine(nCount);
                          Debug.WriteLine(id);
                          Spline sp = (Spline)ent;
                         int d =  sp.Degree;
                         NurbCurve3d nurb = ToNurbCurve3d(sp);

                         Point3d[] pt3= nurb.GetSamplePoints(20);

                         Polyline pl = new Polyline();

                         for (int i = 0; i < pt3.Length ; i++)
                         {
                             pl.AddVertexAt(i, new Point2d(pt3[i].X, pt3[i].Y), 0, 0, 0);
                         }

                         if (sp.Closed)
                         {
                             pl.Closed = true;
                         }
                         sp.Erase(true);
                         //将图形对象的信息添加到块表记录中,并返回ObjectId对象.  
                         btr.AppendEntity(pl);

                         //把对象添加到事务处理中.  
                         trans.AddNewlyCreatedDBObject(pl, true);


                      }

                  }
                  //提交事务处理  
                  trans.Commit();

              }
          }
      }

Lisphk

ToNurbCurve3d 这个函数的定义呢？

可能问题就在这个函数里面吧。

paniclp

总算解决了，数据库每次操作一个对象，不要一次加入大量的实体到数据库。
   if (set != null && set.Count > 0)
                  {
                      // List<DBText> textlist = new List<DBText>();
                      int nCount = 0;
                      foreach (ObjectId id in set.GetObjectIds())
                      {
                          using (Transaction trans = db.TransactionManager.StartTransaction())
                          {
                              //以读方式打开块表..  
                              BlockTable bt = (BlockTable)trans.GetObject(db.BlockTableId, OpenMode.ForRead);

                              //以写方式打开模型空间块表记录  
                              BlockTableRecord btr = (BlockTableRecord)trans.GetObject(bt[BlockTableRecord.ModelSpace], OpenMode.ForWrite);
                          Entity ent = (Entity)trans.GetObject(id, OpenMode.ForWrite);
           //将图形对象的信息添加到块表记录中,并返回ObjectId对象.  
                              btr.AppendEntity(pl);

                              //把对象添加到事务处理中.  
                              trans.AddNewlyCreatedDBObject(pl, true);

                              //提交事务处理  
                              trans.Commit();
                          }

对象循环放在外面
这样就可以了

wzjck01

学习学习再学习

brainstorm

using Transaction trans 放到foreach 外边

brainstorm

不是有自带函数 ToPolyline 么  

yaojing38

谢谢分享，非常好用

xvjiex

感谢楼主分享！