Tohle by šlo řešit nějakým makrem. Jestli to umí Inventor sám, to si nejsem jistý, řekl bych že ne.
Pokud informaci budete chtít dostat do kusovníku, budete ji muset mít v nějaké uživatelské vlastnosti.


Upravil flesar - 02.lis.2010 v 12:14

Můžete mi někdo tedy aspoň poradit jak nejjednodušeji dostat barvu z modelu do výkresu? Do teďka jsem barvu ručně vkládal do tabulky ivlastnotí modelu do záložky uživatelské. Je to však příliš zdlouhavé ale zase mám jistotu že na to při závěrečném spěchu nezapomenu.  

Hrubý nástřel:

Pokud se jedná o součást vypiš její barvu, pokud se jedná o neprázdnou sestavu vypiš barvu prvního dílu (tedy pokud má celá sestava stejnou barvu). Název barvy se samozřejmě nemusí vypisovat, ale je možné ho vložit do uživatelské proměnné. Tedy něco jako bod a) výše.

Public Sub RenderStyle()
    Dim oInvDoc As Document
    Dim oCompDef As Inventor.ComponentDefinition
    Dim oCompOcc As ComponentOccurrence
    Dim oRenderStyle As RenderStyle
    Dim strRenderStyle As String
   
    Set oInvDoc = ThisApplication.ActiveDocument
   
    If oInvDoc.DocumentType = kPartDocumentObject Then
        Set oRenderStyle = oInvDoc.ActiveRenderStyle
        strRenderStyle = oRenderStyle.Name
    End If
   
    If oInvDoc.DocumentType = kAssemblyDocumentObject Then
        Set oCompDef = oInvDoc.ComponentDefinition
        If oCompDef.Occurrences.Count = 0 Then
            strRenderStyle = "Je prázdná sestava"
            Debug.Print strRenderStyle
            Set oInvDoc = Nothing
            Exit Sub
        End If
        Set oCompOcc = oCompDef.Occurrences.Item(1)
        Set oRenderStyle = oCompOcc.RenderStyle
        strRenderStyle = oRenderStyle.Name
    End If
   
    If oInvDoc.DocumentType <> kPartDocumentObject And oInvDoc.DocumentType <> kAssemblyDocumentObject Then
        strRenderStyle = "Není díl nebo sestava"
    End If
   
    Debug.Print strRenderStyle
    Set oInvDoc = Nothing
End Sub