Vytisknout stránku | Zavřít okno

Styl osvětlení

Vytištěno z: CAD Fórum
Kategorie: Autodesk - stavebnictví, strojírenství, CAD/GIS
Název fóra: CAD programování
Popis fóra: Otázky programování - nadstavby a utility pro CAD a GIS aplikace Autodesk (VBA, AutoLISP, ARX/C++, .Net, JavaScript, Python, MEL...)
URL: https://www.cadforum.cz/forum/forum_posts.asp?TID=30107
Datum vytištění: 10.kvě.2026 v 15:30


Téma: Styl osvětlení
Odeslal: Radek Pícha
Předmět: Styl osvětlení
Datum odeslání: 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


-------------
<font color=BLUE>Ing. Radek Pícha[/COLOR] (konstruktér)

http://www.itsbenda.cz" rel="nofollow - ITS BENDA s.r.o.


Odpovědi:
Odeslal: Vladimír Michl
Datum odeslání: 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


-------------
Vladimír Michl (moderátor)
ARKANCE CZ - https://arkance.world - arkance.world
(podpora viz helpdesk.arkance-systems.cz)

Odeslal: Radek Pícha
Datum odeslání: 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.


-------------
<font color=BLUE>Ing. Radek Pícha[/COLOR] (konstruktér)

http://www.itsbenda.cz" rel="nofollow - ITS BENDA s.r.o.

Odeslal: Vladimír Michl
Datum odeslání: 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.

-------------
Vladimír Michl (moderátor)
ARKANCE CZ - https://arkance.world - arkance.world
(podpora viz helpdesk.arkance-systems.cz)


Vytisknout stránku | Zavřít okno