基于AutoLISP和Visual Basic的工程图纸信息提取与处理.pdf

I 訇 化 基十Au t o L I S P ll Vi s u a l B a s i c 的工程图纸 信息提取与处理 En gi neer i ng dr aw i n gs of t he i nf or m a t i on ext r act i on and pr oces si ng based on Aut oLI SP and Vi suaI Ba si c 谢中梅 陈友福 刘素楠 Xl E Zh o n g me i CHEN Y o u f u L l U SU n a n 江西应用技术职 业学院 赣 州 3 4 1 0 0 0 摘要 工程图纸信息提取与处理由CA D 二次开发模块和图纸信息管理模块组成 C A D 二次开发采用 Au t o L I S P及 话控制语言编写 图纸信息管理主控程序和各功能模块用Vi s u a l B a s i c 编写 将计算机 辅助 绘图与CAD 图纸 中零部件 明细表汇总有机 地结合为 一体 利用计算机 实现了产 品零部件明细表自动生成 保证了图纸信息与明细表汇总的信息的一致性 关键词 计算机辅助绘图 明细表 B 0 M D OL 对话框控制语言 Au t o L I S P 中图分类号 T P 3 9 1 文献标识码 B 文章编 号 1 0 0 9 0 1 3 4 2 0 1 1 4 上 一 0 1 4 5 一 O 3 Doi 1 0 3 9 6 9 j i s s n 1 0 0 9 0 1 3 4 2 O 1 1 4 I 4 5 0 引言 随 着 计 算 机 科 学 和 工程 科 学 的 结 合 与渗 透 传 统 的 机 械 设计 发 生 了深 刻 的 变 化 计 算机 辅助 绘 图 日益取 代传统 手工 绘 图 目前 国 内使 用 CAD软 件 进 行 绘 图 过 程 中 图 纸 明 细 栏 文 档 信 息输入 还不是很 方便且信息不容易提取 汇 总 成 整 台 设 备 的 零 部 件 明 细 表 仍 需 要 做 大 量 繁 琐 的 人 工 抄 录 或 在 CAD中重 复 输 入 及 检 索 这种状 况 极大 地影 响 了公 司甩 图板 计 划 采用 Au t o L I S P DC L Di a l o g C o n t r o l L a n g u a g e 对 话框 控制 语 言 t l Vi s u a l B a s i c 开 发而 成 的W i n d o ws 应 用程 序 实 现 了C AD绘 图 与 明细 表 汇 总一 体 化 设 计 即在 图纸 设 计 完 毕之 后 利 用计 算 机 实 现 明 细表 的 自动 汇总 1 设计思想 在机械工程 图纸 中 零件明细栏是图纸的重 要 组 成 部 分 部 件 图纸 的零 件 明细 栏 设 有 序 号 代号 名称 数 量 材料 单件重量及附注 在 一 台设备 中 从 总 图号至最 底层 一级 零部件 要 按 总图号编制 明细表或总图下一级部件独立明细表 在编 制明细 表时 须获得全 部 图纸的文 档信 息 因 此 在 C AD绘 图输 入 图纸 明细 栏 时 动 态 地 建 立 每张 图纸 的数 据 文 件 一 方 面 满足 输 入 它 的 上 一级 部 件 图 明细 栏 的 信 息 另 一 方面 满 足 明 细 表 汇总 时 的信 息 将 是 实现 C AD绘 图与 明 细表 自动 汇总生成的关键所在 考虑到一个零部件可 能对 应 几个 不 同的 图形 文件 但 这 些 图形 文件 所 表达 的零部件的图号是唯一 的 基于图号 与零部 件 的一 对 一 关 系 对 应于 每 个 零 部 件 规定 取 其 图 号作为其数据文件名 2 系统组成 基 于 上 述 设 计 思 想 以 图 纸 明细 栏 数 据 文 件 作 为 重 要 的联 系标 志 对 C AD绘 图软 件进 行二 次 开 发 实现 C AD绘 图与 明 细 表 自动 生 成 并 为 计 算 机辅 助 工艺 设计 C AP P 系统 提 供数 据 共享 主 要 由如 下 几部分组 成 如 图 1 所示 l 系统 组 成 框 3 程序设计 3 1 C AD 明细栏输入 采用 A u t o L I S P 及DC L 编 程 在C AD绘 图填 写 明 细 栏同时建立每个零部件 的数据文件 供系统数 据 处理 检索 之用 收稿 日期 2 0 1 0 1 0 2 7 作吉简介 谢 中梅 1 9 7 0一 女 副教授 工程 师 硕士 研究方 向为数据库信息管理及应用 第3 3 卷第 4 期2 0 1 1 4 上 1 4 5 1 I 洼 I I 5 化 DC L 语 言结 合 了Au t o L I S P 与DC L 两 种 语法 的 功 能 可 以让 用户 半 自动 地 架构 出 图形 模 式 的 对话 框 界面 即 可编 程 对话 框P DB 一 个DC L 文件 的基 本架构 外观是 对话 框名称 d i a l o g l a b e l 对话框 标题 框栏形 式 l a b e l 框 栏标题 各种对 话框基 本控件 的排行组 合 框栏 定义 至此结束 对话框 定义 至此结束 1 DC L 对话框的屏幕 画面以框栏 T i l e 为基 本 结构 将 框栏 按 左 右 上 下 或混 合 排 行之 后 就组成 了对话框的主要外观 每个框栏内部可以 容 纳对 话 框 的基 本 控件 DC L语法 可 以 自动 调 整 控件之 间的相对位置 用户只需要将控件代码和 各控 件 的排 行 模 式代 码 按顺 序 写 在DC L 文 件 里 即 可 一般不用考虑控件的尺寸问题 系统会 自动 计算 应 有 的对 话 框尺 寸 并 自动 规划 适 当的 空 间 来放置这些控件 DC L文件与Au t o L I S P 程序一样 是 单纯的 AS CI I 格式的文本文件 可使 用VL I S P 或一般的 文本编辑器 如 记事本等 来编辑和修 改 用 D C L 语 法撰写 的对 话框 其 扩展 名为 d c l 对话 框 程序的运行 按先后顺序可分为3 步骤 第1 步 在Au t o L I S P 文件里调用D C L 对话框程 序 第2 步 用 户在对话 框里输 入数据 第3 步 将 用 户输入 的数 据返 回A u t o L I S P 文件 执 行 DC L文 件 本 身 并 不 能 单 独 运 作 必 须 在 Au t o L I S P 主程序里进行初始设定 然后由主程序 调用DC L 文件 才能显示在C AD的绘图屏幕上 用 户输 入 数 据后 单 击程 序设 置 的 按钮 D C L文 件 再 将 取 得 的 键值 数 据 送 回Au t o L I S P 主程 序 执 行 关闭对话框后 Au t o L I S P 主程序还将继续执 行后续 的代码 明细 栏数据 录入对话 框D C L 程序代 码如下 mx b d i a l o g l a b e l 输入数 据对话 框 c o l u mn r o w t e x t 1 a b e l 序 号 1 1 4 6 1 第3 3 卷第4 期2 0 1 1 4 上 e d i t b o x k e y x h e d i Lwi dt h 1 5 e d i t l i mi t 3 1 代码略 格式 同上 o k o nl y 图2 明 细 栏 输 入 对话 框 以上代 码为 对话 框源代 码 并将其 保存 为 p 1 d c l 提供给下面的L I S P 程序 mx b 1 s p 调用 因篇幅关 系 省略mx b 1 s p 文件在C AD中调入对 话框并录入 提取数据 的源代码 此外 确保将 p 1 d c l 和mx b 1 s p 两个文件保存在C A D安装目录下的 s u p p o r t 文件夹中 进入C A D后 在菜单栏项点击 明细栏 下的 I H B细栏录入 注 可通过修改 C AD菜单文件在菜单栏中添加用户 自定义的菜单 项 按命令窗口中提示输入该图明细栏项数 回 车 输入文件名 要求以该 图的图号命名 例如该 图的图号为5 E Q 5 2 4 1 2 3 则在命令窗口中输入的 文件 名应 为 5 E Q 5 2 4 1 2 3 回车 按提 示捕 捉标题栏左上角 出现如图2 所示的对话框 其功 能在C AD中输 出明细栏 提取 明细栏数据 特点 有 骞 1 訇 1 明细栏 输入 及修 改均 采用 对话 框形 式 2 序号 自动产 生 3 产 品型 号 和 总图 号对 话输 入 框 中均 以最近 一 次 的输 入值 为默认 值 另 外 由于 多种 因 素 的制 约 一方 面 手 工 图纸 仍 占 一定 的 比重 另一 方 面 图 纸 资料 具 有 继承性 设计 中难免使用通 用件 及借用老产 品的 零 部件 也 可采 用该 程 序 在CAD中逐 条将 图 中 明 细 栏 的 信 息输 入 并 提 取 产 生数 据 文 件 而 不产 生 图 形实 体 当然 也 可 在 明细 栏数 据 处 理 过 程 中添 加 或 修 改 删 除 数 据 它提 供 了在CAD下 图 纸 明细栏 信息提 取 与存储 功能 1 在 对 话 框 输 入 完数 据 后 按OK 键 数 据 自动填 入明细栏 中 同时在C MXB目录下 自动 生 成 了一 个 以 该 图号 命 名 的 文 本 文 件 例 如 5 EQ 5 2 4 1 2 3 t x t 2 另外 如 果 是 定 子 转 子 机 座 图纸 其输 入 的文 件 名必 是该 图纸 的 图号 后 加 上MX 例 如 需 要录 入 明细 栏 的 图纸是 图 号 为5 E Q 0 3 4 6 3 3 的机 座 那么 在命 令 窗 口中提 示输 入 艾件 名应 为 5 E Q 0 3 4 6 3 3 MX 3 若 遇到 部 件 图已 经 出 了明细 表 或不 必 出 明 细 表 时 在 输 入数 据 对 话 框 代 号 一 栏 中 必 须 为 标 准 的 部 件 图 号 加 上 MX 另 外 遇 至 U 没 有 代 号 时 必 须在代 号一 栏 中输 入一 个 3 2 明细表 自动生成 对全部零部件信息进行搜 索 当缺少某一部 件的数据信息时 系统提示缺少部件 并拒 绝将 产品零部件信 息分类入库 在明细表中 按不 同 部 件 层 次并 以 序 号 特 征 加 以 区 分 按 树 状 结 构 排 序 明细 表 的 输 出形 式 可 在 明细 表 白动 生 成 系 统 中直 接 由绘 图仪 输 出 在 本 系统 中支 持 打 印机 设置 网络 打印及 打 印预 览 明细 表 白动 生成 部 分采 用V i s u a l B a s i c 编写 程序 框图如 图3 所示 以下 是明细 表 自动 生 成部分 主要 功能 1 运行 明 细表 生 成程 序 若 需 生成 明细 表数 据 都 已入 库 则 按 明 细表 打 印 按钮 然 后在 对 话 框 中输 入 您 要 输 出 的 明细 表 的总 图 号 等 有关 信 息 按 打 印 或 浏 览 修 改 等 按钮 就 可 打 印 浏 览 或修 改 该 产 品下 的 明 细 表信 息 如 图4 所 示 4 明 细 夏打 印窗 口 2 若 数据 未导 入 贝 按 明细 表数据 处理 按钮 在 数 据 导 入 中点 击 选 择 需 导入 文 件 按 钮 可 实现 文 本 数 据 转 换 成数 据库 文 件 产 品数 据 处 理 分 类 明 细 表 数 据 库 修 改 添 加 删 除 及 产 品零 件 入 库 等 选 择 需 要 导 入 的 文 件 如 1 E Q 0 1 0 4 1 6 如 此反 复 直到 该 产 品的明细 数据 导 入 完 即可 打 印总 装 定子 转 子 机 座 明 细 表 完成 后 再 执 行 产 品零 件 入 库 给计 算 机辅助工艺设计系统提供数据 3 在 明细 表数 据修 改窗 口中 可 对 当前 产 品 明细 表 进 行 修 改 删 除 添 加 如 果 要 删 除 某几 项 只要 用 鼠标 在 要 删 除 的 记录 上 做 上 删 除 标 记 然后 在把 光 标 定 在 要 删 除 的代 号 这 一 输 入框 中 回车就可删除不想要 的记录 如果不想用移 动 滚 动 条 去 寻 找 要 修 改 的记 录 那 么 可 以 在 要 修 改 的代 号 或 名 称 的 输入 框 中输 入 要 修 改 的 代号 从总图的 数据逐级 明 临 搜索各级 生 L 提 供 扯特 细 时 输 选择明细 部件的数 成 栏 转 数 入 表类型 据 按 树 明 数 骂 据 总 总 装 定 型数据结 细 据 库 图 子 转子 构重组数 文 文 号 机座 据 并规 表 定部件层 工艺 材料定额 件 件 工时定额 生 次 类型 产计划管理 图3程序框 图 第3 3 卷第4 期2 0 1 1 4 上 1 1 4 7 骞 l 訇 或 名称 回 车 就 可定 位 到 要修 改 的 记录 如下 图5 所 示 T 墨 懋 雹 鹾 薯 l l麓 嚣 蠹 g 鹾 谒 毒 I 强 I 一瓷 器 誊 鬻 薄 警 囊 蠢 糍 嚣 这 YrSOO 1E日 0 10 4I6 l1E0 01u 4 iE 1 8E0 34 3 343 i i i 鞠 Y r S O 0 i E q 0 1 0 4 1 6 l1 E 0 0 1 0 4 i 6 j Yt500 1 Eq 0 10 416 II 01 0 4 1 e 3 5聃 3 曼 yrS E 0 0 4 e l 0 0 4i s 4 鞠 Y r 5 0 O 1 0 10 4 1 6 明u lO 4 1 e 5 5 0 0 叭 I Yr5 1 E日 0i0 4l 6 1 0 10 416 e Yr50 1 E0 0 10 4 L5 1聃 O 10 41e T 嗣 Y r 5 口 0 1 E 日 0 i 0 4 1 6 l 踞0 l0 4 1 6 8 嗣 Y r S O 0 iE 日 c 1口4 1 B j 1 髓0 10 4 i e 9 1 yr5 30 tE 0 01 0 41 6 1腑 0 10 4la 1 u Yr 500 1趵 D10 4 l6 j1E 日 0 l0 41 e 11 1 Yr 500 lE口 O 10 4 18 l1E 日 01口 41 B 12 r 500 LEq 0 l0 4 16 I1E 日 0 0 41 B 13 Y r 轴 0 i 0 1 0 4 1 6 i 0 1 0 4 1 8 1 4 r 镳 麓 i 嚣 醢蕊 瓣 戳 强 一 钝 t承 1 椎 l 瓣 l e I x l j 0鼍 器 辘 强 t 图5明细表数据修改窗 口 4 结束语 系统将 对 话 框控 制 语言DC L与A u t o L I S P 的 可 编 程对 话框 函数 相 结合 各模块 均采 用窗 口式 对话框输入 且支持网络数据搜索及调用 极大 地提高 了设计 效率 克服 了图纸 明细栏输 入困 难 做 到 了部件 图零 件 明细 栏 数 据提 取 及 共享 真 正 做 到 图纸 完 明 细表 同时 生成 为工 艺 材 料 定额 工时 定额 生产计划 管理提 供数据共 享 同时保证 了数 据信息的准确 可靠及高度一 致 另外 从 图纸 设 计 到 明细 表 自动 生 成 相 同 的零部件 的数据信息 不管在本产品设计或其它 产 品 中 出现 多次 仅 需输 入 一 次 大 大 减 少 了重 复输 入 的 工作 量 通 用零 部 件越 多重 复输 入 工 作 量减少越明显 参考文献 1 舒 飞 Au t o C A D2 0 0 4 S L 次开发标准教程 M 上海 上海科 学普及 出版社 2 0 0 4 2 杨素敏 Au t o C AD 2 0 0 0 定制 与开发 M 北京 人民邮 电出 版社 2 0 0 0 3 张晓黎 张巍 V i s u a l B a s i c S Q L S e r v e