标准件模型的自动化检查方法研究

    1.程序设计窗体

    在CATIA“工具”菜单下的“宏”命令中打开Visual Basic编辑器，如图3所示。

图3 CATIA程序输入窗口

    主程序在这个窗口中运行，在主程序中首先要得到窗口的part类型文件，以便对此part的不同构型进行更新。程序部分代码如下。

    Dim partDocument1 As PartDocument

    Set partDocument1 = CATIA.ActiveDocument

    Dim v_part1 As Part

    Set v_part1 = partDocument1.Part

    2.人机交互设计

    在程序运行的过程中，需要用户选择指定标准件的设计表文件，以便程序后续更新此设计表，得到不同的标准件构型，然后对构型进行更新，检查模型是否正确。

    Dim sStatus As String

    Dim oSelectedElement As SelectedElement

    MsgBox "请选择设计表。"

    当程序运行到此处，将弹出人机交互窗口（图4）要求用户选择设计表文件，在用户选择完设计表文件后，由oSelectedElement记录下用户选择的设计表文件，以便于后续程序对设计表的更新操作。

图4 人机交互界面

    3.编写检查模块代码

    检查模块是程序的主要模块，主要用于完成对标准件的一系列不同构型的模型进行检查，通过对模型的更新来判断模型是否产生错误。如果模型更新错误，则记录下模型的构型号。如果模型全部正确，则出现系统提示“模型没有错误”。检查模块部分代码如下。

    v_k = v_designTable1.ConfigurationsNb

    ...

    For v_j = 1 To v_k

    ...

    v_part1.Update

    ...

    Next v_j

    其中，v_k用于得到设计表的构型数量，建立起循环的次数，然后对模型进行更新操作，以验证模型生成是否正确。

    4.结果显示

    程序运行完毕，将产生两种结果。

    (1)模型完全正确时，将弹出模型没有错误窗口，设计员据此可知模型更新没有错误，可进行其它检查工作。

    (2)模型中有部分构型更新产生错误，则弹出“共有XX个模型有错误。它们是第××项”。设计员可根据提示检查发生错误构型的数据。