Changing a Raster Drawing to "Shading with Edges"

[Barrasmara]

Hi all,

I have written a vba macro that generates a 2D drawing from a 3D assembly, adds balloons to each drawing view then deletes the balloons that aren't relevant (not moving parts).

It all works pretty well, but there is one part that I've not been able to automate. Converting the drawingViews to raster mode with "Shading with edges" turned on is still a manual process.
The following turns the drawingView into raster mode with color, but in "Dynamic hidden line removal" instead. Is there a way to convert it to "Shading with edges" mode?



Dim DrawingViewGenerativeBehavior1 As DrawingViewGenerativeBehavior
Set DrawingViewGenerativeBehavior1= DrawingViewGenerativeBehavior1.GenerativeBehavior

DrawingViewGenerativeBehavior1.ColorInheritanceMode = cat3DColorInheritanceModeOn
DrawingViewGenerativeBehavior1.ImageViewMode = catImageModeHRD

DrawingViewGenerativeBehavior1.Update



Many thanks