Vytisknout stránku | Zavřít okno

změna stylu

Vytištěno z: CAD Fórum
Kategorie: Autodesk - stavebnictví, strojírenství, CAD/GIS
Název fóra: Inventor
Popis fóra: Otázky k programům Autodesk Inventor, Inventor Professional a Inventor LT, Product Design Collection a Suite, Factory Design Suite; a digitální prototypy
URL: https://www.cadforum.cz/forum/forum_posts.asp?TID=22678
Datum vytištění: 12.kvě.2026 v 08:37


Téma: změna stylu
Odeslal: shogun6666
Předmět: změna stylu
Datum odeslání: 06.kvě.2016 v 13:10
Dobrý den
 
Je možné pomocí pravidla změnit styl kusovníku. Nevím  jak kusovník deklarovat.


Odpovědi:
Odeslal: krupicka
Datum odeslání: 06.kvě.2016 v 13:17
Dobrý den, pokud máte na mysli mít různé typy kusovníků pro různé typy sestav nebo i pro součásti, tak to možné je. Klasicky se kusovník nastavuje v Editoru stylů, karta Správa.

Odeslal: shogun6666
Datum odeslání: 06.kvě.2016 v 13:21
omlouvám se ale založil jsem téma ve špatné skupině měl jsem na mysli změnit styl pomocí ilogicu.

Odeslal: krupicka
Datum odeslání: 06.kvě.2016 v 13:26
Nic se neděje.
Pomocí i-Logic to možné je, ovšem je to velmi pracné a časově náročné dle kolegy programátora. Co potřebujete přesně rozlišovat?

Odeslal: Navara
Datum odeslání: 06.kvě.2016 v 15:41
Udělat se to dá, ale spoustu času zabere volba stylu kusovníku a ošetření chybových stavů.
Nicméně základní myšlenka je prostá
 
Dim drawingDocument  = ThisDrawing.Document
'Zvolte, ktry kusovnik se ma nastavit. V tomto pripade je to prvni kusovnik na aktivnim listu
Dim partsList As PartsList = drawingDocument.ActiveSheet.PartsLists(1)
'Zvolte, ktery styl se ma pouzit. V tomto pripade je to prvni styl ze vsech dostupnych stylu kusovniku
Dim myPartsListStyle As PartsListStyle = drawingDocument.StylesManager.PartsListStyles(1)
'Nastavi se styl
partsList.Style = myPartsListStyle

Odeslal: shogun6666
Datum odeslání: 09.kvě.2016 v 06:23
Děkuji o je přesně ono. Ještě bych se chtěl zeptat jak se deklaruje pozice.

Odeslal: Navara
Datum odeslání: 09.kvě.2016 v 09:19
To funguje podobně
'Aktualni vykres
Dim drawingDocument  = ThisDrawing.Document
'Aktualni list
Dim activeSheet As Sheet = drawingDocument.ActiveSheet
'Prvni pozice
Dim firstBalloon  = activeSheet.Balloons(1)
'Styl pozice
MsgBox(firstBalloon.Style.Name)

Odeslal: shogun6666
Datum odeslání: 09.kvě.2016 v 09:30
ještě jednou děkuji poslední dotaz tak jak jsem měnil kusovník, měním i styl pozice. Problém je že opraví jen jednu pozici ta která je v závorce. Jak nadefinovat aby ni to opravilo všechny pozice ve výkresu.
 
Kód mám
 
Format:HTML Format Version:1.0 StartHTML: 165 EndHTML: 4119 StartFragment: 314 EndFragment: 4087 StartSelection: 314 EndSelection: 314 SyntaxEditor Code Snippet
Try
    'Kod s ocekavanou chybou
Dim drawingDocument  = ThisDrawing.Document
Dim Balloon As Balloon = drawingDocument.ActiveSheet.Balloons(1)'Zvolte, která pozice se ma nastavit. V tomto pripade je to prvni pozice na aktivnim listu
Dim myBalloonStyle As BalloonStyle = drawingDocument.StylesManager.BalloonStyles("Pozice (00)")

Balloon.Style = myBalloonStyle

    'Osetreni chyboveho stavu
        
Catch

End Try

Odeslal: Navara
Datum odeslání: 09.kvě.2016 v 09:36
Nejjednodušší je smyčka For Each
 

'Aktualni vykres
Dim drawingDocument = ThisDrawing.Document
'Aktualni list
Dim activeSheet As Sheet = drawingDocument.ActiveSheet
'Zvolte styl
Dim balloonStyle As BalloonStyle = drawingDocument.StylesManager.BalloonStyles(1)
'Nastavte styl vsem pozicim
For Each balloon As Balloon In activeSheet.Balloons
    balloon.Style = balloonStyle
Next
 

Odeslal: shogun6666
Datum odeslání: 09.kvě.2016 v 09:49
děkuji


Vytisknout stránku | Zavřít okno