利用AutoCAD二次开发功能实现自动提取点坐标.pdf

第30 卷 第3 期 化 工 矿 产 地 质 Vol.30 No.3 2008 年9 月 GEOLOGY OF CHEMICAL MINERALS Sep.2008 信息技术 利用AutoCAD二次开发功能 实现自动提取点坐标 * 姜祖迎 么作庚 辽宁省化工地质勘查院，辽宁锦州，121000 提 要 拾取不同图形对像的坐标是烦锁工作，把不同属性的图形对像修改相同，使其变为单一 重复，可以编程处理，AutoLISP语言编程批量提取点坐标可以提高工作效率，减少错误。 关键词 AutoLisp 图形对像 坐标 文本文件 中图分类号：TP391.72 文献标识码：A 文章编号：1006 –5296 （2008 ）03 –0166 –03 在工程设计、建筑放样、施工检核过程中， 圆心坐标。 经常需要提取点位的设计坐标，输入相应仪器， 提取圆心坐标时须把不需要的园放入其它 对施工现场进行较对检查。AutoCAD在批量提取 图层，将其关闭。 点位坐标时没有相应功能，需要二次开发才能满 本程序功能：可拾取图面内所有圆心坐标， 足需要。AutoCAD的开发手段很多，如C++ 、Java 、 按拾取顺序编号，记入Txt文件内，数据格式为 Vbsic 、AutoLisp 等。AutoLISP 语言是AutoCAD “点号，X ，Y ，H ，代码” 。更新所提取圆半径， 专用的二次开发的工具。Visual LISP作为帮助使 将圆心坐标标注在圆心处。 用AutoLISP 语言进行程序开发的一个集成开发 使用方法：在AutoCAD 内打开Visual LISP ， 环境。在Visual LISP开发环境下使用AutoLisp语 将本程序复制到文本框内、保存。文件名最好和 言编程（采用《AUTOCAD2004与AUTOLISP 二 程序名一样，便于记意。如：“Tzb.lsp” 。运行程 次开发技术》与《AUTOLISP ＆DCL基础篇》 知 序前需用记事本创建一个*.Txt文件，待存放拾取 识）非常简单方便。本文用AutoLisp开发了一段 点的坐标。 可批量提取点坐标的程序，可批量提取点坐标， 在AutoCAD 内打开图形文件，将拾取点处理 且把点坐标写入文本文件。 为圆。 基本思路：在AutoCAD 中点选或框选欲提取 在命令行键入“appload”命令，加载本程序所 坐标的点，提取该点坐标且编号，然后按一定格 在Lsp文件，然后在命令行建入“Tzb”回车，选择 式存入一个文本文件中。 事先建立的*.Txt文件。点选或框选图内的圆回 由于所要提取点对像在图内的不确定性，如 车。按提示输入新的圆半径。待程序运行完毕， 有的点在线的交点处，有的在端点处，有的在园 提取坐标完成。打开*.Txt文件就可看见所提的坐 心处，有的在园弧上等，使提取点的图形属性不 标了。 可预见，无法事先编程处理。如果把拾取点的图 数据文件样式为： 形属性处理成统一的形式，就可以编程处理了。 1,4849166.182,504905.415,0,3 本程序需要把欲拾取点图形处理成圆，然后提取 2,4847556.121,