Detectando e apagando linhas de comprimento zero em um desenho do AutoCAD usando .NET

Esses dias fiz um pruge em alguns documentos e percebi que existam alguns elementos que ainda sim estava pensando no documento, mas não conseguia ver. Na verdade algum programa automático de topografia criou varias linhas com comprimento 0.

Isso deixaria o arquivo DWG muito pesado resolvi fazer uma função para apagar as linhas e eliminar toda geometria de comprimento zero.

Aqui está o código C#:

using System;
using System.Collections.Generic;
using System.Linq;
using System.Text;

using Autodesk.AutoCAD.ApplicationServices;
using Autodesk.AutoCAD.DatabaseServices;
using Autodesk.AutoCAD.Geometry;
using Autodesk.AutoCAD.Runtime;


namespace AutoCADNetBlogExample202002

{
    public static class extensoes
    {
        /// <summary>
        /// Apaga entidades encontradas neste banco de dados baseado na condição.
        /// </summary>
        /// <param name="f">Function indicating whether an enity needs erasing.</param>
        /// <param name="countOnly">Optional parameter to count but not erase.</param>
        /// <returns>O número de entidades encontradas e apagadas</returns>

        public static int apagarobjetos(
          this Database db, Func<Entity, bool> f, bool countOnly = false
        )
        {
            int count = 0;
            using (var tr = db.TransactionManager.StartTransaction())
            {
                var bt = (BlockTable)tr.GetObject(db.BlockTableId, OpenMode.ForRead);
                foreach (ObjectId btrId in bt)
                {
                    var btr = (BlockTableRecord)tr.GetObject(btrId, OpenMode.ForRead);
                    foreach (ObjectId entId in btr)
                    {
                        var ent = tr.GetObject(entId, OpenMode.ForRead) as Entity;
                        if (ent != null && f(ent))
                        {
                            if (!countOnly)
                            {
                                ent.UpgradeOpen();
                                ent.Erase();
                                ent.DowngradeOpen();
                            }
                            count++;
                        }
                    }
                }
                tr.Commit();
            }
            return count;
        }
    }

    public class cmmd
    {
        [CommandMethod("APAGAR_LINHAS_L0")]
        public void APAGAR_LINHAS_L0()
        {
            var doc1 = Application.DocumentManager.MdiActiveDocument;
            if (doc1 == null)
                return;
            var db = doc1.Database;
            var ed = doc1.Editor;

            var count = db.ConditionalErase(
              e =>
              {
                  var cur = e as Curve;
                  return
              cur != null &&
              cur.GetDistanceAtParameter(cur.EndParam) <
                Tolerance.Global.EqualPoint;
              }
            );

            ed.WriteMessage("\nForam apagadas {0} entidades!.", count);
        }
    }

}

A maneira mais simples de resolver o problema é executar “_-PURGE _Z” na linha de comando, mas vi isso mais como uma oportunidade para criar um auxiliar simples que percorreria todos as entidades em um desenho e apaga qualquer objeto com uma condição de comprimento zero. Nesse caso, seriam curvas com um comprimento menor que a tolerância global, mas o mesmo mecanismo certamente poderia ser usado para apagar a geometria que atende a outras condições.

O código apenas varre cada um dos elementos da tabela de entidades do desenho e verifica seu conteúdo com uma condição por uma condição de comprimento mínimo. A função ConditionalErase pega um argumento - uma entidade - e retorna um Booleano indicando se merece ser excluído ou não.

Esse código também apaga arcos com comprimento zero e polinhas com comprimento zero.