VB在ACADWIN中实现AutoCAD编程技巧

VB 在ACADWIN中的使用
作者：吴启明 
AutoCAD 是 一 个 常 用 工 业 绘 图 平 台, 用 户 在 使 用 时 经 常 要 用Lisp 或ADS 进 行 二 次 开 发, 但Lisp 处 理 数 据 库 能 力 差, 编 制 界 面 困 难, 而ADS 要 求 较 高 ． 相 比 之 下，Visual Basic( 以 下 简 称VB) 编 写 独 立 程 序 的 速 度 快， 编 制 界 面 容 易， 可 进 行 快 速 计 算， 可 操 作 数 据 库。ACADWIN 是AUTOCAD 的Windows 版 程 序， 具 有WINDOWS 的 许 多 特 点。 可 以 利 用DDE 进 行VB 与ACADWIN 之 间 的 通 讯， 实 现AutoCAD 编 程。 

VB 在ACADWIN 的 应 用 文 件 
因 为ACADWIN R12 不 支 持 如 PastLink 的 直 接DDE 方 法, 所 以 要 有 一 个 控 件 与VB 相 联 系， 以 进 行 数 据 传 递。 这 里 主 要 用 到 以 下 几 个 文 件: 
1):DDEBAS.EXE 这 是VB/DDE 服 务 器 程 序, 必 须 在 运 行VB 应 用 程 序 前 调 入, 在 命 令 行 下 键 入:（XLOAD“DDEBAS”）。 
2):ACADVB.DLL，VB 应 用 程 序 的 动 态 连 接 库。 
3):GLOBAL.BAS，VB 应 用 程 序 的 全 程 变 量 的 定 义 文 件。 
4):ADSFUNCS.BAS，VB 应 用 程 序 对ADS 库 标 准 函 数 的 调 用。 
5):ADSFUNCS.FRM， 标 准ACADWIN 的 初 始VB 窗 口。 
6):NEW.FRM， 用 于 新 建 标 准 初 始VB 窗 口。 

后4 个 文 件 在ACADWIN/VB/NEW 目 录 下, 编 程 时 只 要 打 开NEWPROJ.MAK 就 都 有 了, 但NEW.FRM 可 以 不 要, 只 要 把 启 动 文 件 定 为ADSFUNC.FRM 即 可。 

VB 在ACADWIN 的 使 用 方 法 
为 了 实 现DDE 通 讯， 先 要 在ADSFUNCS.FRM 中 增 加 一 个 用 于 通 讯 的TEXT( 文 本 框) 控 件, 并 在 特 性 表 中 将 其NAME 命 名 为ACADTEXT，TEXT 的CAPTION 置 为 空 串（ 减 少 窗 体 不 必 要 的 信 息），VISIBLE 特 性 呈 为TURE。 用linkapp 函 数 初 始 化 并 关 闭 连 接。 
过 程 linkapp 代 码 如 下: 

sub linkapp(link as contonl,appname as string,topic as string) 
link.linkmode=0' 关 闭 通 讯 
link.linktopic=appname+“|”+topic ' 置 通 讯 主 题 
link.linkmode=2 ' 手 工 通 讯 
end sub 
增 加 一 个 过 程unlinkapp, 其 代 码 如 下: 
sub unlinkapp(link as contonl) 
link.linkmode=0' 关 闭 通 讯 
end sub 
在 窗 体 事 件 中， 增 加 如 下 代 码： 
sub form_load()