ISO View Macro

Does anybody know what changes are needed in the formula to make this work with Diametric Views?

(BTW this is a great macro, thanks for those who took the time to write / develop it!!)

' ************************************************************* ' ISOViews.swp - macro recorded on 12/20/01 by Mike J. Wilson ' ************************************************************* ' Special thanks to Dennis Kelley and Dan Hanger for tips ' Modified to include all 8 Iso Views by Lee Bell

Dim swApp As Object Dim Part As Object Dim boolstatus As Boolean Dim longstatus As Long Dim Annotation As Object Dim Gtol As Object Dim DatumTag As Object Dim FeatureData As Object Dim Feature As Object Dim Component As Object

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 ("TRF-ISO") Part.DeleteNamedView ("TRR-ISO") Part.DeleteNamedView ("TLF-ISO") Part.DeleteNamedView ("TLR-ISO")

Part.DeleteNamedView ("BRF-ISO") Part.DeleteNamedView ("BRR-ISO") Part.DeleteNamedView ("BLF-ISO") Part.DeleteNamedView ("BLR-ISO")

Part.ShowNamedView2 "*Front", -1 Part.ActiveView().RotateAboutCenter x, y Part.ViewZoomtofit Part.NameView ("TRF-ISO")

Part.ShowNamedView2 "*Right", -1 Part.ActiveView().RotateAboutCenter x, y Part.ViewZoomtofit Part.NameView ("TRR-ISO")

Part.ShowNamedView2 "*Back", -1 Part.ActiveView().RotateAboutCenter x, y Part.ViewZoomtofit Part.NameView ("TLR-ISO")

Part.ShowNamedView2 "*Left", -1 Part.ActiveView().RotateAboutCenter x, y Part.ViewZoomtofit Part.NameView ("TLF-ISO")

Part.ShowNamedView2 "*Front", -1 Part.ActiveView().RotateAboutCenter -x, y Part.ViewZoomtofit Part.NameView ("BRF-ISO")

Part.ShowNamedView2 "*Right", -1 Part.ActiveView().RotateAboutCenter -x, y Part.ViewZoomtofit Part.NameView ("BRR-ISO")

Part.ShowNamedView2 "*Back", -1 Part.ActiveView().RotateAboutCenter -x, y Part.ViewZoomtofit Part.NameView ("BLR-ISO")

Part.ShowNamedView2 "*Left", -1 Part.ActiveView().RotateAboutCenter -x, y Part.ViewZoomtofit Part.NameView ("BLF-ISO")

Set Part = Nothing Set swApp = Nothing

End Sub