CATIA二次开发：检查文件类型、部件类型、产品名称，通过交互选择约束两个零件轴系重合，添加自定义属性，MasterShapeRepresentation

检查文件类型

InStr 函数 作用是检查字符串，开始于第几个字符。

检查部件类型

产品名称

通过 交互 选择约束两个零件轴系重合

Sub CATMain()

CATIA.DisplayFileAlerts = False
    Dim Message, Style, Title, Response, MyString
    Message = ("This macro will constrain Part-A to Part-B" & _
                            (Chr(13)) & _
                         "  - The active document must be a CATProduct" & _
                            (Chr(13)) & _
                        "   - The first axis selected will be the axis to move" & _
                            (Chr(13)) & _
                        "" & (Chr(13)) & _
"   Do you want to continue ?")
    Style = vbYesNo + vbDefaultButton2    'Define buttons.
    Title = "Purpose "
    Response = MsgBox(Message,</
免责声明：本文系网络转载或改编，未找到原创作者，版权归原作者所有。如涉及版权，请联系删