• / 3
  • 下载费用:3 金币  

AutoCAD与EXCEL的数据交换技术及应用.pdf

关 键 词:
AUTOCAD EXCEL 数据 交换 技术 应用
资源描述:
第 5期3 收 稿 日 期 : 2004— 09— 16作 者 简 介 :胡 德 承 (1970— ) ,男 ,高 级 工 程 师 ,主 要 从 事 测 绘 及 GIS方 面 的 研 究 。AutoCAD与 EXCEL的 数 据 交 换 技 术 及 应 用胡 德 承 13 王 占 强 2(1. 汕 头 市 测 绘 研 究 院 ,广 东 汕 头 515041; 2. 江 门 市 城 市 地 理 信 息 中 心 ,广 东 江 门 529000)摘 要 : AutoCAD数 据 交 换 有 多 种 模 式 ,可 以 是 AutoCAD本 身 的 DXF格 式 ,也 可 以 是 当 前 普 遍 采 用 的 纯 文 本 格 式 。EXCEL作 为 电 子 表 格 处 理 软 件 ,可 以 自 动 处 理 大 量 数 据 和 报 表 ,具 有 易 于 统 计 分 析 及 生 成 报 表 和 图 表 等 优 点 ,利 用 它进 行 AutoCAD图 形 数 据 交 换 具 有 前 面 2种 方 法 所 不 具 备 的 优 势 。 本 文 探 讨 了 AutoCAD与 EXCEL的 数 据 交 换 技 术 及应 用 。关 键 词 : EXCEL工 作 簿 ActiveX对 象 模 型 图 形 数 据 属 性 数 据 数 据 交 换中 图 分 类 号 : P209 文 献 标 识 码 : B1 引 言AutoCAD是 测 绘 、 设 计 部 门 普 遍 采 用 的 辅 助 制 图软 件 ,它 的 数 据 交 换 格 式 是 DXF明 码 格 式 ,用 文 本 处理 软 件 可 以 直 接 打 开 阅 读 ,但 每 个 对 象 的 数 据 包 含 很多 行 ,文 件 前 面 环 境 描 述 的 内 容 也 占 据 了 大 量 的 长 度 ,每 个 数 据 项 的 前 面 1行 是 它 的 DXF组 码 ,要 读 懂 数 据含 义 十 分 困 难 。 因 此 ,很 多 用 户 采 用 明 码 的 文 本 文 件(. TXT)进 行 数 据 交 换 ,但 它 也 存 在 文 本 格 式 差 别 大 、数 据 存 储 量 大 、 安 全 性 差 等 缺 点 。 EXCEL是 微 软 公 司Office办 公 系 统 的 1个 用 于 创 建 和 维 护 电 子 表 格 的 套件 ,很 多 单 位 把 它 作 为 统 计 分 析 、 生 成 报 表 和 图 表 的 工具 。 利 用 它 进 行 AutoCAD数 据 交 换 具 有 前 面 2种 方法 所 不 具 备 的 优 势 。2 数 据 交 换 的 内 容 及 组 织 模 式对 于 AutoCAD图 形 数 据 ,可 以 归 结 为 4种 对 象 类型 :点 、 线 、 面 、 注 记 。 点 可 以 是 PO INT 对 象 或 是BLOCK对 象 ,线 是 PL INE对 象 ,面 则 是 闭 合 的 PL INE对 象 ,注 记 是 TEXT对 象 。 根 据 4种 对 象 类 型 的 不 同特 征 ,设 计 数 据 交 换 的 内 容 与 组 织 模 式 如 下 面 的 3个表 格 所 示 。点 对 象 数 据 交 换 的 内 容 与 组 织 模 式 表 1列 号 数 据 内 容 说 明1 对 象 类 型 标 志 点 对 象 类 型 标 志 为 : PO INT2 要 素 编 码3 图 层4 图 块 名 若 是 图 块 对 象 ,为 图 块 名 ,否 则 为 空5 比 例 因 子 若 是 图 块 对 象 ,为 图 块 的 比 例 因 子6 旋 转 角 度 若 是 图 块 ,为 图 块 的 旋 转 角 度7 位 置 信 息 由 坐 标 x、 y、 z组 成 , x、 y、 z之 间 用 “ , ” 分 隔线 、 面 对 象 数 据 交 换 的 内 容 与 组 织 模 式 表 2列 号 数 据 内 容 说 明1 对 象 类 型 标 志 线 对 象 类 型 标 志 为 : L INE 面 对 象 类型 标 志 为 : POLYGON2 要 素 编 码3 图 层4 线 型5 线 宽 PL INE线 的 宽 度6 线 型 比 例 对 象 图 形 实 体 的 线 型 比 例7 位 置 信 息 由 各 端 点 坐 标 x、 y、 z组 成 , x、 y、 z之 间用 “ , ” 分 隔 ,点 与 点 之 间 用 “ @” 分 隔73胡 德 承 等 1AutoCAD与 EXCEL的 数 据 交 换 技 术 及 应 用© 1994-2009 China Academic Journal Electronic Publishing House. All rights reserved. http://www.cnki.net2005年注 记 对 象 数 据 交 换 的 内 容 与 组 织 模 式 表 3列 号 数 据 内 容 说 明1 对 象 类 型 标 志 注 记 对 象 类 型 标 志 为 : TEXT2 要 素 编 码3 图 层4 注 记 内 容5 字 体 名 、 对 齐 方 式 每 项 之 间 用 “ , ” 分 隔6 字 高 、 字 宽 比 例 、 旋 转 角 度 每 项 之 间 用 “ , ” 分 隔7 位 置 信 息 由 注 记 位 置 x、 y、 z组 成 , x、 y、 z之间 用 “ , ” 分 隔3 数 据 交 换 的 实 现笔 者 用 ACAD VBA实 现 了 AutoCAD与 EXCEL之间 的 数 据 交 换 。 现 介 绍 如 下 :311 EXCEL ActiveX对 象 模 型AutoCAD与 EXCEL 之 间 的 数 据 交 换 ,需 要 加 载EXCEL ActiveX对 象 模 型 。 在 ACAD VBA编 辑 器 中 选择 “ 工 具 ” 菜 单 的 “ 引 用 ” ,选 择 加 载 M icrosoft Excel Ob2ject L ibrary。与 ACAD的 ActiveX对 象 模 型 一 样 , EXCEL的 Ac2tiveX对 象 模 型 的 顶 层 对 象 也 是 App lication对 象 。 下面 代 码 声 明 并 新 建 1个 EXCEL. App lication对 象 。D im ExcelApp A s New Excel. App lication新 建 EXCEL 对 象 ,也 可 以 调 用 VB 库 函 数 Cre2ateObject( ) :D im ExcelApp A s Excel. App licationSet ExcelApp = CreateObject(“ M icrosoft Excel” )对 EXCEL进 行 读 写 操 作 后 ,要 关 闭 EXCEL工 作簿 、 退 出 EXCEL应 用 程 序 对 象 并 释 放 EXCEL应 用 程序 对 象 变 量 :ExcelApp. Workbooks. CloseExcelApp. QuitSet ExcelApp = NothingEXCEL. App lication对 象 提 供 的 Workbooks工 作簿 集 合 对 象 包 含 有 全 部 已 经 启 动 的 EXCEL工 作 簿 对象 ,我 们 可 以 使 用 App lication对 象 的 ActiveWorkbook来 获 取 当 前 活 动 的 工 作 簿 对 象 ,也 可 以 使 用 Workbooks( Index)方 法 来 得 到 指 定 的 工 作 簿 对 象 。 获 取 要 操 作的 工 作 簿 后 ,需 要 获 取 工 作 簿 中 的 指 定 工 作 表 (Work2sheet)才 能 访 问 到 其 中 指 定 单 元 格 的 内 容 。312 读 取 EXCEL工 作 表 中 的 数 据读 取 EXCEL工 作 表 中 数 据 ,首 先 要 打 开 工 作 簿 。下 面 的 代 码 调 用 EXCEL 应 用 程 序 对 象 的 Workbooks集 合 的 Open方 法 以 只 读 方 式 打 开 文 件 名 为 “ book1.xls” 的 EXCEL文 档 。ExcelApp. Workbooks. Open“ d: \ \ book1. xls” , ,True下 面 的 代 码 获 取 工 作 簿 中 的 名 称 为 “ sheet1” 的 工作 表 :Set W kSheet = ExcelApp. ActiveWorkbook. Work2sheets(“ sheet1” )EXCEL的 单 元 格 位 置 由 行 和 列 唯 一 指 定 。 通 常EXCEL文 档 第 1行 是 表 头 说 明 ,我 们 从 第 2行 开 始 读数 据 (行 号 为 1)。 根 据 上 述 的 数 据 组 织 模 式 ,第 1列是 对 象 类 型 标 志 ,程 序 首 先 读 取 它 的 值 ,确 定 后 面 列 的数 据 类 型 ,读 取 1个 对 象 (表 格 中 1行 )数 据 后 ,进 行 相应 的 绘 图 操 作 。 下 面 的 代 码 将 第 i行 第 2 ( EXCEL的B )列 的 内 容 取 出 赋 给 变 量 mCode。mCode = W kSheet. . Range (“ B” & i)取 出 EXCEL表 格 中 的 数 据 后 ,可 以 在 ACAD模 型空 间 中 绘 制 出 相 应 的 图 形 实 体 。 下 面 的 代 码 在 模 型 空间 中 绘 制 线 或 面 对 象 :Set LW Pl = ThisD rawing. ModelSpace. AddL ight2W eightPolyline ( Pts)若 是 面 对 象 还 要 用 下 面 的 语 句 使 它 闭 合 :LW Pl. Closed = True程 序 中 ,循 环 判 断 第 1列 的 对 象 类 型 标 志 ,直 到 读出 并 绘 制 了 所 有 对 象 。313 写 数 据 到 EXCEL工 作 表 中要 写 数 据 到 EXCEL工 作 表 ,首 先 须 添 加 EXCEL工 作 簿 :D im ExcelW kbk A s Excel. WorkbookSet ExcelW kbk = ExcelApp. Workbooks. AddEXCEL会 自 动 建 立 名 称 为 “ sheet1” 工 作 表 ,可 以直 接 写 数 据 到 该 工 作 表 中 。SetW kSheet = ExcelW kbk. Worksheets(“ sheet1” )接 着 ,程 序 遍 历 AutoCAD 模 型 空 间 中 的 图 形 对象 ,并 提 取 对 象 中 的 数 据 之 后 ,将 数 据 填 充 到 EXCEL单 元 格 中 。 下 面 的 代 码 将 对 象 的 位 置 信 息 数 据 填 充 到工 作 表 第 i行 第 7列 的 单 元 格 中 :W kSheet. Range (“ G” & i) = PosData图 形 对 象 的 数 据 填 充 到 工 作 表 中 后 ,要 用 下 面 的语 句 保 存 成 EXCEL文 档 文 件ExcelApp. ActiveWorkbook. SaveA s “ d: \ book1.xls”83 城 市 勘 测© 1994-2009 China Academic Journal Electronic Publishing House. All rights reserved. http://www.cnki.net第 5期4 应 用411 不 同 平 台 之 间 进 行 数 据 交 换利 用 该 技 术 可 以 将 EXCEL作 为 AutoCAD与 其 他平 台 之 间 数 据 交 换 的 媒 介 。 AutoCAD数 据 交 换 到 EX2CEL后 ,另 1个 平 台 可 以 从 EXCEL中 读 取 数 据 ,从 而解 决 AutoCAD与 其 他 平 台 之 间 难 于 直 接 进 行 数 据 交换 的 问 题 。412 利 用 EXCEL进 行 统 计 及 报 表 、 图 表 输 出数 据 交 换 内 容 中 的 要 素 编 码 是 作 为 属 性 数 据 存 贮在 图 形 实 体 的 扩 展 数 据 中 。 在 制 作 AutoCAD数 据 的过 程 中 ,我 们 可 以 存 入 更 多 的 属 性 数 据 。 数 据 交 换 到EXCEL后 ,可 以 利 用 EXCEL的 功 能 对 提 取 的 属 性 数据 进 行 统 计 处 理 并 制 作 专 业 、 精 美 的 报 表 或 图 表 。如 土 地 分 类 统 计 :将 地 块 的 分 类 信 息 、 地 块 面 积 等信 息 存 入 ,数 据 交 换 到 EXCEL后 ,可 以 依 据 地 块 的 分类 信 息 统 计 每 类 地 块 的 总 面 积 形 成 报 表 ,还 可 以 制 作若 干 个 面 积 范 围 地 块 数 的 统 计 直 方 图 ,使 用 户 可 以 直观 地 了 解 地 块 面 积 大 小 的 分 布 状 况 。又 如 规 划 电 子 报 批 中 用 地 指 标 的 核 算 :在 规 划 设计 过 程 中 适 当 增 加 AutoCAD 图 形 数 据 的 扩 展 属 性(如 :用 地 类 型 、 建 筑 结 构 、 楼 层 、 面 积 等 信 息 ) ,交 换 到EXCEL后 ,可 以 利 用 EXCEL的 功 能 对 提 取 的 属 性 进行 统 计 分 析 ,计 算 出 各 项 规 划 用 地 指 标 ,并 对 照 EX2CEL中 预 先 设 定 的 规 划 控 制 标 准 实 现 规 划 指 标 的 自 动审 核 。413 地 理 信 息 数 据 整 理 和 数 据 建 库数 据 整 理 是 地 理 信 息 系 统 数 据 建 库 的 前 期 工 作 ,它 通 常 要 求 抽 取 原 数 据 的 骨 架 信 息 和 属 性 信 息 。 但 对于 AutoCAD的 中 间 交 换 DXF数 据 处 理 起 来 的 工 作 量十 分 巨 大 。 使 用 本 文 的 数 据 交 换 技 术 ,对 交 换 到 EX2CEL的 数 据 利 用 EXCEL的 功 能 进 行 整 理 、 规 范 ,可 以方 便 、 快 捷 地 达 到 数 据 整 理 和 建 库 的 要 求 。5 结 语该 数 据 交 换 技 术 对 于 AutoCAD图 形 数 据 和 属 性数 据 均 适 用 ,并 且 涵 盖 了 AutoCAD与 EXCEL之 间 的双 向 数 据 交 换 ,为 AutoCAD与 其 他 图 形 或 GIS软 件 之间 的 数 据 交 换 搭 设 了 桥 梁 。 应 用 该 技 术 将 数 据 交 换 到EXCEL后 ,可 以 充 分 利 用 EXCEL的 功 能 进 行 数 据 整理 、 统 计 分 析 、 报 表 或 图 表 生 成 ,从 而 扩 展 了 AutoCAD图 文 一 体 化 管 理 的 功 能 ,同 时 为 数 据 建 库 提 供 了 有 效的 途 径 。需 要 指 出 的 是 :一 些 软 件 ,特 别 是 GIS软 件 ,不 支持 包 含 圆 弧 或 曲 线 的 线 、 面 ,因 此 对 于 AutoCAD中 含有 圆 弧 或 曲 线 弧 段 的 线 、 面 对 象 ,需 要 编 制 用 多 个 直 线弧 段 模 拟 曲 线 弧 段 的 程 序 ,并 事 先 运 行 它 ,才 可 以 进 行数 据 交 换 。参 考 文 献[ 1 ] 宋 伟 东 ,符 韶 华 . DLG到 GIS的 数 据 转 换 方 法 研 究 . 测 绘通 报 , 2004 (2).[ 2 ] 胡 德 承 ,田 鹏 波 . DGN到 DW G地 形 图 数 据 转 换 的 实 现 .城 市 勘 测 , 2001 (1).[ 3 ] 史 军 ,邱 昕 ,催 林 丽 等 . CAD图 形 数 据 转 换 为 GIS空 间 数据 的 技 术 研 究 及 应 用 . 东 北 林 业 大 学 学 报 , 2001. 11(上 接 第 36页 )4 结 语本 文 以 秦 皇 岛 市 1∶ 500地 形 图 数 据 建 库 为 例 ,详细 讲 述 了 以 MapGIS软 件 为 平 台 的 基 础 地 形 图 数 据 建库 过 程 。 目 前 ,主 要 的 GIS厂 商 也 都 相 应 地 推 出 各 自的 产 品 ,使 得 用 户 可 以 通 过 空 间 数 据 库 的 引 擎 ,运 用 大型 关 系 型 DBMS,如 : ORACLE、 SQL SERCER等 进 行 海量 空 间 数 据 的 统 一 管 理 ,以 面 向 应 用 的 GIS为 前 台 ,以大 型 关 系 数 据 库 为 后 台 的 数 据 库 管 理 ,成 为 GIS发 展的 主 流 趋 势 。 加 强 城 市 地 形 图 数 据 库 建 设 ,为 城 市 发展 提 供 权 威 、 规 范 的 基 础 地 理 信 息 服 务 ,对 于 推 进 城 市地 理 信 息 的 产 业 化 进 程 ,构 建 “ 数 字 城 市 ” ,将 具 有 十分 重 要 的 意 义 。参 考 文 献[ 1 ] 北 京 中 地 时 代 软 件 工 程 有 限 公 司 . MapGIS地 理 信 息 系 统实 用 教 程 . 武 汉 :中 国 地 质 大 学 (武 汉 )信 息 工 程 系 . 2002.[ 2 ] GB /T17798 - 1999. 地 球 空 间 数 据 交 换 格 式 .[ 3 ] GB /T17160 - 1997. 1∶ 500、 1∶ 1 000、 1∶ 2 000地 形 图 数字 化 规 范 .[ 4 ] GB /T13923 - 92. 国 土 基 础 信 息 数 据 分 类 与 代 码 .[ 5 ] GB /T14912 - 94. 大 比 例 尺 地 形 图 机 助 制 图 规 范 .93胡 德 承 等 1AutoCAD与 EXCEL的 数 据 交 换 技 术 及 应 用© 1994-2009 China Academic Journal Electronic Publishing House. All rights reserved. http://www.cnki.net
展开阅读全文
1
  金牌文库所有资源均是用户自行上传分享,仅供网友学习交流,未经上传用户书面授权,请勿作他用。
0条评论

还可以输入200字符

暂无评论,赶快抢占沙发吧。

关于本文
本文标题:AutoCAD与EXCEL的数据交换技术及应用.pdf
链接地址:http://www.gold-doc.com/p-290663.html
关于我们 - 网站声明 - 网站地图 - 资源地图 - 友情链接 - 网站客服客服 - 联系我们
copyright@ 2014-2018 金牌文库网站版权所有
经营许可证编号:浙ICP备15046084号-3
收起
展开