买专利卖专利找龙图腾，真高效！ 查专利查商标用IPTOP,全免费！专利年费监控用IP管家,真方便！

龙图腾网获悉西藏翔龙矿业有限公司申请的专利基于Autolisp的三维地质剖面插图快速绘制方法获国家发明授权专利权，本发明授权专利权由国家知识产权局授予，授权公告号为：CN120973277B 。

龙图腾网通过国家知识产权局官网在2026-04-10发布的发明授权授权公告中获悉：该发明授权的专利申请号/专利号为：202511032987.X，技术领域涉及：G06F3/04845；该发明授权基于Autolisp的三维地质剖面插图快速绘制方法是由林毅斌;詹术霖;陈树源;石苏东;徐安亮;蓝晓聪设计研发完成，并于2025-07-25向国家知识产权局提交的专利申请。

本基于Autolisp的三维地质剖面插图快速绘制方法在说明书摘要公布了：本发明提供了基于Autolisp的三维地质剖面插图快速绘制方法，包括以下步骤：S1.交互式矩形定位快速裁剪；S2.基于围栏模式快速裁剪地表线上部线段；S3.快速增加边框；S4.属性驱动式图元对象批量选择。本发明彻底替代现有依赖大量人工操作的CAD插图绘制流程，实现将三维地质模型剖面图快速、精准、标准化绘制成报告插图，大幅提升地质勘探领域成果编制的效率与质量，解决当前地质人员在绘制插图过程中存在的机械性重复劳动等问题。

本发明授权基于Autolisp的三维地质剖面插图快速绘制方法在权利要求书中公布了：1.基于Autolisp的三维地质剖面插图快速绘制方法，其特征在于，包括以下步骤： S1.交互式矩形定位快速裁剪；与用户交互获取矩形对角点，根据对角点确定矩形4个坐标：最小横坐标、最大横坐标、最小纵坐标及最大纵坐标，绘制临时矩形并基于所述4个坐标生成闭合围栏点列表，以临时矩形为边界、闭合围栏点列表为选择器，裁剪矩形外部线段，得到初步裁剪后的剖面图； S2.基于围栏模式快速裁剪地表线上部线段；以S1得到的初步裁剪后的剖面图为基础，与用户交互获取基准线，提取基准线关键点并生成上部围栏点列表，裁剪与上部围栏点列表相交的地表线上部线段，得到精简后的剖面图； S3.快速增加边框；以S2得到的精简后的剖面图为基础，关闭对象捕捉后选择最左和最右多段线作为基准线对象，提取基准线端点坐标，计算内外边框坐标并绘制地表线外推矩形、内外边框，修改边框线宽属性后恢复对象捕捉，得到带标准边框的剖面图； S4.属性驱动式图元对象批量选择；以S3得到的带标准边框的剖面图为基础，与用户交互选择参考对象并提取其属性组合，遍历全图对象筛选出匹配该属性组合的对象，高亮显示并输出匹配数量，得到可直接用于报告的标准化插图； S3中绘制边框包括：根据左右多段线端点计算向外推10个单位长度绘制地表线外推矩形，该矩形与内边框间距10个单位长度，内边框与外边框间距2个单位长度，其中外边框线宽设为0.8，内边框及地表线外推矩形线宽设为0.1； S3中关闭对象捕捉包括：先通过Autolisp的getvar函数获取当前对象捕捉模式的系统变量初始值并保存，再通过setvar函数将系统变量设为0以关闭所有对象捕捉模式； S3中选择左右多段线包括：利用entsel命令提示用户选择左侧及右侧多段线，结合car函数将获取的基准对象图元名保存至lineName变量，利用entget获取变量lineName遵循DXF组码标准的键值对集合，再利用assoc函数获取组码为0的图元类型，判断是否为多段线，若否则退出处理，最后，利用foreach循环遍历图元信息中组码为10的数据提取所选基准线段顶点坐标，并将线段头尾两个端点坐标保存。

如需购买、转让、实施、许可或投资类似专利技术，可联系本专利的申请人或专利权人西藏翔龙矿业有限公司，其通讯地址为：858500 西藏自治区日喀则市昂仁县亚木乡许如村；或者联系龙图腾网官方客服，联系龙图腾网可拨打电话0551-65771310或微信搜索“龙图腾网”。

以上内容由龙图腾AI智能生成。