Diskuzní fórum a databáze tipů a utilit pro AutoCAD, Inventor, Revit a další produkty Autodesk - od firmy CAD Studio [www.cadforum.cz]
Česky Slovensky English Deutsch
Přihlášení:
▶ Registrace

 právě nás čte: 3470 
RSS tipy RSS kanál - CAD tipy
RSS diskuze RSS kanál - CAD diskuze

Diskuze Diskuzní fórum, poradna

NápovědaCAD 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 360, 3ds Max a s dalšími CAD 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 CAD Studio - přímá podpora pro zákazníky funguje na helpdesk.cadstudio.cz
  FAQ FAQ  Prohledat fórum   Události   Registrovat Registrovat  Přihlásit Přihlásit

Styl osvětlení

 Odpovědět Odpovědět archiv
Autor
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
Možnosti příspěvku Možnosti příspěvku   Poděkování (0) Poděkování0   Citace Radek Pícha Citace  OdpovědětOdpověď Přímý odkaz na tuto zprávu Téma: Styl osvětlení
    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
Vladimír Michl Zobrazit panel
Moderátor
Moderátor
Avatar
CAD Studio s.r.o.

Přihlášen: 09.zář.2004
Lokalita: ČR (JČ)
Používám:
Dodáváme produkty Autodesk
Stav: Offline
Bodů: 19276
Možnosti příspěvku Možnosti příspěvku   Poděkování (0) Poděkování0   Citace Vladimír Michl Citace  OdpovědětOdpověď 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)
CAD Studio s.r.o. - www.cadstudio.cz
(podporu najdete na helpdesk.cadstudio.cz)
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
Možnosti příspěvku Možnosti příspěvku   Poděkování (0) Poděkování0   Citace Radek Pícha Citace  OdpovědětOdpověď 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
CAD Studio s.r.o.

Přihlášen: 09.zář.2004
Lokalita: ČR (JČ)
Používám:
Dodáváme produkty Autodesk
Stav: Offline
Bodů: 19276
Možnosti příspěvku Možnosti příspěvku   Poděkování (0) Poděkování0   Citace Vladimír Michl Citace  OdpovědětOdpověď Přímý odkaz na tuto zprávu 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)
CAD Studio s.r.o. - www.cadstudio.cz
(podporu najdete na helpdesk.cadstudio.cz)
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 6213:VIPJak načíst IES soubor charakteristiky světla do Revitu?
Tip 9540:Výpočet denního osvětlení v BIM projektu v 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,141 sekund.