CAD Fórum : Styl osvětlení https://www.cadforum.cz/forum/ Fri, 15 May 2026 01:25:29 +0000 Wed, 26 Feb 2020 10:06:05 +0000 http://blogs.law.harvard.edu/tech/rss Web Wiz Forums 12.04 360 https://www.cadforum.cz/forum/RSS_post_feed.asp?TID=30107 <![CDATA[CAD Fórum]]> https://www.cadforum.cz/forum/forum_images/web_wiz_forums.png https://www.cadforum.cz/forum/ <![CDATA[Styl osvětlení : Pokud nevadí případné selhání...]]> https://www.cadforum.cz/forum/forum_posts.asp?TID=30107&PID=119362&title=styl-osvetleni#119362 Autor: Vladimír Michl
Předmět: 30107
Zasláno: 26.úno.2020 v 10:06

Pokud nevadí případné selhání v jiném typu dokumentu (např. výkres) a pokud to má být jen pro VBA (ne iLogic), pak určitě stačí - možná by šlo dokonce sloučit do jednoho.]]> Wed, 26 Feb 2020 10:06:05 +0000 https://www.cadforum.cz/forum/forum_posts.asp?TID=30107&PID=119362&title=styl-osvetleni#119362 <![CDATA[Styl osvětlení : Super, funguje !Trochu jsem to...]]> https://www.cadforum.cz/forum/forum_posts.asp?TID=30107&PID=119361&title=styl-osvetleni#119361 Autor: Radek Pícha
Předmět: 30107
Zasláno: 26.úno.2020 v 09:31

Super, funguje !
Trochu jsem to zjednodušil, stačí tři řádky kódu:

Dim lStyle As LightingStyle
Set lStyle = ThisApplication.ActiveDocument.LightingStyles.Item("Dvě světla")
ThisApplication.ActiveDocument.ActiveLightingStyle = lStyle

Děkuji.
]]> Wed, 26 Feb 2020 09:31:26 +0000 https://www.cadforum.cz/forum/forum_posts.asp?TID=30107&PID=119361&title=styl-osvetleni#119361 <![CDATA[Styl osvětlení : Styl zobrazení je jednodušší: Dim...]]> https://www.cadforum.cz/forum/forum_posts.asp?TID=30107&PID=119357&title=styl-osvetleni#119357 Autor: Vladimír Michl
Předmět: 30107
Zasláno: 25.úno.2020 v 15:40

Styl zobrazení je jednodušší:

Dim oView As View = ThisApplication.ActiveView
oView.DisplayMode = DisplayModeEnum.kTechnicalIllustrationRendering ' kShadedWithEdgesRendering
oView.Update

Styl osvětlení musíte jen správně přetypovat podle typu dokumentu - např.:

Dim doc As Document
doc = ThisApplication.ActiveDocument

Dim lstyle As LightingStyle
If doc.DocumentType = DocumentTypeEnum.kAssemblyDocumentObject Then
 
 Dim oAssy As AssemblyDocument 
 oAssy = doc 
 lstyle = oAssy.LightingStyles.Item("Mřížkované světlo")
 oAssy.ActiveLightingStyle = lstyle
 
Else If doc.DocumentType = DocumentTypeEnum.kPartDocumentObject Then

 Dim oPart As PartDocument 
 oPart = doc 
 lstyle = oPart.LightingStyles.Item("Mřížkované světlo")
 oPart.ActiveLightingStyle = lstyle
 
End If
]]> Tue, 25 Feb 2020 15:40:33 +0000 https://www.cadforum.cz/forum/forum_posts.asp?TID=30107&PID=119357&title=styl-osvetleni#119357 <![CDATA[Styl osvětlení : Dobrý den.Jak se ve VBA dá změnit...]]> https://www.cadforum.cz/forum/forum_posts.asp?TID=30107&PID=119356&title=styl-osvetleni#119356 Autor: Radek Pícha
Předmět: 30107
Zasláno: 25.úno.2020 v 13:40

Dobrý den.
Jak se ve VBA dá změnit vzhled ? Konkrétně styl osvětlení nebo styl zobrazení.
Dokážu zjistit jaký je aktuálně zapnutý styl osvětlení, měnit v něm různá nastavení, ale nevím jak jej přepnout na jiný.
Děkuji
]]> Tue, 25 Feb 2020 13:40:49 +0000 https://www.cadforum.cz/forum/forum_posts.asp?TID=30107&PID=119356&title=styl-osvetleni#119356