用VB6_0开发CAD系统中线图的一种解决方案

用VB6_0开发CAD系统中线图的一种解决方案 , () 中国地质大学 , 武汉 430074 摘要 : 提供一种新的线图处理方案 , 利用 AutoCAD 提供的 Automation 技术 , 用 VB 调用并控制 AutoCAD 自动去查询线 图 , 返回用户需求的结果 。 () 关键词 : 线图 ; 图形实体 ; IntersectWith 函数 () 中图分类号 : TP391172 文献标识码 : B文章编号 : 1001 - 3881 20036 - 240 - 2 A Kind of Solution f or using the L ine Diagra ms in the CAD System Da sed on VB GONG Yi2guang , J IANG J in2guo ( )China University of Geosciences , Wuhan 430074 , China Abstract : A new method of using the line diagrams in the CAD system based on VB is provided. The method can research the line dia2 grams and return the result . () Key words : Line diagram ; Sketch entity ; IntersectWith function ) 21114739, 则 y = 21114739 。 用 VB 开发 CAD 系统时 , 经常需要做大量的图 、 表查等工作 。如 : 在 V 带传动 CAD 系统中 , 带的型 如果把这种方法用在 CAD 系统中 , 就得到一种 号 、基准直径 、标 准 带 长 等 数 据 的 选 取 , 都 是 通 过 线图的解决方案 , 它用的思维模型非常简单 , 就是上 CAD 系统对数表或线图的处理得出的 。对于数表处 面所述的人们日常的查图方法 。 理 , 可以用数组预先将表中数据固定在程序代码中 ,2 线图处理的具体实现过程 () 然后通过数值计算方法计算出所需的值 ; 也可以借助 1获取线图 。将所需的线图转换成 AutoCAD 所 数据库技术 , 将数据存放在数据库中 , 方便读取 、修 能处理的格式 , 即文件扩展名为 dwg 。获取线图的方 改 、计算 。CAD 系统实现对数表处理较容易 , 而源于 法有很多 , 如 : 用扫描仪扫描 , 直接绘制 , 其它格式 线图本身的复杂性 , 对它的处理也相对困难 。现在比 文件转化等 。 () 2线图的处理 。获取的线图信息混乱 , 为了便 较流行的解决方法是曲线拟合法 , 即将线图拟合成曲 于编程 , 需要做必要的处理 , 使 VB 能确切地引用线 线 , 在计算程序中 , 直接利用这些公式 , 但对于不规 图中的每一个图形实体 。也可将复杂线图分解成几个 则的线图 , 很难或不能用 曲 线 来 拟 合 时 , CAD 系 统 ( ) 简单的线图 , 如图 2 , 可把线图 a中有两条曲线 , 该怎样来处理呢 ? 有些 CAD 系统用弹出对应的线图 , ( ) ( ) 分解成 b, c两幅线图 , 每个线图仅包含一个图让 设计 领导形象设计圆作业设计ao工艺污水处理厂设计附属工程施工组织设计清扫机器人结构设计 操作员根据图表自己来选择 , 这样把设计的工 ( ) 形实体 ,这样 VB 总能通过 Acadapp . Documents 1.作又抛回给设计者 , 不能体现 CAD 系统自动化 , 而 且出现了中断 , 造成了设计过程的不连续性 。本文提 供一种简单的线图解决方案 , 设计者只需给出自变量 x 的 值 , CAD 系 统 将 自 动 查 阅 图 表 , 获 取 对 应 的 y 值 。自变量 x 也可以是程序中的任意一个中间变量 , 获取的 y 值也可以作为后续处理的输入值 , 这样 , 真 正实现了线图处理的自动化和设计过程的连续化 。 图 2 1 方案的思维模型() ModelSpace . Item 0 - Aca dapp 为当前的 AutoCAD 应 线图是这样一种图形 ,给出一个自变量 x 值 , 就用程序对象 —来方便正确的引用 。 对应着一个或几个 y 值 。为简单起见 , 本文只讨论一() 3CAD 系统调用并处理线图 。系统首先获取自 个 y 值的模型 。如图 1 , S 为复杂曲线 ,给定一个自变量 x , 然 后 调 用 AutoCAD 应 用 程 序 对 象 Acadapp , 变量 x , 对应着唯一 y 值 。 ( ( ) 打开对应的线图 , 画过点 x , 0的竖直直线 代 怎样通过 x 得到 y 值 ) 码如下: 呢 ? 我们查表时 , 是画一 ′画竖直直线 wu ( ) 条过 点 x,0—x为 给 0 0 Dim wu As Object 定的 自 变 量 , 且 与 x 轴 垂 () Dim stp 0 To 2As Double 直的 直 线 l , 与 曲 线 s 交 () Dim enp 0 To 2As Double 图 1 于一点 , 则这点的纵坐标() () () stp 0= x : stp 1= 0 : stp 2= 0 就是对应的 y 值 。如 : 预先给定自变量 x= 370 , 过 () () () 0 enp 0= x : enp 1= 500 : enp 2= 0 ( ) ( 点 370 , 0 画 直 线 l, 与 曲 线 s 交 于 B 370 , ( )1 Set wu = mospace . AddLine stp , enp ( ) ( ) () 再通过调用 IntersectWith函数代码如下:上接第 301 页2 3 2 3 ′求交点 gygΔR = Xd+ Xd+ Yd+ Yd xx1 xx2 yy1 yy22 2 ε- XYd+ XYd- XY为了比较精确求出各Dim gyg As Variant yx2 xy2 XY 项误差分量的大小 , 我们可以增 加测量点数目 , 利用Dim i As Integer 最小二乘法来处理数据 , 可得到 Dim str0 As String 7 个误差分量大小 。()()gyg = mospace 0 1IntersectWith wu , - ac ExtendNone 同理 , 采用相同的方法在 YZ 和 XZ 平面上进行 ( ) If VarType gyg< > vbEmpty Then 测量 , 可求出相关平面的误差分量 , 从而达到 21 项 ( ) For i = 0 To UBound gygStep 3 几何误差辨识的目的 。 Label21Caption = ”你查询的值为 :” 5 结论()gyg + Label31Caption = i 1 本文利用机器人运动学原理建立了加工中心几何 Next 误差数学模型 , 清楚地表达了总误差和各单项误差之 Else 间的关系 , 将模型加以适当改进便可应用到其它多轴 str0 = ”查找取值超出范围 !”数控机床 、加工中心 、三坐标测量机和工业机器人的 MsgBox str0 建模之中 ; 同时介绍了平面光栅检测仪器结构 、工作 End If 原理以及特点等 , 并运用平面光栅进行误差测量 , 对 并把交点的坐标返获取竖直直线与线图的交点 , 几何误差进行了有效的辨识 。( ) 回给 CAD 系统 。IntersectWith 函 数 能 够 返 回 两 个 参考文献 实体或其延长线的所有交点 , 因而对于一个自变量 x【1】李小力 , 周云飞 , 周 济. 数控机床位置误差建模与 对应多个 y 值的情况 , 这种方法同样适应 。() 补偿. 机械设计与制造工程 , 1999 3: 48,50 () 4释放 AutoCAD 对象 , 把获取的坐标的第二个【2】V. S. kiridena . Kenematic modeling of quasistatic errors of ( ) 坐标值 纵坐 标 值赋 值 给 y , CAD 系 统 继 续 设 计 three - axis machining center. Int . J . Mach. Tools. Manu2 工作 。释放 AutoCAD 对象时 , 不能把画竖直直线这一 () fact . , 1994 1: 85,100 改动存入线图文件中 , 可以先调用 wu1Erase 删除所画【3】A . C . Okafor , Yalcin M . Ertedin. Derivation of machine acaddoc1Save : 再 acadapp1Quit , 直线 ,释放 acadapp 对tool error models and error compensation procedure for three 象 。axes vertical machine center using rigid body kinematics. In2 ternational Journal of Machine Tools & manufacture , 40 ()是一个调用 Auto2 5 程序的调试运行 。如图 3 ,() 20001199,1213 CAD 应 用 程 序 对 象 来 处 理【4】RAMESH R , et al . Error compensation in machine tools - a 线 图 s 的 简 单 程 序 界 面 ,review part II : Thermal errors J . International Journal of 由于 AutoCAD 系 统 启 动 时 Machine Tools and Manufacture , 2000140 : 1257,1284 比较 费 时 , 所 以 查 询 需 要 【5】J un Ni . CNC Machine Accuracy Enhancement Through Real ( 十几 秒 的 时 间 具 体 时 间time Error Compensation. Journal of Manufacturing Science ) 随计算机速度快慢而定。and Engineering , Nov 1997 3 结论 【6】王一丁 , 张国雄 , 臧艳芬等. 数控加工中心的位置误 图 3 通过 VB 调用 AutoCAD () 差模型 . 计量学报 , 1995 3: 200,205 【7】Placid M , Ferreira C , Liu Richard. An analytical quadratic 应用程序对象来处理线图 , 使线图的处理简单化 , 而 model for the geometric error of a machine tool . Journal of 且得到的值精确度很高 , 有效数字达十几位 。并且处 () Manufacturing Systems , 1986 1: 51,63 具有很广泛的适理方式不受线图的复杂程度的影响 , 【8】张 虎 , 周云飞 , 唐小琦等. 数控机床空间误差球杆 用性 。() 仪识别和补偿. 机械工程学报 , 2002 10: 108,113 参考文献 【9】 Y. Kakino , Y. Ihara , A. Shinohra . Accuracy Inspection of【1】张国宝编著 1 AutoCAD Visual Basic 开发技术 1 北京 : 科 NC Machine Tools by Double Ball Bar Method. Hanser Pub2 学出版社 , 200111lisher. ) ( 【2】卢玉明主编 1 机械设计基础 第六版1 北京 : 高等 作者简介 : 陈安民 , 1972 年生 , 男 , 河南洛阳人 , 河 教育出版社 , 199815南科技大学机电工程学院硕士研究生 。 【3】捷新工作室编著 1 Visual Basic 610 高级教程 1 北京 : 国 收稿时间 : 2003 - 04 - 18 防工业出版社 , 199414 收稿时间 : 2002 - 11 - 14