http://webpages.charter.net/mkikstra/SWXMacros/IsoViews.zip
If I´m correct this creates 4 isometric views to part / assy.... there
is Macro also which creates 8 isometric views to part / assy, but I just
cant find it right now...
JC, I'm sure Wayne will chime in with all the details, but his number keypad
macros are amazing, and exactly what you're after.
Oh BTW, don't be scared about the customer part, they're free, just my stab
at a little humor,
Muggs
"Primeau" <jcpr...@hotmail.com> wrote in message
news:fd2ee071.05040...@posting.google.com...
' *************************************************************
' ISOViews.swp - macro recorded on 12/20/01 by Mike J. Wilson
' *************************************************************
' Special thanks to Dennis Kelley and Dan Hanger for tips
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 ("TRtFt")
Part.DeleteNamedView ("TRtRr")
Part.DeleteNamedView ("TLftFt")
Part.DeleteNamedView ("TLftRr")
Part.DeleteNamedView ("BRtFt")
Part.DeleteNamedView ("BRtRr")
Part.DeleteNamedView ("BLftFt")
Part.DeleteNamedView ("BLftRr")
Part.ShowNamedView2 "*Front", -1
Part.ActiveView().RotateAboutCenter X, Y
Part.ViewZoomtofit2
Part.NameView ("TRtFt")
Part.ShowNamedView2 "*Right", -1
Part.ActiveView().RotateAboutCenter X, Y
Part.ViewZoomtofit2
Part.NameView ("TRtRr")
Part.ShowNamedView2 "*Back", -1
Part.ActiveView().RotateAboutCenter X, Y
Part.ViewZoomtofit2
Part.NameView ("TLftRr")
Part.ShowNamedView2 "*Left", -1
Part.ActiveView().RotateAboutCenter X, Y
Part.ViewZoomtofit2
Part.NameView ("TLftFt")
Part.ShowNamedView2 "*Front", -1
Part.ActiveView().RotateAboutCenter -X, Y
Part.ViewZoomtofit2
Part.NameView ("BRtFt")
Part.ShowNamedView2 "*Right", -1
Part.ActiveView().RotateAboutCenter -X, Y
Part.ViewZoomtofit2
Part.NameView ("BRtRr")
Part.ShowNamedView2 "*Back", -1
Part.ActiveView().RotateAboutCenter -X, Y
Part.ViewZoomtofit2
Part.NameView ("BLftRr")
Part.ShowNamedView2 "*Left", -1
Part.ActiveView().RotateAboutCenter -X, Y
Part.ViewZoomtofit2
Part.NameView ("BLftFt")
Set Part = Nothing
Set swApp = Nothing
End Sub
Ok, enough of the silliness. Lee bell wrote most of the code for this macro
set and you could use them for an example of how to produce any view you
want. But the whole set is your just for the asking and then you can use
the drawing set as well. Testimonials can also be had here - just ask.
WT
"Muggs" <Mugg...@home.net> wrote in message
news:EYudnTG8rI5...@comcast.com...
Muggs
"Dale Dunn" <daledun...@jamestool.com> wrote in message
news:Xns96326D67936CAda...@65.24.7.50...
WT
"Dale Dunn" <daledun...@jamestool.com> wrote in message
news:Xns96326D67936CAda...@65.24.7.50...