基于VBA的AutoCAD下载某矿区卫图的应用实例

开发研究基于VBA的AutoCAD开发实践任艳霞丁刚(济源职业技术学院，河南济源459000)摘要:针对AutoCAD现有功能的不足，基于Auto-CAD的VBA接口，通过二次开发增加一种矩形绘制命令,可通过指定矩形的中心及长、宽及旋转角度来进行矩形的绘制，使绘图效率大大提高。

关键词:AutoCAD；VBA；开发；实践0引言AutoCAD是Autodesk公司的CAD软件,具有良好的用户操作界面，利用命令行或交互菜单方式可以进行各种操作。

软件具有强大的绘图及图形编辑功能，绘图效率很高，被广泛使用于工程制图、土木建筑，电工电子工业等多饨域。

面对用户的多样化需求，任何软件都不可能做到面面俱到，所以AutoCAD软件提供了一些二次开发接口，以满足用户根据工作需求对软件进行一些针对性的开发工作。

其中的VBA工具，把AutoAD和VisualBasic的强大功能进行组合,利用VBA可以操作AutoCAD的暴露对象,可以根据需求对AutoCAD进行二次开发。

下面结合实例来说明运用VBA对AutoCAD进行二次开发的方法和技巧,掌握这种二次开发方法对于提高工作效率具有重要的意义。

1AutoCADVBA接口Microsoft VBA是一个面向对象的编程环境,可提供类似Visual Basic的丰富开发功能。

VBA和VB的主要差别是VBA和AutoCAD在同一进程空间中运行，提供的是具有AutoCAD智能的、非常，决速的编程环境。

VBA也向其他支持VBA的应用程序提供应用程序集成。

这就意味着AutoCAD伽其他应用程序对象库)可以是如Microsoft Word或Excel之类的其他应用程序的Automation控制程序。

在AutoCAD中实现VBA有如下优点:VBA及其开发环境易于学习和使用；VBA可与AutoCAD在同一进程空间中运行，使得程序执行速度彳艮快，开发人员可以构造应用程序并迅速收到设计的反馈;工程可以是独立的,也可以嵌入到图形中，为开发者提供了非常灵活的方式来发布囲蒯2增加一种矩形绘制命令图1所示为一个长方形薄板零件,其内部被切割掉了作者简介:任艳霞(1977-),女，河南鹤壁人,硕士，讲聊，研究方侖:模具CAD/CAM。

基于VBA在AutoCAD中自动绘图的应用------李广亚随着电脑技术的飞速发展，目前大多数企业都采用AutoCAD制图、绘图，在工程施工领域也是采用AutoCAD进行二维工程绘图。

GPS的应用使的施工现场坐标的采集非常方便，通常便于直观，监理、业主会要求将GPS采集的坐标绘制在CAD图上。

对于一个熟悉CAD的人来说，将10几个坐标数据手工录入坐标绘制到CAD中是比较容易的，但如果是几十个点，上百个点，甚至几百个点，对于一个施工技术员来说一个一个坐标的手工录入，就成了一个比较有难度的工作，主要因为手工录入会比较繁琐、耗费时间长还特别容易出错。

在这方面如何能提高技术人员的工作效率？基于此，我们采用AtuoCAD中的VBA技术，进二次开发，可以方便的将大量的坐标自动绘制到CAD图中。

下面通过一个简单事例来说明AtuoCAD中VBA技术的二次开发自动绘图程序的过程： 事件介绍：2012年业主在场区开挖一不规则多边形鱼塘，要求我单位将鱼塘进行测量并标注在总平面图上。

1、数据采集：使用GPS现场进行数据采集，在鱼塘周边从一点开始，顺时针方向进行，在不规则鱼塘的所有角点拐点均采集坐标，并保存在GPS中。

2、导出坐标：将GPS中采集的坐标导出到文本文档，如下图：3、数据处理：将导入的坐标使用EXCEl文档打开并编辑处理，高程全设为0，表单重命名为“SJ”，保存EXCEl文档到D盘，文档名称为“GPS导入坐标绘图”如下图：4、VBA跨平台技术二次开发：（1）、打开AutoCAD，选择工具->宏->VBA编辑器，打开VBA编辑器。

在VBA编缉器中插入用户窗体，在窗体上插入按钮组件，如图：（2）、双击按钮，打开代码编辑窗口，编缉代码如下：Private Sub CommandButton1_Click()Dim xlapp As Excel.ApplicationDim xlbook As Excel.workbookDim xlsheet As Excel.worksheetSet xlapp = CreateObject("excel.application")Set xlbook = xlapp.workbooks.Open("D:\GPS导入坐标绘图.xls")'打开的EXCEL路径xlapp.Visible = FalseSet xlsheet = xlbook.worksheets("sj") '打开EXCEL中的sj工作表i = xlsheet.Cells(1, 2) 'i为线条线数For p = 0 To i - 2 Step 1p = pk1 = xlsheet.Cells(3 + p, 3) '将表格第3行第3列内数值赋值给K1，X坐标值h1 = xlsheet.Cells(3 + p, 2)k3 = xlsheet.Cells(3 + p, 4)k2 = xlsheet.Cells(4 + p, 3)h2 = xlsheet.Cells(4 + p, 2)h3 = xlsheet.Cells(4 + p, 4)Dim 点 As AcadLineDim 起点(2) As DoubleDim 端点(2) As Double起点(0) = k1 '将K1值贱赋值给起点数组内第一个值，即起点X坐标。

基于VB和AutoCAD开发的井下常用工具图库管理系统[摘要] 针对井下常用工具没有统一标准，且在工艺技术创新和改进时，对涉及到的非标准件往往要进行重新设计这一问题，本文利用VB 6.0和AutoCAD 2008软件开发出井下常用工具图库管理系统，实现对油田井下常用工具图库的查找、添加、编辑等功能。

该系统的应用不仅为油田企业节省大量的人力物力，而且为油田工艺管理、施工作业、产品创新设计带来方便。

［关键词］VB；AutoCAD；图库管理在油田生产中，广泛使用着大量井下常用工具，如封隔器、地层测试器、射孔枪及其配件、磁性定位器等。

由于上述零部件属于非标准件，因此在生产作业过程中，同一系列的零部件没有统一的标准，经常出现“同一种工艺管柱，下井工具不同”的现象，给生产、施工带来不便。

另外，在进行工艺技术创新和改进时，对涉及到的非标准件往往要进行重新设计，既增加了非标件图绘制的重复劳动，浪费了大量的人力物力，又使工艺创新变得复杂化。

为此，本文利用ＶＢ和ＡｕｔｏＣＡＤ软件对井下常用工具图库管理系统进行开发。

这不仅可以节省大量的人力物力，降低劳动强度，而且还可为油田工艺管理、施工作业、产品创新设计带来方便。

２ＶＢ和ＡｕｔｏＣＡＤ软件简介ＶｉｓｕａｌＢａｓｉｃ是一种面向对象和可视化的Ｗｉｎｄｏｗｓ开发语言，采用事件驱动编程和交互式开发，数据库操作方便。

ＡｕｔｏＣＡＤ是由美国Ａｕｔｏｄｅｓｋ欧特克公司于20世纪80年代初为微机上应用ＣＡＤ技术（ＣｏｍｐｕｔｅｒＡｉｄｅｄＤｅｓｉｇｎ）而开发的计算机绘图软件包，经过不断的完善，现已经成为国际上广为流行的绘图工具。

ＡｕｔｏＣＡＤ具有良好的用户界面，通过交互菜单或命令行方式便可以进行各种操作。

它的多文档设计环境，让非计算机专业人员也能很快地学会使用。

为此，本文以ＷｉｎｄｏｗｓＸＰ为操作系统，选用ＶＢ６．０和ＡｕｔｏＣＡＤ２００８软件作为井下常用工具图库管理系统的开发工具。

AUTOCAD二次开发技术在矿建制图中的研究与应用摘要矿建施工用图的数量庞大种类繁多，如果只是使用AutoCAD进行人工绘图，显然效率较低。

为提高矿山施工制图的效率，本实验使用VBA通过AutoCAD提供的ActiveX对象接口对其进行二次开发，实现巷道断面图、井筒断面布置图、爆破施工图等图件的参数化绘图。

通过以爆破施工图绘制模块为例简要说明编写重点，详细介绍了崩落眼的绘制方法，并完成了绘图输出显示。

关键字二次开发；VBA；模块1 研究背景在采矿业使用最广泛的是AutoCAD。

AutoCAD作为一个通用的平台软件，并没有针对采矿设计的特点提供更多的便利，用AutoCAD绘制符合采矿设计规范的图形需要做大量重复而单调的劳动。

针对采矿行业开发的CAD软件。

它们一般都对采矿设计规范提供了丰富的支持，大大减少了用户花在基本图元、线形上的时间。

在此基础之上再对CAD软件进行二次开发。

二次开发后的CAD软件既有成熟CAD平台的稳定品质，又可针对采矿行业的特点提供丰富的功能支持。

VBA[1]是一个面向对象的编程环境，它和VB一样有很强的开发能力。

VBA 和VB两者之间的区别是VBA和AutoCAD运行在同一处理空间，为AutoCAD 提供智能和快速的编程环境。

2 设计思路基于AutoCAD的矿建施工图参数化绘制程序根据绘制矿图的实际需要和设计能力，本着简单实用，结构清晰的基本原则，在此只开发四个模块[2]：绘图环境初始化，巷道断面施工图绘制，井筒断面布置图绘制，爆破施工图绘制。

以巷道爆破施工图绘制模块为例，模块的绘制方法为：定义绘制爆破施工图所需的函数，在这些函数中调用AutoCAD提供的对象、方法、对象特性等实现函数定义的功能。

绘图模块接受用户输入参数，调用定义的函数绘制出用户需要的爆破施工图。

3 设计要点创建和编辑AutoCAD的图元，在本研究设计中主要使用了直线、曲线、图案填充等，以下以创建直线对象、编辑偏移对象为例简单阐述这些对象的创建方法：1）AddLine通过两点创建直线；2）AddLightweightPolyline从顶点列表创建二维优化多段线；3）AddMLine创建多线；4）AddPolyline创建二维或三维多段线。

30 | T echniques of Automation & Applications基于VBA 的AutoCAD 二次开发及应用实例王若慧（山西大学工程学院，山西　太原　０３００１３）摘 要：介绍了ＶＢＡ 二次开发ＡＵＴＯＣＡＤ的技术特点，并以实例说明ＶＢＡ应用程序的编写要点。

进一步验证了ＡＵＴＯＣＡＤ　与ＶＢＡ　以ＡｃｔｉｖｅＸ　Ａｕｔｏｍａｔｉｏｎ自动化接口技术实现连接，利用ＶＢ的可视化编程设计实现ＣＡＤ系统设计的实际价值。

关键词：ＶＢＡ；ＡＵＴＯＣＡＤ二次开发；自动化接口技术；ＣＡＤ系统中图分类号：ＴＰ３１１．１１ 文献标识码：Ｂ 文章编号：１００３－７２４１（２００７）０９－００３０－０４The VBA-Based Secondary Development of AutoCADWANG Ruo-hui(Engineering Colledge of SHANXI University, Taiyuan 030013 China)Abstract: This paper presents the secondary development of the AutoCAD based on VBA. The ActiveX Automation is used forthe interface between VBA and AutoCAD2005 to provide a visual design.Key words: VBA; AUTOCAD-development; ActiveX Automation; CAD sysytem收稿日期：２００７－０３－２１１ 引言［５］　［１］　［３］ＡｕｔｏＣＡＤ２００５是Ａｕｔｏｄｅｓｋ公司的系列产品，，该软件从其使用和设计思路上都秉承了工程制图人员的绘图习惯，能够非常轻松地绘制出带有平面视图和三维渲染效果的工程图纸，是绘图人员的一个理想工具．随着ＣＡＤ基础理论和应用技术的不断发展，对ＣＡＤ系统的功能要求也越来越高。

基于AUTOCAD下矿图符号库的开发与应用王翠玲，梅杰（兖矿集团济宁三号煤矿，山东济宁272000）摘要为提高制图的精度和降低成本，运用AutoCAD2004下自带的LISP建立动态矿图符号库，实现矿图要素符号分类绘制、编辑，及动态输出。

这一方法对于利用AutoCAD2004编辑、绘制矿图，提高矿图的绘制精度和质量，具有实用价值。

关键词AutoCAD LISP矿图符号库中图分类号TD171文献标识码C矿图是采矿企业必不可少的基础图件，矿图能够反映出矿体的形态、地质构造、井下巷道的空间关系、采掘状况及地面与井下的对照关系等。

开发矿图符号库主要有两个目的：（1）将矿图符号以数字图集的形式存储在计算机系统中，便于用户更好地使用系统和开发新系统；（2）将现行矿图绘制规范图式体现在符号库中，使矿图符号库成为用户进行矿图机助制图的新标准。

用户可以随时查询矿图的内容、表示方法、信息提取等。

AutoLISP语言既有一般高级语言的基本结构和功能，又具有强大的图形处理功能，是一种嵌入AutoCAD 内部的高级智能语言，能直接调用几乎全部的Auto-CAD命令，成为AutoCAD的主导开发工具，因而用Au-toLISP语言对AutoCAD进行了二次开发，建立了矿图符号库。

1点、线状符号的实现1．1点状符号的实现点状符号的设计是利用AutoCAD自带的AutoLISP 语言进行编写的。

对于点状符号，以定位点为原点构成一实体坐标系（ECS），各要素均以ECS中的坐标表示。

以“水准基点“为例讨论点状符号的生成，如图1所示。

图1水准基点符号所用程序代码为：（defun C：SZJD（）（setq o（getpoint"\n输入指定点："））（setq a（polar o pi0．75））（setq b（polar o00．75））（setq c（polar o（*pi0．5）0．75））（setq d（polar o（*pi1．5）0．75））*收稿日期：2011－08－03作者简介：王翠玲（1983－），女，2009年毕业于中国矿业大学，硕士，现在兖矿集团济宁三号煤矿地测中心从事地测绘图工作。

自动提取CAD图纸明细表及数据库管理的研究与实践本文TAG：工程图明细表自动提取AutoCAD数据库管理2008-10-21 作者：尹胜安出处：e-works 阅读：1582 推荐：0本文详细介绍了如何开发应用AutoCAD来自动提取CAD图纸明细表及管理数据库，其切切实实的为设计工作节约了大量的时间。

制造企业工程技术人员在利用CAD进行产品设计时产生大量的DWG文件，每一个DWG文件中包含一张或数张图纸，设计的基础资料如：工程项目、图号、设备（物料）名称、型号规格、材质、数量、重量、备注等等文本信息都记录在图纸标题栏明细表中。

设计工作完成后，工艺编制、成本预算、物料消耗、物流采购、计划调度、车间生产等项管理业务都将依据图纸进行操作。

在通常的管理中，各业务部门往往通过人工的方式从CAD图纸或纸质图纸明细表中获取技术文件数据，再利用WORD或EXCEL进行手工二次录入，编制各自需要的明细表、经过汇总，生成相应的报表，并在此基础上产生工艺技术文件通俗简称为（工单），按不同的用途也有的称之为物料消耗单、物料清单BOM等。

这种单页面的文本制作方式虽然使用了电脑操作，但并未能摆脱繁重的手工录入和编辑工作，不能进行数据的自动处理，存在图纸与制表数据不一致、差错率高、工作量大、编制周期长、效率低下、查询繁琐、数据不能共享等多种弊端。

因此，采用自动提取CAD明细表与进行数据库管理的方法是克服以上弊端提高企业设计、技术、管理效率和工作质量的有效途径。

AutoCAD是AutoDesk公司开发的通用CAD工作平台，在机械、造船、电子、汽车、测绘、建筑等许多行业中得到广泛的应用，其完善的图形绘制和编辑功能，多种接口文件，较强的数据交换能力，特别是开放的二次开发功能给用户提供了有力的技术支撑。

Microsoft VBA (Visual Basic for Application) 是一个面向对象的可视化编程环境，它是由V isual Basic派生而来，AutoCAD内嵌的VBA提供了与Visual Basic相似的丰富的开发能力。

基于VBA的AutoCAD下载某矿区卫图的应用实例
冯丽娜;冯晓语;冯晟铨
【期刊名称】《世界有色金属》
【年(卷),期】2017(000)013
【摘要】谷歌地图在地质找矿、测绘、环境等方面应用广泛,但在谷歌地图下载卫图仍然不便利,本文叙述了利用AutoCAD的VBA环境创建的下载谷歌卫图插件的方法来下载某矿区卫图的一个应用实例,参照谷歌地图瓦片分布及索引号,将图片下载到本地然后在AutoCAD中将瓦片拼接,最终达到在AutoCAD中下载某矿区矿卫图的目的,提高应用谷歌卫图的便利性.
【总页数】2页(P225-226)
【作者】冯丽娜;冯晓语;冯晟铨
【作者单位】河北地质大学,河北石家庄050031;河北地质大学,河北石家庄050031;河北地质大学,河北石家庄050031
【正文语种】中文
【中图分类】TD672
【相关文献】
1.基于VBA for AutoCAD塔基断面图自动化绘制 [J], 周红宇;肖伟红;陶晓学
2.基于VBA的AutoCAD二次开发及应用实例 [J], 王若慧
3.基于Excel VBA和AutoCAD的滚动轴承参数化比例图绘制方法 [J], 张雅娜;徐巍
4.基于AutoCAD VBA与Excel的桩位偏差竣工图绘制 [J], 翁浩
5.基于AutoCAD VBA与Excel的桩位偏差竣工图绘制 [J], 翁浩
因版权原因，仅展示原文概要，查看原文内容请购买。

利用VBA对AutoCAD二次开发在矿山测量中的应用摘要：本文通过对AutoCAD绘图软件、二次开发语言VBA的介绍，以及分析矿山测量在制图时对AutoCAD的需求，阐述利用VBA对AutoCAD二次开发在矿山测量中的应用。

关键词：AutoCAD；VBA；二次开发；矿山测量1关于AutoCAD、VBA1.1介绍AutoCAD、VBAAutoCAD（Auto Computer Aided Design）是美国Autodesk公司首次于1982年研究开发的计算机辅助设计软件，是目前国际上应用最流行的绘图工具，功能全面，操作稳定，普适性强，广泛用于二维绘图、详细绘制，深受各行各业设计者和工程技术人员的喜爱。

与此同时，高普适性也对应着AutoCAD另一大特点：开放的结构体系。

这种开放体系，使得不同行业、专业根据自身的特点能够对其进行Autodesk二次开发，可以说AutoCAD的普适性为其二次开发提供了必要条件，从而也弥补了其专业针对性能不强的弱点。

从AutoCAD R14.01版开始，Autodesk在AutoCAD中加入了VBA（Visual Basic for Applications），作为AutoCAD的一种二次开发工具。

VBA是一种完全面向对象体系结构的编程语言，是Visual Basic的一种宏语言，与VB有着相似的语言结构和开发环境。

在VBA中，AutoCAD通过AetiveX提供了一个沟通外部世界的机制，使得AutoCAD通过不同的编程语言和环境进行二次开发。

可见，VBA是通过ActiveX接口建立与AutoCAD对象之间的联系，在AutoCAD和Visual Basic之间搭建起起了一座桥梁，将其完美的融合在一起，创造出符合用户要求的程序，形成新的功能性强、灵活性高的软件。

1.2利用VBA对AutoCAD进行二次开发的优点VBA与其他AutoCAD二次开发技术相比，优点有很多：VB语言基础广泛。

用VBA对AutoCAD进行二次开发实现矿井巷道立体图的绘制摘要：在数字矿山的背景下，三维巷道图已经成为各种矿山信息数据库的载体。

可以使用VBA作为工具，对矿山普遍使用的AutoCAD制图工具进行二次开发，通过对二维图形的旋转、移动、拉伸方法，达到不用借助第三方软件方便实现巷道立体图绘制的目的。

关键词：数字矿山，三维可视化，AutoCAD ，VBA井下系统一般包括采矿、开拓掘进、运输、提升、通风安全、排水、动力供应、通讯、照明等若干个子系统。

每个子系统都有大量数据需要收集、传输和处理。

而其中的巷道是矿井运输、行人、通风和保证安全的通道，保持良好状况是实现矿井高产高效和安全生产的基本条件。

因此，清晰准确的巷道图是一个矿井高效和安全生产的必备条件。

用AutoCAD内嵌的VBA对其进行二次开发，实现巷道的立体化。

就是利用三维井巷实体的生成功能快速形成三维巷道，观察其空间位置，直观、快捷、准确、修改方便，而且其不需要知道设计位置的立面剖视图，采矿设计人员可以单独的完成采矿设计任务，灵活性加大。

同时，考虑到软件的适应性，模块能够将用户已经设计好的二维平面图纸，按照用户指定的井巷规格、断面形状，自动形成三维井巷实体。

1 巷道立体图建模方法1.1 巷道断面实现1.1.1 巷道断面模型巷道断面是巷道三维建模中的重要参数，一般来说，巷道体的断面有直壁拱形、梯形、矩形和圆筒形。

本文采用直壁半圆拱形作为巷道的断面模型，建立矿区的巷道三维立体图。

矩形、梯形断面与直壁拱形巷道建模类似，圆形相对比较容易，本文对其他形式的断面模型不再进行分析。

1.1.2 巷道断面绘制的实现举例说明：直壁半圆拱形断面如图1所示：以断面的左下角为坐标系原点，断面底线为X轴，断面壁为Y轴。

调用三次直线命令和一次画圆弧命令，具体步骤如下：（1）第一条用直线命令line()，以原点为起始点，以断面的底线长为X轴方向的距离确定第二个点，以此两点画出断面底线；（2）用AddArc（）命令绘制断面的半圆弧顶，其中以断面的二分之一长度为X轴方向的距离，以断面壁高为Y轴方向的距离来确定半圆弧的圆点，偏转角度为90度，且必须用弧度表示；（3）同理，以原点为起点，以半圆弧的终点为直线的第二点画出断面左帮；以第一条直线的终点为第二条直线的起点，以圆弧的起点为直线的第二点，以此画出断面右帮；1.2 巷道中心线数据的采集1.2.1 EXCEL文挡的应用本程序就是依据EXCEL强大公式计算方面的优势，在管理及计算巷道中心点的坐标的基础上，利用AutoCAD内嵌的VBA直接读取EXCEL文档中的X.Y.Z 坐标值,再把坐标值展现在AutoCAD绘图窗口中，自动连接成三维多段线，作为巷道的中心线。

第23卷第10期2007年10月农业工程学报T ransactio ns o f the CSAE V o l.23　No.10O ct.　2007基于VBA 技术的A utoCAD 二次开发在地形图绘制中的应用李志锐1,2,李法虎1(1.中国农业大学水利与土木工程学院,北京100083;　2.山东省东明县建设局,山东274500)摘　要:地形图绘制是农业工程领域生产实践活动中经常遇到的基础性工作。

传统的地形图绘制需要大量的手工作业,效率较低。

该文以V BA (V isua l Basic for A pplicatio n )为开发平台,对A uto CA D 应用软件在地形图绘制中的应用进行了二次开发,从而实现了区域地形点的自动展绘。

结合工程应用实例,探讨了运用A ut oCA D 内置的V BA 进行二次开发的方法和过程。

程序运行结果显示,该文介绍的方法占用内存小,自动化程度和工作效率高,适用范围广,可自动完成各类地形点的展绘工作,从而为各类地形图的自动绘制奠定了基础。

关键词:A uto CA D ;V BA ;二次开发;地形图中图分类号:T P391.72 文献标识码:A 文章编号:1002-6819(2007)10-0025-06李志锐,李法虎.基于V BA 技术的A ut oCA D 二次开发在地形图绘制中的应用[J ].农业工程学报,2007,23(10):25-30.L i Zhir ui,Li Fahu.Ex tended applicat ion o f A ut oCA D on t he m ap-making based on V BA technolog y [J].T r ansa ct ions of the CSAE ,2007,23(10):25-30.(in Chinese w ith English abst ract)收稿日期:2006-08-13　修订日期:2007-08-14作者简介:李志锐(1976-),男,工程师,主要从事地形图绘制、土地利用和城镇规划方面的研究。

基于VBA的煤矿地表地物及保护煤柱参数化绘制李振;薛丽芳;梅延胶【摘要】在煤矿地质图的地表地物及保护煤柱的绘制过程中,应用AutoCAD中的VBA宏语言功能可以自动运行绘图指令.将矿区中的地表地物及保护煤柱的信息存入数据库中,再通过VBA程序与开源数据库MySQL所建立的连接和人机交互界面,方便地表地物及其相应保护煤柱的自动参数化绘制.%In coal mine geological map of ground objects and the protective coal pillar drawing process, the application of AutoCAD in the VBA macro language function can be ran automatically drawing instruction. Mining area of ground objects and the information of the protective coal pillar is stored in the database, through the VBA program with the open source database MySQL for establishing a connection and interactive interface, convenient ground objects and its corresponding protective coal pillar automatic parametric drawing.【期刊名称】《金属矿山》【年(卷),期】2012(000)005【总页数】3页(P110-112)【关键词】保护煤柱;VBA;MySQL数据库;参数化绘图【作者】李振;薛丽芳;梅延胶【作者单位】中国矿业大学资源与地球科学学院;中国矿业大学资源与地球科学学院;中国矿业大学资源与地球科学学院【正文语种】中文煤矿地质测量图中，地表地物主要包括主要村镇、广场建筑等区域地物和主要交通道路、河流等线状地物。

下面就是自动在AutoCAD中画点的Visual Basic程序代码(部分),最后将其制作成可执行文件(e: \展点.exe)供AutoCAD菜单宏调用。

假若数据采集格式为:点号,X坐标,Y坐标, Z(高程)Open数据文件名For Input As #1set Points = yers.Add(/点0)-增加/点0图层Points.Color = acBlueSet Heights = yers.Add(/高程0)-增加/高程0图层Heights.Color = acGreenSet nos = yers.Add(/点号0)-增加/点号0图层nos.Color = acRedDo While Not EOF(1)Input #1, NO, x, y, z -将文件中数据分别附值给这几个变量Pt(0) = y: Pt(1) = x: Pt(2) = 0 -测量坐标系与AutoCAD坐标系的区别Set AdPoint = modelobj.AddPoint(Pt) -在模型空间中画点yer =/点0SetAdNO = modelobj.AddText(Str(NO), Pt, 1#)-在模型空间中绘制点号yer =/点号0Ht(0) = y + 0.9: Ht(1) = x: Ht(2) = 0Set AdHeight = modelobj.AddText(Str(z), Ht, 2#) yer =/高程0LoopClose #1acapp1.Application.ZoomExtentsForm1.Visible = FalseEnd Sub将展成的点连线的VBA代码为:Set PtLine = yers.Add(/点连线0) PtLine.color = acCyanDim kDim Coord As VariantFor Each entry In ThisDrawing.ModelSpaceIf entry.EntityType = acPoint Theni = i + 1End IfNext -获取模型空间中的点数目ReDim entrycopys(i -1, 2) -根据获得的点数目重新定义数组维数k = 0For Each entry In ThisDrawing.ModelSpaceIf entry.EntityType = acPoint ThenCoord = entry.Coordinates -获取实体坐标entrycopys(k, 0) = Coord (0)entrycopys(k, 1) = Coord (1)entrycopys(k, 2) = Coord (2)k = k + 1End IfNextDim StPt(0 To 2) As DoubleDim EtPt(0 To 2) As DoubleFor j = 1 To i -1StPt(0) = entrycopys(j -1, 0)StPt(1) = entrycopys(j -1, 1)StPt(2) = entrycopys(j -1, 2)EtPt(0) = entrycopys(j, 0)EtPt(1) = entrycopys(j, 1)EtPt(2) = entrycopys(j, 2)Set Lines = ThisDrawing.ModelSpace.AddLine(StPt, EtPt)-将当前点与前一个点连线yer =/点连线0Next jThisDrawing.Application.ZoomExtents如果要在Visual Basic环境中写入程序,则只要将VBA中的ThisDrawing对象改为AutoCAD对象的活动文件对象,就可以执行相同的操作,但由于是外部程序,执行速度将会慢一些。

Autocad二次开发在储量估算图件绘制中的应用
王胜娟;翟振荣
【期刊名称】《中国煤炭地质》
【年(卷),期】2022(34)S02
【摘要】为解决矿产勘查、核实等工作中储量图制作过程储量估算块段多、要标示的参数多而杂的问题,基于Autolisp语言对Autocad进行二次开发,通过编写程序脚本强化Autocad命令,实现在人机交互模式下完成资源储量估算图制作。

储量估算面积、倾角、平均煤厚自动量算提取、储量圈自动生成并标注于图面,应用OUT命令选择资源储量估算图中储量圈输出包含块段编号、面积、煤厚、倾角、储量等参数的表格,在表格数据修改后用IN命令实现数据同步到资源储量图,大大提高了资源储量估算图件绘制效率、准确率,达到图表完全对应一致。

【总页数】4页(P114-117)
【作者】王胜娟;翟振荣
【作者单位】中国煤炭地质总局第一勘探局地质勘查院;国家能源投资集团神华地质勘查有限责任公司
【正文语种】中文
【中图分类】P624.7
【相关文献】
1.AutoCAD的二次开发在物探图件绘制中的应用
2.AutoCAD线型的二次开发在矿图绘制中的应用
3.AutoCAD二次开发技术在矿图绘制中的应用
4.基于VBA技
术的AutoCAD二次开发在地形图绘制中的应用5.AutoCAD二次开发在矿图绘制中的应用
因版权原因，仅展示原文概要，查看原文内容请购买。

用EXCEL和AUTOCAD实现井下巷道实测图的数字化[摘要]本文就巷道实测图数字化问题从前提条件、设计思路、公式推理、具体实现过程等几个方面进行了详细地叙述，最后谈了一下自己的体会和心得。

[关键字]AUTOCAD EXCEL 巷道实测数字化坐标1 前言随着计算机科学技术的不断进步，数字化技术逐渐成为全球各行各业的发展趋势。

作为地下矿山的主要组成部分，井巷工程自始至终贯穿于矿山的开发活动中。

因此井巷工程的设计与管理具有较长的时效性及多变性，使井巷工程数字化不仅可使矿山的开采活动数字化，及时、准确地记录井巷工程的变迁，而且可使人们从传统的大量数据及繁重手工劳动中解脱出来，提高矿山的管理水平及工作效率。

其中巷道实测图的绘制是其中一项较大的任务，以前我们通常是先把设计坐标以及巷道中线绘制在方格网上，而后把每个月测量数据手绘到此图上。

通常我们所用的绘制图纸是透明纸，采用铅笔绘制。

时间一长，图纸会受潮而变形，且易磨损，笔迹也会变淡。

多次的描绘过程中必然会产生误差。

同时笔迹的粗细不同也同样产生误差。

有时这些小误差积累起来，在特定的环境中就会变成不可避免的错误。

为了提高巷道实测图的精度，延长资料的有效保存时间，减少测量技术人员的不必要工作量，也为测量技术人员提供更方便快捷的室内工作方法，我和我的同事用OFFICE工具EXCEL和AUTOCAD实现了巷道实测的数字化。

2 实现数字化的前提条件：①一台配置较高的电脑，装有EXCEL和AUTOCAD（最好带有CASS软件）工具。

②有实测水平的井巷设计图。

3 设计思路：在CAD中绘制图形要有相应的相对位置关系或者坐标信息。

如果采取相对位置的话，作图方法比较繁琐，因此采取后一种思路。

在设计图纸中可以轻松获得大巷中心线与巷道中心线的交点坐标，以及各巷道中心线的设计方位或者夹角，我们可以利用简单的几何知识将我们实测巷道的数据转换为坐标信息。

一旦掌握了实测坐标，我们在CAD中就可以实现绘图。