Zobrazit plnou verzi příspěvku: změna stylu

shogun6666
06.05.2016, 13:10

Dobrý den  Je možné pomocí pravidla změnit styl kusovníku. Nevím  jak kusovník deklarovat.

krupicka
06.05.2016, 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.

shogun6666
06.05.2016, 13:21

omlouvám se ale založil jsem téma ve špatné skupině měl jsem na mysli změnit styl pomocí ilogicu.

krupicka
06.05.2016, 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?

Navara
06.05.2016, 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á [code]Dim drawingDocument  = ThisDrawing.Document'Zvolte, ktry kusovnik se ma nastavit. V tomto pripade je to prvni kusovnik na aktivnim listuDim partsList As PartsList = drawingDocument.ActiveSheet.PartsLists(1)'Zvolte, ktery styl se ma pouzit. V tomto pripade je to prvni styl ze vsech dostupnych stylu kusovnikuDim myPartsListStyle As PartsListStyle = drawingDocument.StylesManager.PartsListStyles(1)'Nastavi se stylpartsList.Style = myPartsListStyle[/code]

shogun6666
09.05.2016, 06:23

Děkuji o je přesně ono. Ještě bych se chtěl zeptat jak se deklaruje pozice.

Navara
09.05.2016, 09:19

To funguje podobně[code]'Aktualni vykresDim drawingDocument  = ThisDrawing.Document'Aktualni listDim activeSheet As Sheet = drawingDocument.ActiveSheet'Prvni poziceDim firstBalloon  = activeSheet.Balloons(1)'Styl poziceMsgBox(firstBalloon.Style.Name)[/code]

shogun6666
09.05.2016, 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 SnippetTry
'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

Navara
09.05.2016, 09:36

Nejjednodušší je smyčka For Each [code]'Aktualni vykresDim drawingDocument = ThisDrawing.Document'Aktualni listDim activeSheet As Sheet = drawingDocument.ActiveSheet'Zvolte stylDim balloonStyle As BalloonStyle = drawingDocument.StylesManager.BalloonStyles(1)'Nastavte styl vsem pozicimFor Each balloon As Balloon In activeSheet.Balloons    balloon.Style = balloonStyleNext [/code]

shogun6666
09.05.2016, 09:49

děkuji