AutoCAD VBA在工程测量中的应用.pdfVIP

维普资讯 AutoCADVBA在工程测量中的应用：狄 钢 3 AutoCADVBA在工程测量中的应用 狄 钢 (郑州市规划勘测设计研究院，河南郑州 450052) ApplicationofAutoCAD VBA inEngineeringSurveying DiGang 摘 要 对AutoCADVBA进行二次开发。以满k-Y-程测量的需要 。介绍了二次开发的几种实用 程序。 关键词 AutoCADVBA 面积标注 展绘坐标点 拾取点的坐标到文件 AutoCAD软件 以其强大的功能在测绘行业中得 载”按钮，切换到 “菜单自定义”对话框的“菜单栏”选项卡 到了普遍的应用，其dwg格式的文件已经成为事实上 中。从 “菜单组”组合框中选择Mccadmj选项，在 “菜单” 的标准文件，大部分测绘成果都是以AutoCAD的文件 列表框中选择 “城市工程测量”选项。单击 “插入”按钮， 类型存储。但 AutoCAD是包括建筑、机械、测绘等多 插入到你需要的位置。添加的菜单栏如图1所示。 种行业在内的通用软件，工作当中略感不便。因此，针 对AutoCAD进行二次开发，以适合工程测量工作的需 要显得很有必要。本文将简要介绍如何使用AutoCAD VBA，针对工程测量工作当中的一些常见问题进行二 次开发，以提高工作效率。 图1 添加的“城市工程测量”菜单 1 添加 自定义菜单到AutoCAD中 新建一文本文件，内容如下： 2 面积标注 ；lc木；lcMENUGROUP=Mccadmj 在地籍测量当中经常要计算土地的面积。以下是一 ，lc，lc popl 个陕速标注面积的小程序，可以计算直线以及各种曲线 ID — GCCJ [城市工程测量(＆S)] 组成的封闭区域面积。它可以大大提高你的工作效率。 ID — GCCJmj [面积标注 (m)]cc—VBARUN 源代码如下： GCCL．dvb!mjbz PublicSubmjbz() ID — GCCJzd [坐标展点(＆z)]cC—VBARUN Dim nAsLong GCCL．dvb!location Dim ptAsVariant ID — GCCJ~ [拾取点的坐标到文件 (c)]cc DimobjpolyAsAcadLWPolyline — VBARUNGCCL．dvb!zbwj DimobjtextAsAcadText 将文件保存为gcc1．man DimmjAsString 在AutoCAD2004中，选择 “工具”l‘‘自定义”l菜‘‘ DimmuAsString 单”。单击 “浏览”按钮，在弹出的“选择菜单文件”对话框 Dim plwidthAsDouble 中选择gcc1．mllu。返回 “菜单 自定义”对话框，单击 “加 Dim aAsLong