Text dotazu:
Dobrý den, měl bych dotaz na nějaké drobné makro, které by dokázalo na vybraném ISO pohledu ve výkrese automaticky zapnout barvy 3D colors a ještě i změnit Exact view na Raster. A v Raster bych potřeboval mít v Options nastavení Shading with edges.
Zkoušel jsem to nahráním makra přes Start Recording, ale toto není úplně správné řešení. Po spuštění makra se mi zapne 3D colors, ale další nastavení už ne. Takže mám barevné obrysy dílu, ale už nikoliv plochy, na nichž to potřebuji nejvíce. Nehledě k tomu, že se mi nedaří si vybrat pohled, na němž chci změnu provést, a vždy to bere pouze pohled s názvem, který je definován v makru.
Zde je text, který mi to nahrálo:

Language="VBSCRIPT"



Sub CATMain()

Set drawingDocument1 = CATIA.ActiveDocument

Set drawingSheets1 = drawingDocument1.Sheets

Set drawingSheet1 = drawingSheets1.Item("Sheet.1")

Set drawingViews1 = drawingSheet1.Views

Set drawingView1 = drawingViews1.Item("Isometric view")

Set drawingViewGenerativeBehavior1 = drawingView1.GenerativeBehavior

drawingViewGenerativeBehavior1.ColorInheritanceMode = cat3DColorInheritanceModeOn

Set drawingViewGenerativeBehavior1 = drawingView1.GenerativeBehavior

drawingViewGenerativeBehavior1.ForceUpdate 

Set drawingViewGenerativeBehavior1 = drawingView1.GenerativeBehavior

End Sub

Přiložené obrázky: