I’m trying to write a simple macro that will put the three standard views on a drawing.  I have found many threads that discuss this topic.  I've also found a few macros to do this.  I’m pretty sure the code should include:

swApp.SetUserPreferenceToggle swAutomaticScaling3ViewDrawings, True

bViews = swDrawing.Create3rdAngleViews2(swFileName)

The problem is that the inserted drawing views scale to fit, but the drawing sheet scale stays at 1:1.  I have other macros that I use that require the Views to “Use Sheet Scale.”

I also tried: “Set myView = Part.CreateDrawViewFromModelView3(Model)” and got the same result.  The only way they seem to match up is if I use the “DropDrawingViewFromPalette2” method.  This seems like a cumbersome way to go about it.

Is there something I’m missing?  Thanks.

Chris