CAD tip # 12814:

iVlastnosti můžete dávkově vyplnit pomocí jednoduchého VBA makra běžícího v Excelu. Seznam názvů souborů a požadovaných hodnot iVlastností pro import je potřeba mít předem připraven v tabulce v Excelu.

Následující makro spusťte z VBA prostředí v Excelu. Musíte si zde předem ve VBA prostředí doplnit referenci na knihovnu "Inventor Object Library" (viz Tools > References), aby bylo možné využívat objekt Inventor.ApprenticeServer pro zápis dat do iProperties vlastností v jednotlivých souborech Inventoru.

Příklad obsahu XLS tabulky:

Kód VBA makra pro obsluhu:

Sub WriteData()
    Dim appServer As Inventor.ApprenticeServerComponent
    Set appServer = New ApprenticeServerComponent
    
    Dim oSheet As Worksheet
    Set oSheet = ThisWorkbook.ActiveSheet
    
    For i = 2 To 3 ' data jsou v řádcích 2 a 3 - NEZAPOMEŇTE AKTUALIZOVAT!
        
        Dim file As String
        Dim checkedBy As String
        Dim checkedDate As Date
        
        file = oSheet.Range("A" & i).Value ' sloupce A+B+C
        checkedBy = oSheet.Range("B" & i).Value
        checkedDate = oSheet.Range("C" & i).Value
        
        Dim invDoc As Inventor.ApprenticeServerDocument
        Set invDoc = appServer.Open(file)
        
        invDoc.PropertySets("{32853F0F-3444-11D1-9E93-0060B03C1CA6}")("Checked By").Value = checkedBy
        invDoc.PropertySets("{32853F0F-3444-11D1-9E93-0060B03C1CA6}")("Date Checked").Value = checkedDate
        
        invDoc.PropertySets.FlushToFile
        invDoc.Close
        
    Next
    
End Sub