Barrasmara
Automotive
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
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