2023年【AutoCAD二次开发技术在工程测绘制图中的应用】cad制图软件手机版.docx

《2023年【AutoCAD二次开发技术在工程测绘制图中的应用】cad制图软件手机版.docx》由会员分享，可在线阅读，更多相关《2023年【AutoCAD二次开发技术在工程测绘制图中的应用】cad制图软件手机版.docx（5页珍藏版）》请在淘文阁 - 分享文档赚钱的网站上搜索。

1、2023年【AutoCAD二次开发技术在工程测绘制图中的应用】cad制图软件手机版 摘要:简要介绍了进行AutoCAD二次开发的常用方法和技术特点,并以实例说明白利用VBA实现AutoCAD二次开发的实际价值和意义。 关键词: AutoCAD二次开发 VBA 工程测绘制图 坐标标注 中图分类号：K826.16文献标识码：A 文章编号： 随着现代科学技术的迅猛发展，测绘科学也发生了天翻地覆的改变，测绘仪器和测绘技术都有了很大的发展，测绘仪器由原来的光学仪器、机械仪器发展到了电子仪器，图形绘制由铅笔平板仪绘制发展到计算机软件绘制。电子仪器可通过专用传输线与计算机干脆连接，把野外所采集的数据传输进计

2、算机，在计算机中进行数字化成图。以手工作业为主的测量内业计算与绘图工作已经可以通过电子仪器、计算机绘图仪完成。数字化成图已经成为测图发展的主流方向。 目前市场上的数字成图软件有许多，测绘行业普遍运用的有南方测绘公司的 CASS 系列、广州开思公司的 SCS 系列，还有北京微远图公司的 SV300 系列等软件,这些软件多是以AutoCAD为平台开发的, 它们主要针对的是测绘行业的通用性需求,在大体框架上基本满意了地形图、地籍图等测绘工作的成图要求。但测绘性质的多样性，确定了不行能有适合全部测绘性质的数字成图软件，在实际工作中,一些制图工作在很多细微环节上的操作具有特别性，并且随测绘性质和目的的不

3、同而有所不同。而且每个测绘员又各有各的工作方式和习惯.这些通用软件对一些特别性质的处理限制和专业性强的特别要求就不能满意了，怎样解决这个问题和要求,使数字化成图软件更符合自己工作要求呢? 下面针对本单位常常进行的工程测量成图工作中遇到的问题,介绍解决基本方法与过程。 一.AutoCAD及二次开发简介 1. AutoCAD AutoCAD是美国 Autodesk 公司开发的一个交互式绘图软件，具有开放的极其敏捷的体系结构，它允许用户和开发者采纳各种方法对其进行定制、扩充和修改，即用户自己可以对进行二次开发,能最大限度地满意用户的特别要求。 2. 二次开发的途径 AutoCAD的二次开发途径主要有

4、两个，即文件开发和程序开发: A文件开发: 文件开发是根据 AutoCAD 供应的方法和文件格式，通过编辑或建立 新的AutoCAD 系统所支持的文件，来开发 AutoCAD，使其满意用户特定须要的方法。 (1) DXF 文件接口方式:以ASCII码文本文件描述它的图形细微环节，可以完备的实现与高级语言的连接。但格式特别困难，应用程序编写有难度。 (2)SCR 文件接口方式:SCR文件又叫吩咐脚本文件。它是由一组AutoCAD吩咐组成的文件。 (3) DWG 文件接口方式:具有打开速度快的优点。但它以机器码形式存放，一般不能让高级语言干脆读取。 B程序开发: 程序开发是指利用 AutoCAD

5、供应或支持的编程环境和开发工具，通过编写程序来实现对AutoCAD开发的方法。借助于程序开发，可为 AutoCAD 扩充新的吩咐或定义，以满意用户详细须要。 AutoCAD的二次开发语言主要有：ObjectARX、VisualLisp、VBA（Visual Basic For Application）以及最新的.NET等。其中ObjectARX 基于 VC+平台，功能特别强大，但其缺点是编程语言困难, 对开发人员的编程水平要求比较高；VisualLisp与 VBA较为简洁，特殊是VBA，编程语句简单理解和沟通, AutoCAD内嵌开发平台,运用便利且运行速度快。 上述开发方法各有优缺点。实际的

6、开发中，可以将多种方法综合起来，扬长避短，使 CAD系统功能得到最佳的组合，发挥最好的效益。 二. 在工程测绘制图中的应用 1.业务需求 在工程测绘制图中，我们经常须要在图形中将一些特征点（比如：开挖区域的边线角点）的坐标标注出来，而且须要以引线的方式进行。运用AutoCAD本身供应的现有吩咐当然也可以进行,但假如须要标注的特征点比较多时,那就要重复进行繁琐的操作了。 2.解决方案 针对这个问题,我们运用 VBA作为开发工具,编写了一个小工具。该程序的特点是简洁快速，只需在CAD图形上点击特征点和坐标标注位置,即可以以引线的方式将测量坐标标注出来，提高了制图工作的效率，在实际工作中有比较强的好

7、用意义。主要代码如下: Private Sub CmdOK_Click() FrmMain.Hide 隐藏窗体 Call 初始化 进行有关层/字体/颜色/线型等的设置 以下进行坐标标注 StartPt = ThisDrawing.Utility.GetPoint(,vbcr & 请选择要标注坐标的点: ) EndPt = ThisDrawing.Utility.GetPoint(StartPt, vbcr & 请选择引线位置: ) FxPt = ThisDrawing.Utility.GetPoint(EndPt, vbcr & 请选择标注方向: ) 字高 = Val(CmbTexth.Tex

8、t) xLong = Len(Int(StartPt(1) 求出标注坐标的整数位个数 yLong = Len(Int(StartPt(0) LineLong =IIf( xLong yLong , xLong, yLong) 求出坐标分隔线的长 Select Case XyD依据小数位数求出坐标分隔线的长度 Case 0 LineLong = (LineLong + XyD) * 字高 Case 1 LineLong = (LineLong + XyD + 1#) * 字高 Case 2 LineLong = (LineLong + XyD + 2#) * 字高 Case 3 LineLong

9、 = (LineLong + XyD + 3#) * 字高 Case 4 LineLong = (LineLong + XyD + 4#) * 字高 Case Else LineLong = (LineLong + XyD + 3#) * 字高 End Select If FxPt(0) EndPt(0) Then计算引线各点坐标 Pt(0) = StartPt(0): Pt(1) = StartPt(1): Pt(2) = 0# Pt(3) = EndPt(0): Pt(4) = EndPt(1): Pt(5) = 0# Pt(6) = EndPt(0) + LineLong: Pt(7) = EndPt(1): Pt(8) = 0#