AutoCAD矿山工程图件坐标格网自动绘制及其标注的实现.pdfVIP

第七屑全国矿山测量学术会议论文集 AutoCAD矿山工程图件坐标格网自动绘制及标注的实现 戴华阳‘，刘吉渡’，孟立霞1，高金成2 中国矿业大学，北京10008 00 3；2招盎矿业殷份有限公司夏旬垒矿，山东招远2654 撼要：在利用AutoCAD绘制矿山工程圈的i￡程中．经常要绘制坐标格网和对坐标进行标注．这是一项 女L械-巨、重复性的工作．本文利用AutoLi sp程序设计语言舞现了在CAD工程困中自动绘制坐标格网和自 动标注坐标的曲能，极太地提高了绘图效率． 关t词：CAD矿山工程国；AutoIisp；坐标榕网；自动绘制：自动标注 目前很多矿山实现了计算机绘图。hutoCAD因其操作方便，简单，功能稳定而被大多数矿山采 用。在利用AutoCAD进行矿山工程图的绘制过程中，特别是要打印图纸时，经常要绘制坐标格网和 进行坐标标注。这项工作具有机械性、重复性，不小心可能发生标注错误。AutocAD为用户提供的 强大的二次开发工具在这里可发挥大作用。笔者利用AutoLisp语言编写了自动绘制坐标格刚和自动 标注坐标Lisp程序，可极大地方便工程图的绘制。在这里把该方法做一介绍，以方便大家使用。 1绘制原理 P2 P3 P3l N 步 1 12 11 P1 刚 附I 图1北方向指向正上方时绘制原理图 图2北方向指向其它方向时绘制原理图 矿山工程圈是毗测量坐标系为基础绘制的，即x轴指向正北方向．Y轴指向正乐方向。为了图 纸的美观，有的矿山丁程图纸的北方向并不是指向正上方的。图1中的北方向恰好指向正上方，而 图2中的北方向则指向了其它方向。为此本文分两种情况说明程序的编制原理。 定的比倒输出。一般要求图上格网间距为100m．坐标标注为3珊(具体值由各矿自定)。若出图比 例为1：500，则在CAD绘图时，网格间距应为50个单位，文本高度为l 5个单位。这两个参数由用 户根据实际情况从命令行中输入。网格的外边框用户提前在圈上确定，在执行程序时用鼠标从左下 角点顺时针依次点选即可获得四个角点的坐标。 根据网格宽度w和Pn 示的情况要复杂一些。当网格线x坐标小于R点的x坐标时，1-的左端点是直线1．与直线P．蹦的交 第七届全国矿山测量学术会议论文集 坐标时，l。的右端点是直线1-与直线P。P4的交点。l：的左右端点亦是相同的求法。有了网格线的端 点坐标就可以进行画线和标注了。本程序就是依据这样的思想编写的。 ：绘制坐标格网主程序 (defunC：ZBGW() (setqW(getint”＼n请输入坐标格网间距50：”)) W (if(=nilW)(setq50)) (setqTextH(getreal”＼n请输入文本高度1．5：”)) TextH (if(=nil 1．5)) TextH)(setq (setqP1(getpoint”＼n请选择左下角点坐标：”)) (setqP2(getpoint”＼n请选择左上角点坐标：”)) (setqP3(getpoint”＼n请选择右上角点坐标：”)) (setqP4(getpoint”＼n请选择右下角点坐标：”)) Au(getvar”AutoSnap”)) (setq (set