CAD环境中批量求算DWG面积

最新推荐文章于 2023-01-10 17:04:34 发布
最新推荐文章于 2023-01-10 17:04:34 发布
阅读量2.3k 收藏 2
点赞数
分类专栏： AutoCAD
版权声明：本文为博主原创文章，遵循 CC 4.0 BY-SA 版权协议，转载请附上原文出处链接和本声明。
本文链接：https://blog.csdn.net/wl05031/article/details/18600947
版权

由于DWG图层中，面积单元都是存放在FQ层中，所以需要批量计算FQ图层的面积。

主要代码如下：

        [CommandMethod("dwgarea")]
        public void CalCADAllDwgArea()
        {
            frmDwgArea pFrmDwgArea = new frmDwgArea();
            Autodesk.AutoCAD.ApplicationServices.Application.ShowModalDialog(pFrmDwgArea);
           

            //#region CAD命令下
            //string strAppExcel = System.IO.Path.Combine(System.Environment.GetFolderPath(Environment.SpecialFolder.MyDocuments), "JHBArea.xls");
            //HSSFWorkbook wk = null;
            //ISheet pSheet = null;

            //if (File.Exists(strAppExcel))
            //{
            //    using (FileStream fs = new FileStream(strAppExcel, FileMode.OpenOrCreate, FileAccess.ReadWrite))
            //    {
            //        wk = new HSSFWorkbook(fs);
            //        pSheet = wk.GetSheet("mysheet");
            //        if (pSheet == null)
            //        {
            //            pSheet = wk.CreateSheet("mysheet");
            //        }
            //        CreateHeader(pSheet, wk, new string[] { strTHField, strDwgAreaField });
            //    }
            //}
            //else
            //{
            //    using (FileStream fs = new FileStream(strAppExcel, FileMode.CreateNew, FileAccess.ReadWrite))
            //    {
            //        wk = new HSSFWorkbook();
            //        pSheet = wk.GetSheet("mysheet");
            //        if (pSheet == null)
            //        {
            //            pSheet = wk.CreateSheet("mysheet");
            //        }
            //        CreateHeader(pSheet, wk, new string[] { strTHField, strDwgAreaField });
            //    }
            //}


            //string strAllDwgPath = @"D:\GeiHeNingNing";
            //if (!Directory.Exists(strAllDwgPath))
            //{
            //    Autodesk.AutoCAD.ApplicationServices.Application.ShowAlertDialog(strAllDwgPath + "路径不存在");
            //    return;
            //}
            //string strDWGAreaLayerName = "FQ";

            //PromptStringOptions pStrOpts = new PromptStringOptions("\n请输入结合表二维线图层名称: ");
            //pStrOpts.AllowSpaces = false;
            //pStrOpts.UseDefaultValue = true;
            //pStrOpts.DefaultValue = strDWGAreaLayerName;


            //ArrayList layerArrayList = null;

            //int iRowCount = 0;
            //string[] strDwgPathArray = Directory.GetFiles(strAllDwgPath, "*.dwg", SearchOption.TopDirectoryOnly);

            //Editor ed = Autodesk.AutoCAD.ApplicationServices.Application.DocumentManager.MdiActiveDocument.Editor;
            //DocumentLock docLock = Autodesk.AutoCAD.ApplicationServices.Application.DocumentManager.MdiActiveDocument.LockDocument();
            //Database dbOld = HostApplicationServices.WorkingDatabase;

            //bool blValidateFQLayer = false;

            //foreach (string strEveryDwg in strDwgPathArray)
            //{
            //    if (File.Exists(strEveryDwg))
            //    {
            //        using (Database db = new Database(false, true))
            //        {
            //            db.ReadDwgFile(strEveryDwg, FileShare.ReadWrite,false,null);
            //            db.Fillmode = true;
            //            HostApplicationServices.WorkingDatabase = db;


            //            if (!blValidateFQLayer)
            //            {
            //                PromptResult pStrRes = ed.GetString(pStrOpts);
            //                if (layerArrayList == null)
            //                {
            //                    layerArrayList = GetLayerName(db);
            //                }
            //                if (pStrRes.Status == PromptStatus.OK)
            //                {
            //                    strDWGAreaLayerName = pStrRes.StringResult;
            //                    ed.WriteMessage("您输入的DWG计算面积图层名称为" + strDWGAreaLayerName);
            //                    if (!layerArrayList.Contains(strDWGAreaLayerName))
            //                    {
            //                        Autodesk.AutoCAD.ApplicationServices.Application.ShowAlertDialog("未找到DWG计算面积图层名称" + strDWGAreaLayerName);
            //                        blValidateFQLayer = false;
            //                        HostApplicationServices.WorkingDatabase = dbOld;
            //                        docLock.Dispose();
            //                        return;
            //                    }
            //                    blValidateFQLayer = true;
            //                }
            //            }

            //            using (Transaction acTrans = db.TransactionManager.StartTransaction())
            //            {
            //                ObjectIdCollection objDwgFQEntityCol = GetObjectidsAtLayer(strDWGAreaLayerName);
            //                if (objDwgFQEntityCol.Count == 1)
            //                {
            //                    foreach (ObjectId DwgFQEntityID in objDwgFQEntityCol)
            //                    {
            //                        Entity pDwgFQEntity = acTrans.GetObject(DwgFQEntityID, OpenMode.ForRead) as Entity;
            //                        Polyline2d pPolyline2d = pDwgFQEntity as Polyline2d;
            //                        if (pPolyline2d != null)
            //                        {
            //                            string strTH = System.IO.Path.GetFileNameWithoutExtension(strEveryDwg);
            //                            int iRowIndex = GetTHRowIndexFromNOPIExcel(strTH, pSheet);
            //                            IRow pRow = null;
            //                            if (iRowIndex == -1)
            //                            {
            //                                pRow = pSheet.CreateRow(++iRowCount);
            //                                ed.WriteMessage("\n正在写入第" + iRowCount.ToString() + "个@@@单元名：" + strTH + "@@@的面积");
            //                            }
            //                            else
            //                            {
            //                                pRow = pSheet.GetRow(iRowIndex);
            //                                ed.WriteMessage("\n正在写入第" + String.Format("{0}", iRowIndex) + "个@@@单元名：" + strTH + "@@@的面积");
            //                            }

            //                            ICell pCell = pRow.CreateCell(GetFieldColumnIndexFromNOPIExcel(strTHField, pSheet) > -1 ? GetFieldColumnIndexFromNOPIExcel(strTHField, pSheet) : 0);
            //                            pCell.SetCellValue(strTH);

            //                            pCell = pRow.CreateCell(GetFieldColumnIndexFromNOPIExcel(strDwgAreaField, pSheet) > -1 ? GetFieldColumnIndexFromNOPIExcel(strDwgAreaField, pSheet) : 0);
            //                            pCell.SetCellValue(pPolyline2d.Area.ToString("f4"));
            //                        }
            //                    }
            //                }
            //                acTrans.Commit();
            //            }
            //            db.SaveAs(strEveryDwg, DwgVersion.Current);
            //            HostApplicationServices.WorkingDatabase = dbOld;
            //        }
            //    }
            //}
            //ed.WriteMessage("处理完成:总共处理" + strDwgPathArray.Length.ToString() + "个单元;图号面积存储在" + strAppExcel);
            //docLock.Dispose();
            //using (FileStream fs = File.OpenWrite(strAppExcel))
            //{
            //    wk.Write(fs);
            //    fs.Close();
            //}
            //#endregion
        }

由于采用了对话框，现将对话框代码粘贴如下：
选择文本路径触发事件： 

private void btnNewDwgBrowse_Click(object sender, EventArgs e)
        {
            FolderBrowserDialog pFolderBrowserDialog = new FolderBrowserDialog();
            pFolderBrowserDialog.ShowNewFolderButton = false;
            pFolderBrowserDialog.Description = "选择DWG文件路径";
            if (!String.IsNullOrEmpty(tbxNewDWGPath.Text))
            {
                pFolderBrowserDialog.SelectedPath = tbxNewDWGPath.Text;
            }

            if (pFolderBrowserDialog.ShowDialog() == System.Windows.Forms.DialogResult.OK)
            {

                if(pFolderBrowserDialog.SelectedPath.EndsWith(System.IO.Path.DirectorySeparatorChar.ToString()))
                {
                     tbxNewDWGPath.Text= pFolderBrowserDialog.SelectedPath;
                }
                else
                {
                    tbxNewDWGPath.Text = pFolderBrowserDialog.SelectedPath+System.IO.Path.DirectorySeparatorChar.ToString();
                }

            }
        }
退出按钮点击触发事件： 

private void btnCancel_Click(object sender, EventArgs e)
        {
            this.DialogResult = DialogResult.Cancel;
        }

确定按钮点击触发事件： 

private void btnOK_Click(object sender, EventArgs e)
        {
            string strAllDwgPath = tbxNewDWGPath.Text;
            if (String.IsNullOrEmpty(tbxNewDWGPath.Text))
            {
                MessageBox.Show("DWG文件夹路径为空");
                return;
            }
            
            if (!Directory.Exists(strAllDwgPath))
            {
                Autodesk.AutoCAD.ApplicationServices.Application.ShowAlertDialog(strAllDwgPath + "路径不存在");
                return;
            }

            string strAppExcel = System.IO.Path.Combine(System.Environment.GetFolderPath(Environment.SpecialFolder.MyDocuments), "JHBArea.xls");
            HSSFWorkbook wk = null;
            ISheet pSheet = null;

            if (File.Exists(strAppExcel))
            {
                using (FileStream fs = new FileStream(strAppExcel, FileMode.OpenOrCreate, FileAccess.ReadWrite))
                {
                    try
                    {
                        wk = new HSSFWorkbook(fs);
                    }
                    catch
                    {
                        File.Delete(strAppExcel);
                        wk = new HSSFWorkbook();
                    }
                        pSheet = wk.GetSheet("mysheet");
                        if (pSheet == null)
                        {
                            pSheet = wk.CreateSheet("mysheet");
                        }

                    CADJHBArea.CreateHeader(pSheet, wk, new string[] { CADJHBArea.strTHField, CADJHBArea.strDwgAreaField });
                }
            }
            else
            {
                using (FileStream fs = new FileStream(strAppExcel, FileMode.CreateNew, FileAccess.ReadWrite))
                {
                    wk = new HSSFWorkbook();
                    pSheet = wk.GetSheet("mysheet");
                    if (pSheet == null)
                    {
                        pSheet = wk.CreateSheet("mysheet");
                    }
                    CADJHBArea.CreateHeader(pSheet, wk, new string[] { CADJHBArea.strTHField, CADJHBArea.strDwgAreaField });
                }
            }

            string strDWGAreaLayerName = "FQ";

            PromptStringOptions pStrOpts = new PromptStringOptions("\n请输入结合表二维线图层名称: ");
            pStrOpts.AllowSpaces = false;
            pStrOpts.UseDefaultValue = true;
            pStrOpts.DefaultValue = strDWGAreaLayerName;


            ArrayList layerArrayList = null;

            int iRowCount = 0;
            string[] strDwgPathArray = Directory.GetFiles(strAllDwgPath, "*.dwg", SearchOption.TopDirectoryOnly);

            Editor ed = Autodesk.AutoCAD.ApplicationServices.Application.DocumentManager.MdiActiveDocument.Editor;
            DocumentLock docLock = Autodesk.AutoCAD.ApplicationServices.Application.DocumentManager.MdiActiveDocument.LockDocument();
            Database dbOld = HostApplicationServices.WorkingDatabase;

            bool blValidateFQLayer = false;
        
            foreach (string strEveryDwg in strDwgPathArray)
            {
                if (File.Exists(strEveryDwg))
                {
                    using (Database db = new Database(false, true))
                    {
                        db.ReadDwgFile(strEveryDwg, FileShare.ReadWrite, false, null);
                        db.Fillmode = true;
                        HostApplicationServices.WorkingDatabase = db;


                        if (!blValidateFQLayer)
                        {
                            PromptResult pStrRes = ed.GetString(pStrOpts);
                            if (layerArrayList == null)
                            {
                                layerArrayList = CADJHBArea.GetLayerName(db);
                            }
                            if (pStrRes.Status == PromptStatus.OK)
                            {
                                strDWGAreaLayerName = pStrRes.StringResult;
                                ed.WriteMessage("您输入的DWG计算面积图层名称为" + strDWGAreaLayerName);
                                if (!layerArrayList.Contains(strDWGAreaLayerName))
                                {
                                    Autodesk.AutoCAD.ApplicationServices.Application.ShowAlertDialog("未找到DWG计算面积图层名称" + strDWGAreaLayerName);
                                    blValidateFQLayer = false;
                                    HostApplicationServices.WorkingDatabase = dbOld;
                                    docLock.Dispose();
                                    return;
                                }
                                blValidateFQLayer = true;
                            }
                        }

                        using (Transaction acTrans = db.TransactionManager.StartTransaction())
                        {
                            ObjectIdCollection objDwgFQEntityCol = CADJHBArea.GetObjectidsAtLayer(strDWGAreaLayerName);
                            if (objDwgFQEntityCol.Count == 1)
                            {
                                foreach (ObjectId DwgFQEntityID in objDwgFQEntityCol)
                                {
                                    Entity pDwgFQEntity = acTrans.GetObject(DwgFQEntityID, OpenMode.ForRead) as Entity;
                                    Polyline2d pPolyline2d = pDwgFQEntity as Polyline2d;
                                    if (pPolyline2d != null)
                                    {
                                        string strTH = System.IO.Path.GetFileNameWithoutExtension(strEveryDwg);
                                        int iRowIndex = CADJHBArea.GetTHRowIndexFromNOPIExcel(strTH, pSheet);
                                        IRow pRow = null;
                                        if (iRowIndex == -1)
                                        {
                                            pRow = pSheet.CreateRow(++iRowCount);
                                            ed.WriteMessage("\n正在写入第" + iRowCount.ToString() + "个@@@单元名：" + strTH + "@@@的面积");
                                        }
                                        else
                                        {
                                            pRow = pSheet.GetRow(iRowIndex);
                                            ed.WriteMessage("\n正在写入第" + String.Format("{0}", iRowIndex) + "个@@@单元名：" + strTH + "@@@的面积");
                                        }

                                        ICell pCell = pRow.CreateCell(CADJHBArea.GetFieldColumnIndexFromNOPIExcel(CADJHBArea.strTHField, pSheet) > -1 ? CADJHBArea.GetFieldColumnIndexFromNOPIExcel(CADJHBArea.strTHField, pSheet) : 0);
                                        pCell.SetCellValue(strTH);

                                        pCell = pRow.CreateCell(CADJHBArea.GetFieldColumnIndexFromNOPIExcel(CADJHBArea.strDwgAreaField, pSheet) > -1 ? CADJHBArea.GetFieldColumnIndexFromNOPIExcel(CADJHBArea.strDwgAreaField, pSheet) : 0);
                                        pCell.SetCellValue(pPolyline2d.Area.ToString("f4"));
                                    }
                                }
                            }
                            acTrans.Commit();
                        }
                        db.SaveAs(strEveryDwg, DwgVersion.Current);
                        HostApplicationServices.WorkingDatabase = dbOld;
                    }
                }
            }
            ed.WriteMessage("处理完成:总共处理" + strDwgPathArray.Length.ToString() + "个单元;图号面积存储在" + strAppExcel);
            docLock.Dispose();
            using (FileStream fs = File.OpenWrite(strAppExcel))
            {
                wk.Write(fs);
                fs.Close();
            }
            this.DialogResult = DialogResult.OK;
        }

以下是对话框图片：

说明如下：里面凡是涉及到CADJHBArea类的静态方法，请参考我的上一篇博客:CAD环境中求算接合表面积

月之圣痕
关注
  • 0
    点赞
  • 踩
  • 2
    收藏
    觉得还不错? 一键收藏
  • 0
    评论
专栏目录
AUTOCAD——计算面积的方法
MxCAD_soft的博客
07-25 1万+
若计算面积周长的对象是面域，则输入“AA”，空格，根据提示，输入对象指令“O”，空格，鼠标左键点击，选择填充的面域，测量完成。若是多段线，则鼠标左键点击多段线后，测量完成。
cad看图和批量打印
07-03
2. CAD批量打印： - 批量处理：用户可以一次性选择多个CAD图纸文件，进行批量打印操作，避免了单个文件逐一打印的繁琐。 - 打印设置：允许用户自定义打印范围，可以选择整个图纸、某个图层或者自定义矩形区域进行...
cad计算图层面积
weixin_40874151的博客
01-10 2692
CAD计算 单块、图层面积
python 连接CAD 修改图斑点顺序到西北角
weixin_42479058的博客
03-01 355
**对西北角的判断是通过点到矩形外框西北角的距离，和方位角的大小来判断。程序不是很完美，没有太多的思路。 希望程序对测绘工作中有些帮助。** import win32com.client import pythoncom import tkinter as tk from tkinter import messagebox import numpy import math def vtpnt(x, y, z=0): """坐标点转化为浮点数""" return win32com.cli
用python批量获取cad中线段点组成的凸包 + 面积
weixin_42479058的博客
06-11 691
用python批量获取cad中所有线段组成的最外围面积 import win32com.client import pythoncom import tubao import gelin import numpy from tkinter import filedialog import time def list_change(old_list, step=4, stop=None): # 列表，步长，保留元素到第几个索引位置 new_list = [old_list[x:x + step]
浩辰CAD 2018 GstarCAD Pro 2018 SP2 中文免费版.zip
05-25
与AutoCAD®平台数据双向兼容，支持最新版本的DWG/DXF数据格式 创新技术升级 利用智能区域显示、分级内存交换和图形数据自适应压缩技术，操作超大图纸的流畅度相比其他软件提升5倍以上 操作界面相同 界面、操作...
易语言CAD脚本
07-18
易语言CAD脚本的"指标"可能指的是在CAD设计中使用的特定度量或参数，比如长度、角度、面积等。这些指标可以通过脚本动态计算和显示，为设计师提供实时的设计反馈。"关于"可能是指相关的帮助文档、教程或项目说明，...
AutoCAD Lisp程序100例.rar
08-12
例如，你可以编写程序来读取、修改或分析图形中的对象属性，如长度、角度、颜色等，或者进行几何计算，如距离、面积和体积的测量。 6. 图形交互：Lisp可以实现与用户交互，通过对话框获取输入或显示结果。这在创建...
CAD迷你看图.rar
01-26
3. **图纸操作**：用户可以在程序中进行缩放、平移、旋转等基本操作，同时支持测量距离、面积，方便工程计算。此外，还可以进行图层管理，隐藏或显示不同图层，以便于集中查看特定部分。 4. **文字查找与编辑**：...
CAD多段线批量标注面积
05-08
CAD封闭多段线批量标注面积，标注位置位于多段线内部几何中心点，注记内容包括单位为平方米和单位为亩的文本。源码奉上，如果看懂代码的可以根据自己需要修改内容谢谢！
CAD面积插件,适用所有CAD版本。
07-14
快速标注面积、面积统计求和、调整多复合线长度，适用最高CAD2020版本。
CAD面积和块统计插件
03-06
CAD面积和块统计插件，用于计算cad软件中的面积和块
CAD lisp 面积统计
11-01
CAD lisp 面积统计 CAD lisp 面积统计CAD lisp 面积统计CAD lisp 面积统计
cad算面积.lsp
12-14
利用CAD计算面积。
【快速统计面积周长】封闭图形快速面积求和CAD插件【LSP】
热门推荐
疯狂模渲大师作者食住玩
01-29 1万+
共享一个快速统计多个区域面积总和的插件--使用方法演示网页下载链接http://t.cn/EtADWHS ...
CAD怎么计算面积?cad计算面积快捷键是什么?
shenxianmingzi的博客
09-11 7604
AutoCAD是一个功能强大的绘图软件，可以满足很多专业需求。那么如果通过制作完成的作品如何计算图像的面积和周长呢?cad里计算面积和周长的快捷键是什么呢? 1.首先你要计算面积的部分应该是密闭的 2.要创建成为面域或者填充 3.AA+空格，接着选中你要量的房间中的一个点作为起始点，接下来就一个点一个点描过去，绿**域就是你要测量的面积描完后空格就可以看到数据了。或者你可以用PL线将你要量的房间...
怎样去测量CAD面积？
weixin_34019144的博客
11-17 331
2019独角兽企业重金招聘Python工程师标准>>> ...
CAD 面积分摊工具
05-26
CAD 面积分摊工具 LSP格式 绝对好用
脱离cad环境读取dwg
最新发布
06-25
DWG文件是CAD文件的一种格式，通常只能在CAD环境中被读取和编辑。但是，有时候我们需要脱离CAD环境读取DWG，这时候就需要采取一些解决方案。 一种解决方案是使用专门的DWG文件查看器。这些软件通常可以打开DWG文件...

“相关推荐”对你有帮助么？

  • 非常没帮助
  • 没帮助
  • 一般
  • 有帮助
  • 非常有帮助
提交
评论
添加红包

请填写红包祝福语或标题

个

红包个数最小为10个

元

红包金额最低5元

当前余额3.43元 前往充值 >
需支付：10.00元
成就一亿技术人!
领取后你会自动成为博主和红包主的粉丝 规则
hope_wisdom
发出的红包
实付元
使用余额支付
点击重新获取
扫码支付
钱包余额 0

抵扣说明：

1.余额是钱包充值的虚拟货币，按照1:1的比例进行支付金额的抵扣。
2.余额无法直接购买下载，可以购买VIP、付费专栏及课程。

余额充值