Diskuzní fórum a databáze tipů a utilit pro AutoCAD, Inventor, Revit a další produkty Autodesk
 - od firmy Arkance Systems [www.cadforum.cz slaví 20 let]
CZ | SK | EN | DE
Přihlášení
či registrace
  právě nás čte: 5420

CAD tip CAD tip # 12814:

   
Otázka CAD 
 %  platforma  kategorie 
Q - otázka

Jak do Inventor souborů doplnit iVlastnosti z Excelu?

A - odpověď Jak hromadně vyplnit iVlastnosti (iProperties), např. Zařadil, Datum zařazení, Stav návrhu, atd. do celého seznamu výkresů nebo souborů modelů Inventoru?

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

Archiv s příkladem .IPT souborů a XLS tabulkou s VBA makrem: InvXlsApp.zip

Inventor
100% *  CAD 
7.12.2020    689×  
excel font import inventor knihovna model reference výkres
 
Související CAD produkty:
platí pro: Inventor ·

Zpět   Všechny další tipy



Pomohl vám tento tip? Provoz služby CADForum.cz podpoříte i nákupem produktů Autodesk u provozovatele tohoto serveru a Platinum partnera Autodesku, firmy CAD Studio.
Můžete si také přidat odkaz na vaše stránky: CAD Fórum - diskuze, tipy, bloky a utility
CAD:    OS:    Kateg: 
Text:  FAQ   






Tipy a triky prosím využívejte na vlastní zodpovědnost.
Provozovatel (Arkance Systems CZ s.r.o.) nenese odpovědnost za případné potíže vzniklé v souvislosti s použitím kteréhokoliv z uvedených tipů.
Pro plné zvládnutí dané aplikace doporučujeme absolvování některého z nabízených CAD školení.
Další publikování obsahu je dovoleno jen se souhlasem autora.
TOPlist