用VB按标准件的规格查询Access数据库信息后调用AutoCAD对象自动在AutoCAD窗口里进行参数化绘图。以压力容器中常用的标准件———法兰为例,阐述了建立标准件的Access数据库、用VB按标准件的规格查询Access数据库、用VB建立与AutoCAD连接的模块、用VB调用AutoCAD对象绘图、将编写的应用程序添加到AutoCAD菜单的过程。说明了用Access数据库的信息来管理AutoCAD图形,实现参数化绘图,提高了工作效率。
Private Sub Command1_Click() '00000000000000000000000 判断 catia是否开启 000000000000000000000000000 Dim CATIA As Object On Error Resume Next Set CATIA = GetObject(, "CATIA.Application") If Err.Number <> 0 Then Set CATIA = CreateObject("CATIA.Application") CATIA.Visible = True End If On Error GoTo 0 '0000000000000000000000 窗 体 文 本 框 内 的 数 值 传 递 到 函 数 对 应 的 变 量 000000000000000000000000000000000