应用Excel编制AutoCAD脚本文件实现批量展点绘图

113 绘断面图 (以横断面为例 ) 设置点的样式为带圆心的小圆点 ,实测横断面
数据整理为 ( Si , Hi )格式 ,需按顺序从左到右或从右 到左依次排成两列 。 Si表示测点距中桩 (轴线 )的距 离 ,左“一 ”右“十 ”, Hi为实测点高程 , ( Si , Hi )等同 于 ( Y, X)坐标 。假定中桩轴线上某一设计整数高程 值为 H0 , (该整数高程最好在中桩设计高程附近 ) , 用 Excel处理后得到两列 : Si、Hi ,把中桩轴线上整数 高程 (H0 )点定为操作基点 。有两种方法 :其一将各 断面点展出 ,然后逐一连线 ,原理同上所述 ;其二用 " L ine"命令编制脚本文件 ,格式为 : line□Si , Hi □Si + 1 , Hi + 1 □。假定某一断面共有 10 个断面点数据 ( Si , Hi )用 Excel编辑成如下 :
量计算表 (关键在于错格合并 ,单元格自动计算公式 的输入 ) ,将断面的桩号 、面积输入到计算表格 ,通过 公式自动计算方量 。见示例图 3。
3 结 语
上述方法可等同某些专业数字化成图软件的类 似功能 ,相对传统手工模式则有质的飞跃 ,而且简单 易掌握 、应用更加灵活 。脚本文件可作为一个完整 的绘图程序直接执行 ,也可以作为菜单文件调用 ,使 操作更为简化 。同时如果你有一定的编程基础 ,可 以用任一种高级语言 (如 VB、VC)直接读写原始数 据以生成所需要的脚本文件 ,自动化程度更高 。上 述方法在云南小湾水电站对外公路第四标的测绘工 作中得到很好的应用 ,提高了绘图精度 ,减少计算粗 差的出现 ,并使劳动效率得到较大提高 。
line□S1 , H1 □S2 , H2 □ line□S2 , H2 □S3 , H3 □ line□S3 , H3 □S4 , H4 □ ………
line□S8 , H8 □S9 , H9 □ line□S9 , H9 □S10 , H10 □ point□0, H0 text□J □ML □0, H0 □□□H0 AutoL ISP语言表达形式为 : ( comm and" L ine" " Si , Hi " " Si + 1 , Hi + 1 " " " ) 。脚本文件内容如下 :
用 Excel处理结果如图 2所示 。
图 2 用 Excel处理结果
AutoL ISP语言表达形式为 : ( command " Text" "
Y, X" " " " " " H " ) 。脚本文件内容示例如下 :
( command "
Text " "
498501841,
192991473" " " " " " 1151552" )
192701422" " " " " " 1151197" ) …………
运行以上脚本文件 ,则可标记整齐美观的各测 点高程 。同理 ,如果需要展点号或展测点编码 ,原理 等同高程注记 。只需将高程列改为点号或编码列 , 而点的样式和大小可根据需要进行改变以示区别 , 通过运行 " DDPTYPE "或菜单命令“格式 →点的样 式 ”来设置 。此外 ,将展点和标注高程脚本文件合并 为一个文件则可一次性展高程点 。
( command "
Text " "
498551915,
192771283" " " " " " 1141885" )
( comm and "
Text " "
498391637,
192981866" " " " " " 1151366ቤተ መጻሕፍቲ ባይዱ )
( comm and "
Text " "
498391668,
设计断面线可以以操作基点为参考点应用相对 坐标 ( @Y, X) ;“手工 ”在 Autocad中绘制或将设计断 面分解成断面点数据自动绘图 。也可将标准设计线 连同断面格网和标尺做成标准图块插入绘制 。基于 AutoCAD 2000中文版支持多文档操作和基点复制功 能 ,可根据打印机限定的图幅大小 (如 A3、A4) ,制作 带标尺厘米格网的标准图框 (出图比例 1: 1) ,可将在 其它文档上自动绘制的断面图 ,以基点按比例缩放后 通过“基点复制 ”这项功能复制到标准图框中 ,再根据 断面比例标注标尺高程值、添加设计线 ,用“AREA ”命 令 ,求该断面的实际面积 。用电子表格制作标准的方
参考文献 :
[ 1 ] 郭朝勇等 1 AutoCAD14 (中文版 )二次开发技术 [M ] 1 北京 :清华大学出版社 119991
[ 2 ] 段红梅 1 AutoCAD2000 (中文版 )自学教程 [M ] 1北京 : 清华大学出版社 119991
1 AutoCAD 批量展点绘图
需掌握三个 AutoCAD 命令 : 展点 " point" ; 写文 字 " text" ;画直线段 " line"。 111 展点
其脚本文件格式为 : point□Y, X。如测了一段 公路的带状地形 , 将野外采集的原始数据按 Auto2 CAD 默认的绘图设置 (数学坐标系 )编辑成三维坐 标数据格式 (点号 ,编码 , Y, X, H ) ,存为文本文件 。 在 Excel中打开该文件 ,点号 、编码 、Y、X、H 分别对
53
第 3期 矿 山 测 量 2005年 9月
剪贴到文本编辑器中 ,另存为纯文本脚本文件 ( 3 1 scr)即可 。最后两行为绘制基点及标注基点高 程 。可作为绘制设计断面线 、断面方格网和标尺高 程注记的参考点 。
第 3期 邱章云 :应用 Excel编制 AutoCAD脚本文件实现批量展点绘图 2005年 9月
( comm and" point" " 49839166, 19270142" ) ………… 同理存为扩展名为 scr的纯文本脚本文件 。 以上脚本文件 ( 3 1 scr)生成后 ,在 AutoCAD 菜 单 " tools"中调用 " Run scrip t111 "命令 ,或直接在命 令行中输入 " scrip t" ,弹出打开文件对话框 ,选定刚 生成的 3 1 scr文件 ,即可完成绘图 ,以下类同 。 112 标注高程 如需要展测点高程 ,则用 Excel打开上述三维坐 标数据文件 ,取 Y, X, H 三列 ,将 Command后的 point 命令改为 Text命令 ,需要熟悉该命令参数设置 ,可先 在 AutoCAD 中运行该命令进行调试 : ①指定文字起点或对正 (J) /样式 ( S) :一般高程 标记在点的右边 ,故“对正 ( J )的选项为左中 (ML ) , 样式 ( S) 一般为宋体 。指定起点为点的平面坐标
在一些诸如隧洞 、公路 、铁路建设工程项目中 , 如果工程技术人员具有一定的 AutoCAD 和 Excel基 础 ,即可以实现“自己的 ”批量展点绘图及电子表格 自动计量 ,从而摆脱传统手工绘图和手工量算面积 计量带来的诸多不便 。
AutoCAD 和 Excel是目前国内外使用非常广泛 的 CAD 绘图和 office办公软件 。当前最流行的版本 是 AutoCAD 2000 和 Excel 2000 中文版 。可以把一 系列需要重复使用的 AutoCAD 绘图命令和参数编写 成脚本文件 。脚本文件是 ASC II码文本文件 ,类型 为 3 . scr,可在任意文本编辑器中编写构成一命令序 列 ,相当于一个程序 。在 AutoCAD 中用 " scrip t"命令 测试和运行此文件 ,即可按指定顺序执行这些命令 (类似于 DOS系统中的批处理功能 ) 。编写脚本文 件的格式规则主要为 :空格即代表回车 ,不得随意增 减空格 ,须清楚所用 AutoCAD 绘图命令及参数的使 用情况 ,本文示例中均以“□”表示空格 ;字母大小写 不限 ,但空格或双引号等符号须在英文标点状态下 输入 。所介绍的批量展点绘图主要以脚本文件 ( 3 . scr)为主来实现 。
( command"L ine" " S1 , H1 " " S2 , H2 " " " )
( command"L ine" " S2 , H2 " " S3 , H3 " " " ) ………
( command"L ine" " S8 , H8 " " S9 , H9 " " " ) ( command"L ine" " S9 , H9 " " S10 , H10 " " " ) ( command" point" " 0, H0 " ) ( command" Text" " 0, H0 " " " " " " H0 " )
52
应 A、B、C、D、E 各列 , 只采用 Y坐标 ( C ) , X 坐标 (D )两列 ,在任意空白列相对应的单元格如 G1中输 入文本合并公式 : [ = " point□" & C1&" , " & D1 ] , [ ] 内为公式表达式 ,用鼠标拖动填充柄经过待填充区 域 ,既得到脚本文件所需文本 ,见图 1: (为保留小数 点后两位 ,采用了“LEFT”函数 。)
图 1 脚本文件所需文本
将该列文本内容剪贴到 word或者记事本中 ,另 存为纯文本文件 ,扩展名为 scr,文件内容示例如下 :
point□49850184, 19299147 point□49855191, 19277128 point□49839163, 19298186 point□49839166, 19270142 ………… 此外 ,还可以采用 AutoL ISP语言的表达形式 ,其 标准格式为 : ( comm and" point" " Y, X" ) 。 用 Excel 处 理 : 插 入 两 列 如 L、M 列 , 内 容 为 [ ( command" point" " ]和 [ " ) ] , [ ]内为单元格填充 内容 ,在另空白列 N 相应单元格中输入文本合并公 式 : [ =L1& C1&" , "D1&M1 ] ,用鼠标拖动填充柄经 过待填充区域 ,后得到如下文本 : ( command" point" " 49850184, 19299147" ) ( command" point" " 49855191, 19277128" ) ( command" point" " 49839163, 19298186" )
摘要 :文中介绍了以 Excel作为数据处理工具 ,应用 AutoCAD中脚本文件 ( 3 . scr)作为批处理程序实现 自动批量展点 、标注高程 、绘制断面图等功能。以此代替原始的手工绘图 ,具有较好的现实意义。 关键词 : AutoCAD; Excel; 数字化成图 ; 脚本文件 ; 批量展点绘图 中图分类号 : TB23 文献标识码 : B 文章编号 : 1001 - 358X (2005) 03 - 0052 - 03
( Y, X) ; ②指定高度〈215〉; ③指定文字的旋转角度〈0〉; ④输入文字或直接回车 。 按要求选定好标注高程的字体样式 、对正方式 、
大小及旋转角度后即可调用脚本文件 ,标注高程的 脚本文件格式为 : text□J□ML □Y, X□□□H。脚本 文件内容示例如下 : text□J□ML □49850184, 19299147□□□115155 text□J□ML □49855191, 19277128□□□114188 text□J□ML □49839163, 19298186□□□115136 text□J□ML □49839166, 19270142□□□115119 …………
第 3期 2005年 9月
矿 山 测 量 No13
M INE SURVEYING
Sep t12005
计算机应用 应用 Excel编制 AutoCAD 脚本文件 实现批量展点绘图
邱章云 (葛洲坝股份公司测绘总队 ,湖北 宜昌 443002)