在好例子网,分享、交流、成长!
您当前所在位置:首页C# 开发实例C#语言基础 → CAD 删除多段线上重复点

CAD 删除多段线上重复点

C#语言基础

下载此实例
  • 开发语言:C#
  • 实例大小:0.04M
  • 下载次数:41
  • 浏览次数:1889
  • 发布时间:2019-07-14
  • 实例类别:C#语言基础
  • 发 布 人:crazycode
  • 文件格式:.rar
  • 所需积分:2
 相关标签: 删除

同类人气实例

实例介绍

【实例简介】CAD二次开发C#代码,给定容差删除多段线、二维多段线、三维多段线上的重复点,CAD2010,VS2012
【实例截图】

【核心代码】


using System;
using System.Collections;
using System.Collections.Generic;
using System.Linq;
using System.Text;
using Autodesk.AutoCAD.Runtime;
using Autodesk.AutoCAD.EditorInput;
using Autodesk.AutoCAD.ApplicationServices;
using Autodesk.AutoCAD.DatabaseServices;
using Autodesk.AutoCAD.Geometry;

[assembly:CommandClass(typeof(CheckDwgData.BasicCheck))]
namespace CheckDwgData
{
    public class BasicCheck
    {
        /// <summary>
        /// 删除重复点
        /// </summary>
        /// <param name="acadDoc">当前文档</param>
        /// <param name="cur">曲线</param>
        /// <param name="dblDis">容差</param>
        public void DeleteDuplicatePoints(Document acadDoc, Curve cur, Double dblDis)
        {
            #region
            Editor ed = acadDoc.Editor;
            Database db=acadDoc.Database;

            Point2d pt2d1 = new Point2d();
            Point2d pt2d2 = new Point2d();

            Point3d pt3d1 = new Point3d();
            Point3d pt3d2 = new Point3d();
            
            Tolerance tol = new Tolerance(dblDis, dblDis);
            int intIndex = 0;
            switch (cur.GetType().ToString())
            {
                case "Autodesk.AutoCAD.DatabaseServices.Polyline":
                    using (Transaction tr = db.TransactionManager.StartTransaction())
                    {
                        Polyline poly = cur as Polyline;
                        while (intIndex < poly.NumberOfVertices)
                        {
                            if (intIndex != poly.NumberOfVertices-1)
                            {
                                pt2d1 = poly.GetPoint2dAt(intIndex);
                                pt2d2 = poly.GetPoint2dAt(intIndex   1);

                            }
                            else if (poly.Closed == true)
                            {
                                pt2d1 = poly.GetPoint2dAt(intIndex);
                                pt2d2 = poly.GetPoint2dAt(0);
                            }
                            
                            if (pt2d1.IsEqualTo(pt2d2,tol))
                            {
                                poly = (Polyline)tr.GetObject(poly.ObjectId, OpenMode.ForWrite);
                                poly.RemoveVertexAt(intIndex);
                                intIndex--;
                            }
                            intIndex  ;
                        }
                        tr.Commit();
                    }
                    break;
                case "Autodesk.AutoCAD.DatabaseServices.Polyline2d":                    
                    using (Transaction tr = db.TransactionManager.StartTransaction())
                    {
                         Polyline2d poly2d = cur as Polyline2d;
                         IEnumerator  it= poly2d.GetEnumerator();
                         it.MoveNext();
                         Vertex2d ver2dFir = (Vertex2d)tr.GetObject((ObjectId)it.Current, OpenMode.ForWrite);
                         Vertex2d ver2dTmp = ver2dFir; 
                         while(it.MoveNext())
                         {
                            Vertex2d ver2d = (Vertex2d)tr.GetObject((ObjectId)it.Current, OpenMode.ForWrite);
                            pt3d1 = ver2dTmp.Position;
                            pt3d2 = ver2d.Position;

                            if (pt3d1.IsEqualTo(pt3d2, tol))
                            {
                                ver2dTmp.Erase();
                            }
                                ver2dTmp = ver2d;                                                          
                          }

                         if (poly2d.Closed == true)
                         {
                             pt3d1 = ver2dTmp.Position;
                             pt3d2 = ver2dFir.Position;
                             if (pt3d1.IsEqualTo(pt3d2, tol))
                             {
                                 ver2dTmp.Erase();
                             }
                         }
                        tr.Commit(); 
                    }
                    break;
                case "Autodesk.AutoCAD.DatabaseServices.Polyline3d":
                    using (Transaction tr = db.TransactionManager.StartTransaction())
                    {
                         Polyline3d poly3d = cur as Polyline3d;
                         IEnumerator  it= poly3d.GetEnumerator();                         
                         it.MoveNext();
                         PolylineVertex3d ver3dFir = tr.GetObject((ObjectId)it.Current, OpenMode.ForWrite) as PolylineVertex3d;
                         PolylineVertex3d ver3dTmp = ver3dFir; 
                         while(it.MoveNext())
                         {
                            PolylineVertex3d ver3d =tr.GetObject((ObjectId)it.Current, OpenMode.ForWrite) as PolylineVertex3d;
                            pt3d1 = ver3dTmp.Position;
                            pt3d2 = ver3d.Position;
                            if (pt3d1.IsEqualTo(pt3d2, tol))
                            {
                                ver3dTmp.Erase();
                            }
                                ver3dTmp = ver3d;                                                          
                          }

                         if (poly3d.Closed == true)
                         {
                             pt3d1 = ver3dTmp.Position;
                             pt3d2 = ver3dFir.Position;
                             if (pt3d1.IsEqualTo(pt3d2, tol))
                             {
                                 ver3dTmp.Erase();
                             }
                         }

                        tr.Commit(); 
                    }
                    break;
            }
            #endregion
        }

        [CommandMethod("Test")]
        public void Test()
        {
            Document acadDoc = Application.DocumentManager.MdiActiveDocument;
            Editor ed = acadDoc.Editor;
            Entity ent = Entity("选择实体");
            ed.WriteMessage(ent.GetType().ToString());

            DeleteDuplicatePoints(acadDoc, (Curve)ent, 0.5);

        }

        /// <summary>
        /// 选择单个实体
        /// </summary>
        /// <param name="strMsg"></param>
        /// <returns></returns>
        public static Entity Entity(string strMsg)
        {
            Document doc = Application.DocumentManager.MdiActiveDocument;
            Editor ed = doc.Editor;
            Database db = doc.Database;

            Entity entity = null;
            PromptEntityResult ent = ed.GetEntity(strMsg);
            if (ent.Status == PromptStatus.OK)
            {
                using (Transaction tr = db.TransactionManager.StartTransaction())
                {
                    entity = (Entity)tr.GetObject(ent.ObjectId, OpenMode.ForWrite, true);
                    tr.Commit();
                }
            }
            return entity;
        }

    }
}
    


标签: 删除

实例下载地址

CAD 删除多段线上重复点

不能下载?内容有错? 点击这里报错 + 投诉 + 提问

好例子网口号:伸出你的我的手 — 分享

网友评论

第 1 楼 bndys 发表于: 2020-05-15 22:06 56
您好,请问这个具体怎么使用,CAD插件常见的格式为LSP,VLX格式,可是这个不是,希望发个教程照顾一下我们这种小白。谢谢。

支持(0) 盖楼(回复)

第 2 楼 bndys 发表于: 2020-05-27 09:34 31
作者您好?望回复。

支持(0) 盖楼(回复)

发表评论

(您的评论需要经过审核才能显示)

查看所有2条评论>>

小贴士

感谢您为本站写下的评论,您的评论对其它用户来说具有重要的参考价值,所以请认真填写。

  • 类似“顶”、“沙发”之类没有营养的文字,对勤劳贡献的楼主来说是令人沮丧的反馈信息。
  • 相信您也不想看到一排文字/表情墙,所以请不要反馈意义不大的重复字符,也请尽量不要纯表情的回复。
  • 提问之前请再仔细看一遍楼主的说明,或许是您遗漏了。
  • 请勿到处挖坑绊人、招贴广告。既占空间让人厌烦,又没人会搭理,于人于己都无利。

关于好例子网

本站旨在为广大IT学习爱好者提供一个非营利性互相学习交流分享平台。本站所有资源都可以被免费获取学习研究。本站资源来自网友分享,对搜索内容的合法性不具有预见性、识别性、控制性,仅供学习研究,请务必在下载后24小时内给予删除,不得用于其他任何用途,否则后果自负。基于互联网的特殊性,平台无法对用户传输的作品、信息、内容的权属或合法性、安全性、合规性、真实性、科学性、完整权、有效性等进行实质审查;无论平台是否已进行审查,用户均应自行承担因其传输的作品、信息、内容而可能或已经产生的侵权或权属纠纷等法律责任。本站所有资源不代表本站的观点或立场,基于网友分享,根据中国法律《信息网络传播权保护条例》第二十二与二十三条之规定,若资源存在侵权或相关问题请联系本站客服人员,点此联系我们。关于更多版权及免责申明参见 版权及免责申明

;
报警