ARKANCE - globální Platinum partner Autodesk ARKANCE | KONTAKT - CZ | SK | EN | DE
Přes 123.000 registrovaných u nás, celkem 1.131.000 registrovaných (CZ+EN). Tipy pro AutoCAD 2027, pro Inventor 2027 a pro Revit 2027. Nový Kalkulátor nosníků, Inženýrský kalkulátor, Spirograf generátor a Regresní křivky v sekci Převodníky. Kompletní příkazy a proměnné AutoCADu 2027.
Eagle Point Pinnacle - výuka CAD/BIM
RSS kanál - CAD tipy RSS tipy
RSS diskuze

Diskuze Diskuzní fórum, poradna

?
CAD diskuze, rady, výměna zkušeností

CAD Fórum - Homepage Veřejné diskuzní fórum k CAD aplikacím - ptejte se na libovolné otázky týkající se oboru CAx, podělte se o vaše znalosti a zkušenosti s programy AutoCAD, Inventor, Revit, Fusion, 3ds Max, Vault a s dalšími CAD/BIM/PDM aplikacemi. Zaregistrujte se nebo se přihlašte a zašlete váš příspěvek do odpovídajícího fóra. Viz další informace o CAD Fóru. Nechcete se registrovat? Zeptejte se v naší Facebook poradně.
Fórum nenahrazuje technický support firmy ARKANCE (CAD Studio) - přímá podpora pro zákazníky funguje na emea.support.arkance.world
  FAQ FAQ  Prohledat fórum   Události   Registrovat Registrovat  Přihlásit Přihlásit

Téma uzavřenoStyl osvětlení
 Odpovědět Odpovědět archiv
Autor
  Najít Téma Najít Téma  Možnosti tématu Možnosti tématu
Vladimír Michl Zobrazit panel
Moderátor
Moderátor
Avatar
ARKANCE

Přihlášen: 09.zář.2004
Lokalita: ČR (JČ)
Používám:
Implementujeme řešení Autodesk
Stav: Offline
Bodů: 22226
 Přímý odkaz na tuto zprávu Téma: Styl osvětlení
    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.
Vladimír Michl (moderátor)
ARKANCE CZ - arkance.world
(podpora viz emea.support.arkance.world)
Zpět nahoru
Radek Pícha Zobrazit panel
Diskutér
Diskutér

Přihlášen: 04.říj.2004
Lokalita: Czech Republic
Používám:
Inventor
Stav: Offline
Bodů: 66
 Přímý odkaz na tuto zprávu 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.
<font color=BLUE>Ing. Radek Pícha[/COLOR] (konstruktér)

ITS BENDA s.r.o.
Zpět nahoru
Vladimír Michl Zobrazit panel
Moderátor
Moderátor
Avatar
ARKANCE

Přihlášen: 09.zář.2004
Lokalita: ČR (JČ)
Používám:
Implementujeme řešení Autodesk
Stav: Offline
Bodů: 22226
 Přímý odkaz na tuto zprávu 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
Vladimír Michl (moderátor)
ARKANCE CZ - arkance.world
(podpora viz emea.support.arkance.world)
Zpět nahoru
Radek Pícha Zobrazit panel
Diskutér
Diskutér

Přihlášen: 04.říj.2004
Lokalita: Czech Republic
Používám:
Inventor
Stav: Offline
Bodů: 66
 Přímý odkaz na tuto zprávu 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
<font color=BLUE>Ing. Radek Pícha[/COLOR] (konstruktér)

ITS BENDA s.r.o.
Zpět nahoru

Pro technickou podporu CAD
kontaktujte Helpdesk

Příbuzné CAD tipy:
Tip 12533:Proč mám jiný vzhled (odstín) téže součásti v prostředí dílu a sestavy?
Tip 11671:Zcela bílé zobrazení vystínovaného 3D modelu v Inventoru.
Tip 12519:Jak programově přepnout styl zobrazení a osvětlení v Inventoru? (iLogic)
Tip 6156:Jak zabránit převodu materiálů a světel?
Tip 13945:VIPZačínáme s Twinmotion v Revitu - videonávod v 11 kapitolách
Tip 6213:VIPJak načíst IES soubor charakteristiky světla do Revitu?


 Odpovědět Odpovědět

Přejít na fórum Oprávnění fóra Zobrazit panel



Stránka byla vygenerována za 0,233 sekund.
CADfórum
CADfórum
Tipy, triky, podpora, pomoc a rady pro AutoCAD, LT, Inventor, Revit, Map, Civil 3D, 3ds Max, Fusion, Forma, Vault, PowerMill a další Autodesk aplikace (support firmy ARKANCE). Viz O portálu.
Copyright © 2026 | Web reklama na tomto serveru | Ochrana soukromí, podmínky
ARKANCE (CAD Studio) - Autodesk Platinum Partner & Training Center & Services Partner
KONTAKT:
webmaster.cz@arkance.world | tel. +420 910 970 111
FB LN TW YT TW Blog RSS
.
TOPlist
img