Here are the quick codes to set the display of zebra stripes
Dim swApp As SldWorks.SldWorks
Dim swModel As SldWorks.ModelDoc2
Dim swModelView As ModelView
Set swApp = Application.SldWorks
Set swModel = swApp.ActiveDoc
Set swModelView = swModel.GetFirstModelView
swModel.SetZebraStripeData 12, 0.4, 16777215, 0
swModelView.DisplayZebraStripes = True
I doubt that selecting of HDR has not been implemented yet in API. You may want to check with API team for further details.
Thanks for reply! I understand that there is no way to show HDR via API.
I would be happy if I could use new method of zebra analysis that capable of using HDR in near future...
You can always request SW development team to add this functionality.