CAD Fórum : Jak vložit barvu do výkresu https://www.cadforum.cz/forum/ Sat, 25 Jul 2026 14:34:10 +0000 Tue, 02 Nov 2010 23:10:54 +0000 http://blogs.law.harvard.edu/tech/rss Web Wiz Forums 12.04 360 https://www.cadforum.cz/forum/RSS_post_feed.asp?TID=11766 <![CDATA[CAD Fórum]]> https://www.cadforum.cz/forum/forum_images/web_wiz_forums.png https://www.cadforum.cz/forum/ <![CDATA[Jak vložit barvu do výkresu : Hrubý nástřel:Pokud se jedná o...]]> https://www.cadforum.cz/forum/forum_posts.asp?TID=11766&PID=56948&title=jak-vlozit-barvu-do-vykresu#56948 Autor: flesar
Předmět: 11766
Zasláno: 02.lis.2010 v 23:10

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

]]> Tue, 02 Nov 2010 23:10:54 +0000 https://www.cadforum.cz/forum/forum_posts.asp?TID=11766&PID=56948&title=jak-vlozit-barvu-do-vykresu#56948 <![CDATA[Jak vložit barvu do výkresu : Pokud to Inventor opravdu neumí,...]]> https://www.cadforum.cz/forum/forum_posts.asp?TID=11766&PID=56946&title=jak-vlozit-barvu-do-vykresu#56946 Autor: flesar
Předmět: 11766
Zasláno: 02.lis.2010 v 22:58

Pokud to Inventor opravdu neumí, můžete uvažovat o dvou variantách:

a) vložíte název barevného schematu (v API RenderStyle) do uživatelské proměnné a následně v kusovníku vložíte sloupeček s uživatelskou proměnnou
b) do výkresu sestavy vložíte samostatnou tabulku, která by obsahovala např. pozici, název a číslo součásti, a zvolenou barvu v dokumentu (sestavě), ke kterému náleží výkres.

ad a) těžko určíte barvu sestavy, barvu určujete dílům v sestavě, v nadřazené sestavě můžete barvu změnit ale tato změna se nepromítne do uživatelské vlastnosti součásti
ad b) máte další tabulku

Obojí bych řešil přes makro.

]]> Tue, 02 Nov 2010 22:58:08 +0000 https://www.cadforum.cz/forum/forum_posts.asp?TID=11766&PID=56946&title=jak-vlozit-barvu-do-vykresu#56946 <![CDATA[Jak vložit barvu do výkresu : Můžete mi někdo tedy aspoň poradit...]]> https://www.cadforum.cz/forum/forum_posts.asp?TID=11766&PID=56944&title=jak-vlozit-barvu-do-vykresu#56944 Autor: Lukáš Záruba
Předmět: 11766
Zasláno: 02.lis.2010 v 22:38

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.  ]]> Tue, 02 Nov 2010 22:38:34 +0000 https://www.cadforum.cz/forum/forum_posts.asp?TID=11766&PID=56944&title=jak-vlozit-barvu-do-vykresu#56944 <![CDATA[Jak vložit barvu do výkresu : Pokud je mi známo, tak Inventor...]]> https://www.cadforum.cz/forum/forum_posts.asp?TID=11766&PID=56935&title=jak-vlozit-barvu-do-vykresu#56935 Autor: Navara
Předmět: 11766
Zasláno: 02.lis.2010 v 15:27

Pokud je mi známo, tak Inventor opravdu nikde nevystavuje barvu jako vlastnost podobně jako materiál.
Získat barvu do iVlasnosti přes makro problém není. Pokud by se sešlo více takových požadavků, asi by bylo možné to zahrnout do některé z příštích verzí XTools.
]]> Tue, 02 Nov 2010 15:27:57 +0000 https://www.cadforum.cz/forum/forum_posts.asp?TID=11766&PID=56935&title=jak-vlozit-barvu-do-vykresu#56935 <![CDATA[Jak vložit barvu do výkresu : Tohle by šlo řešit nějakým makrem....]]> https://www.cadforum.cz/forum/forum_posts.asp?TID=11766&PID=56922&title=jak-vlozit-barvu-do-vykresu#56922 Autor: flesar
Předmět: 11766
Zasláno: 02.lis.2010 v 12:14

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]]> Tue, 02 Nov 2010 12:14:11 +0000 https://www.cadforum.cz/forum/forum_posts.asp?TID=11766&PID=56922&title=jak-vlozit-barvu-do-vykresu#56922 <![CDATA[Jak vložit barvu do výkresu : Potřebuji abych měl na výkrese...]]> https://www.cadforum.cz/forum/forum_posts.asp?TID=11766&PID=56920&title=jak-vlozit-barvu-do-vykresu#56920 Autor: Lukáš Záruba
Předmět: 11766
Zasláno: 02.lis.2010 v 07:54

Potřebuji abych měl na výkrese označený RAL. Jelikož většinou z konečné sestavy rendruji .jpg nebo video, tak mám již přiřazenou barvu v .aim nebo .ipt. Doteď jsem ji na výkres psal ručně ale byl bych radši kdyby šel upravit kusovník tak abych si molh ve výběru sloupce vybrat přímo odkaz barva ale nemůžu na to přijít.]]> Tue, 02 Nov 2010 07:54:20 +0000 https://www.cadforum.cz/forum/forum_posts.asp?TID=11766&PID=56920&title=jak-vlozit-barvu-do-vykresu#56920