CAD Fórum : změna stylu https://www.cadforum.cz/forum/ Tue, 12 May 2026 16:52:03 +0000 Mon, 09 May 2016 09:49:49 +0000 http://blogs.law.harvard.edu/tech/rss Web Wiz Forums 12.04 360 https://www.cadforum.cz/forum/RSS_post_feed.asp?TID=22678 <![CDATA[CAD Fórum]]> https://www.cadforum.cz/forum/forum_images/web_wiz_forums.png https://www.cadforum.cz/forum/ <![CDATA[změna stylu : děkuji ]]> https://www.cadforum.cz/forum/forum_posts.asp?TID=22678&PID=98752&title=zmena-stylu#98752 Autor: shogun6666
Předmět: 22678
Zasláno: 09.kvě.2016 v 09:49

děkuji]]> Mon, 09 May 2016 09:49:49 +0000 https://www.cadforum.cz/forum/forum_posts.asp?TID=22678&PID=98752&title=zmena-stylu#98752 <![CDATA[změna stylu : Nejjednodušší je smyčka For...]]> https://www.cadforum.cz/forum/forum_posts.asp?TID=22678&PID=98751&title=zmena-stylu#98751 Autor: Navara
Předmět: 22678
Zasláno: 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
 
]]> Mon, 09 May 2016 09:36:02 +0000 https://www.cadforum.cz/forum/forum_posts.asp?TID=22678&PID=98751&title=zmena-stylu#98751 <![CDATA[změna stylu : ještě jednou děkuji poslední...]]> https://www.cadforum.cz/forum/forum_posts.asp?TID=22678&PID=98750&title=zmena-stylu#98750 Autor: shogun6666
Předmět: 22678
Zasláno: 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 FormatVersion:1.0StartHTML: 165EndHTML: 4119StartFragment: 314EndFragment: 4087StartSelection: 314EndSelection: 314SyntaxEditor Code Snippet
Try    'Kod s ocekavanou chybouDim drawingDocument  = ThisDrawing.DocumentDim Balloon As Balloon = drawingDocument.ActiveSheet.Balloons(1)'Zvolte, která pozice se ma nastavit. V tomto pripade je to prvni pozice na aktivnim listuDim myBalloonStyle As BalloonStyle = drawingDocument.StylesManager.BalloonStyles("Pozice (00)")Balloon.Style = myBalloonStyle    'Osetreni chyboveho stavu        CatchEnd Try
]]> Mon, 09 May 2016 09:30:24 +0000 https://www.cadforum.cz/forum/forum_posts.asp?TID=22678&PID=98750&title=zmena-stylu#98750 <![CDATA[změna stylu : To funguje podobně &#039;Aktualni...]]> https://www.cadforum.cz/forum/forum_posts.asp?TID=22678&PID=98749&title=zmena-stylu#98749 Autor: Navara
Předmět: 22678
Zasláno: 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)
]]> Mon, 09 May 2016 09:19:55 +0000 https://www.cadforum.cz/forum/forum_posts.asp?TID=22678&PID=98749&title=zmena-stylu#98749 <![CDATA[změna stylu : Děkuji o je přesně ono. Ještě...]]> https://www.cadforum.cz/forum/forum_posts.asp?TID=22678&PID=98746&title=zmena-stylu#98746 Autor: shogun6666
Předmět: 22678
Zasláno: 09.kvě.2016 v 06:23

Děkuji o je přesně ono. Ještě bych se chtěl zeptat jak se deklaruje pozice. ]]> Mon, 09 May 2016 06:23:03 +0000 https://www.cadforum.cz/forum/forum_posts.asp?TID=22678&PID=98746&title=zmena-stylu#98746 <![CDATA[změna stylu : Udělat se to dá, ale spoustu...]]> https://www.cadforum.cz/forum/forum_posts.asp?TID=22678&PID=98730&title=zmena-stylu#98730 Autor: Navara
Předmět: 22678
Zasláno: 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
]]> Fri, 06 May 2016 15:41:59 +0000 https://www.cadforum.cz/forum/forum_posts.asp?TID=22678&PID=98730&title=zmena-stylu#98730 <![CDATA[změna stylu : Nic se neděje.Pomocí i-Logic to...]]> https://www.cadforum.cz/forum/forum_posts.asp?TID=22678&PID=98729&title=zmena-stylu#98729 Autor: krupicka
Předmět: 22678
Zasláno: 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?
]]> Fri, 06 May 2016 13:26:32 +0000 https://www.cadforum.cz/forum/forum_posts.asp?TID=22678&PID=98729&title=zmena-stylu#98729 <![CDATA[změna stylu : omlouvám se ale založil jsem...]]> https://www.cadforum.cz/forum/forum_posts.asp?TID=22678&PID=98728&title=zmena-stylu#98728 Autor: shogun6666
Předmět: 22678
Zasláno: 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.]]> Fri, 06 May 2016 13:21:20 +0000 https://www.cadforum.cz/forum/forum_posts.asp?TID=22678&PID=98728&title=zmena-stylu#98728 <![CDATA[změna stylu : Dobrý den, pokud máte na mysli...]]> https://www.cadforum.cz/forum/forum_posts.asp?TID=22678&PID=98727&title=zmena-stylu#98727 Autor: krupicka
Předmět: 22678
Zasláno: 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.

]]> Fri, 06 May 2016 13:17:20 +0000 https://www.cadforum.cz/forum/forum_posts.asp?TID=22678&PID=98727&title=zmena-stylu#98727 <![CDATA[změna stylu : Dobrý den Je možné pomocí pravidla...]]> https://www.cadforum.cz/forum/forum_posts.asp?TID=22678&PID=98726&title=zmena-stylu#98726 Autor: shogun6666
Předmět: 22678
Zasláno: 06.kvě.2016 v 13:10

Dobrý den
 
Je možné pomocí pravidla změnit styl kusovníku. Nevím  jak kusovník deklarovat.
]]> Fri, 06 May 2016 13:10:05 +0000 https://www.cadforum.cz/forum/forum_posts.asp?TID=22678&PID=98726&title=zmena-stylu#98726