问根据所选择的装配图中的部件从装配图中提取零件编号(CATIA VBA)

EN

Sub CatMain()
    'Sets drawing doc as active doc and makes sure a drawing is open
    Dim draw_doc As DrawingDocument
    On Error Resume Next
    Set draw_doc = CATIA.ActiveDocument
    If Err.Number <> 0 Then
        MsgBox "A drawing must be open to run this macro"
        End
    End If
    On Error GoTo 0
    
    Dim draw_sheets As DrawingSheets            'Create drawing sheets collection
    Set draw_sheets = draw_doc.Sheets           'Set the drawing sheets collection to be the collection for the drawing document
    Dim draw_sheet As DrawingSheet              'Create drawing sheet object
    Set draw_sheet = draw_sheets.ActiveSheet    'Makes that drawing sheet object the active sheet
    Dim draw_view As DrawingView                'Creates drawing view objec
    Dim draw_leaders As DrawingLeaders          'Creates drawing leaders collection
    Dim draw_leader As DrawingLeader            'Makes drawing leader object
    
    Dim selection_array(0)                      'Create array that stores the the types of things CATIA can select
    selection_array(0) = "DrawingView"          'Make drawing views be the only thing that can be selected
    Set selection_1 = draw_doc.Selection        'Set the selection object to select things in this drawing document
    'Enable CATIA to go into selection mode and let the user click on something to select it
    status = selection_1.SelectElement2(selection_array, "Select the View(s) to Re-link. DON'T FORGET TO CLICK 'FINISH' ON TOOLS PALETTE.", False)
    'If the user presses ctrl+z or cancels then we stop the program
    If status = "Undo" Or status = "Cancel" Then
        MsgBox "You have chosen to terminate this macro."
        End
    End If
    Set draw_view = selection_1.Item(1).Value   'The drawing view is set to be the value of the view that was selected
    
    Dim leader_pos_x, leader_pox_y As Double    '==\
    leader_pos_x = 20                           '===> Dimension and set leader position
    leader_pos_y = 20                           '==/
    'The name/part number of can be taken from the drawing view with the .GenerativeBehavior.Document.Name properties
    Dim part_number As String
    part_number = draw_view.GenerativeBehavior.Document.Name 'gets the name of the document that generated the drawing view
    part_number = Replace(part_number, "_", " ")
    Dim draw_texts As DrawingTexts              'Create drawing texts collection
    Set draw_texts = draw_sheet.Views.ActiveView 'Set the drawing texts to the avtive view
    Dim draw_text As DrawingText                'Make drawing text object
    'Set the drawing text and position we're goint to use for the leader
    Set draw_text = draw_view.Texts.Add(part_number, 30, 50)
    'Create the leader with x and y position relative to the drawing view
    Set draw_leader = draw_text.Leaders.Add(leader_pos_x, leader_pos_y)
    
    'MsgBox "Done"
End Sub