Here is the final macro that I settled on. I break out each view and map them to an icon and a numberpad+ (ctrl, alt or shift) to get all the views on the fly. Next to the name of the views I put the shortcut I use as a comment. I have made a multi-sided die to help explain the views. Hope this helps.
Rob Stupplebeen
' ******************************************************
' ISOViews.swp – Recorded on 12/20/01 by Mike J. Wilson
' ISOViews.swp – Updated on 6/7/05 by Heckler
' ISOViews.swp – Updated on 6/3/08 by Stupplebeen
' ******************************************************
Sub main()
Set swApp = CreateObject("SldWorks.Application")
Set Part = swApp.ActiveDoc
pi = 4 * Atn(1)
Z = Tan(30 * pi / 180)
X = Atn(Z / Sqr(-Z * Z + 1))
Y = -45 * pi / 180
Part.DeleteNamedView "ISO-TRF" '3
Part.DeleteNamedView "ISO-TRB" '9
Part.DeleteNamedView "ISO-TLF" '1
Part.DeleteNamedView "ISO-TLB" '7
Part.DeleteNamedView "ISO-BRF" '3C
Part.DeleteNamedView "ISO-BRB" '9C
Part.DeleteNamedView "ISO-BLF" '1C
Part.DeleteNamedView "ISO-BLB" '7C
Part.DeleteNamedView "45-TF" '2A
Part.DeleteNamedView "45-TR" '6A
Part.DeleteNamedView "45-TB" '8A
Part.DeleteNamedView "45-TL" '4A
Part.DeleteNamedView "45-BF" '2C
Part.DeleteNamedView "45-BR" '6C
Part.DeleteNamedView "45-BB" '8C
Part.DeleteNamedView "45-BL" '4C
Part.DeleteNamedView "45-RF" '3A
Part.DeleteNamedView "45-RB" '9A
Part.DeleteNamedView "45-LF" '1A
Part.DeleteNamedView "45-LB" '7A
Part.ShowNamedView2 "*Front", -1
Part.ActiveView().RotateAboutCenter X, Y
Part.ViewZoomtofit
Part.NameView "ISO-TRF"
Part.ShowNamedView2 "*Right", -1
Part.ActiveView().RotateAboutCenter X, Y
Part.ViewZoomtofit
Part.NameView "ISO-TRB"
Part.ShowNamedView2 "*Left", -1
Part.ActiveView().RotateAboutCenter X, Y
Part.ViewZoomtofit
Part.NameView "ISO-TLF"
Part.ShowNamedView2 "*Back", -1
Part.ActiveView().RotateAboutCenter X, Y
Part.ViewZoomtofit
Part.NameView "ISO-TLB"
Part.ShowNamedView2 "*Front", -1
Part.ActiveView().RotateAboutCenter -X, Y
Part.ViewZoomtofit
Part.NameView "ISO-BRF"
Part.ShowNamedView2 "*Right", -1
Part.ActiveView().RotateAboutCenter -X, Y
Part.ViewZoomtofit
Part.NameView "ISO-BRB"
Part.ShowNamedView2 "*Left", -1
Part.ActiveView().RotateAboutCenter -X, Y
Part.ViewZoomtofit
Part.NameView "ISO-BLF"
Part.ShowNamedView2 "*Back", -1
Part.ActiveView().RotateAboutCenter -X, Y
Part.ViewZoomtofit
Part.NameView "ISO-BLB"
Part.ShowNamedView2 "*Front", -1
Part.ActiveView().RotateAboutCenter -Y, 0
Part.ViewZoomtofit
Part.NameView "45-TF"
Part.ShowNamedView2 "*Right", -1
Part.ActiveView().RotateAboutCenter -Y, 0
Part.ViewZoomtofit
Part.NameView "45-TR"
Part.ShowNamedView2 "*Back", -1
Part.ActiveView().RotateAboutCenter -Y, 0
Part.ViewZoomtofit
Part.NameView "45-TB"
Part.ShowNamedView2 "*Left", -1
Part.ActiveView().RotateAboutCenter -Y, 0
Part.ViewZoomtofit
Part.NameView "45-TL"
Part.ShowNamedView2 "*Front", -1
Part.ActiveView().RotateAboutCenter Y, 0
Part.ViewZoomtofit
Part.NameView "45-BF"
Part.ShowNamedView2 "*Right", -1
Part.ActiveView().RotateAboutCenter Y, 0
Part.ViewZoomtofit
Part.NameView "45-BR"
Part.ShowNamedView2 "*Back", -1
Part.ActiveView().RotateAboutCenter Y, 0
Part.ViewZoomtofit
Part.NameView "45-BB"
Part.ShowNamedView2 "*Left", -1
Part.ActiveView().RotateAboutCenter Y, 0
Part.ViewZoomtofit
Part.NameView "45-BL"
Part.ShowNamedView2 "*Front", -1
Part.ActiveView().RotateAboutCenter 0, Y
Part.ViewZoomtofit
Part.NameView "45-RF"
Part.ShowNamedView2 "*Back", -1
Part.ActiveView().RotateAboutCenter 0, -Y
Part.ViewZoomtofit
Part.NameView "45-RB"
Part.ShowNamedView2 "*Front", -1
Part.ActiveView().RotateAboutCenter 0, -Y
Part.ViewZoomtofit
Part.NameView "45-LF"
Part.ShowNamedView2 "*Back", -1
Part.ActiveView().RotateAboutCenter 0, Y
Part.ViewZoomtofit
Part.NameView "45-LB"
Set Part = Nothing
Set swApp = Nothing
Set swApp = Application.SldWorks
End Sub