Sanrox,
I updated the macro for my own use to work in SWx2005
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
Set swApp = Application.SldWorks
End Sub
Best Regards,
Heckler
Sr. Mechanical Engineer
SW2005 SP 5.0 & Pro/E 2001
Dell Precision 370
P4 3.6 GHz, 1GB RAM
XP Pro SP2.0
NIVIDA Quadro FX 1400
o
_`\(,_
(_)/ (_)
"Coming together is a beginning, staying together is progress, and working together is success." - Henry Ford