Changing Scale In Isometric View

[Anonymous]

I have a Rule that creates a drawing from a 3D model which includes, Base View, Side View, and Isometric View.  It works very well except I would like to rescale the ISO view smaller to fit on the page better.  haven't had much luck finding a solution on the forum.  Here is what I have. Thanks, John

Dim oAssyDoc As AssemblyDocument
Dim oDrawingDoc As DrawingDocument
Dim oSheet As sheet
Dim oBaseView As DrawingView

DWGcreate = MsgBox ("Would You Like To Create A Drawing From This Part?" & vbLf & vbLf & "This Will Create a Base, Side, Section & ISO View", vbYesNo, "User Prompt")

If DWGcreate = vbYes Then
    oAssyDoc = ThisDoc.Document
    
    oDrawingDoc = ThisApplication.Documents.Add(kDrawingDocumentObject, "C:\Users\Public\Documents\Autodesk\Inventor 2015\Templates\B Template.idw", True)
    oDrawingDoc.Activate()
    
    oSheet = oDrawingDoc.Sheets.Item(1)
    
    oPoint1 = ThisApplication.TransientGeometry.CreatePoint2d(8,12)
    
    oBaseView = oSheet.DrawingViews.AddBaseView(oAssyDoc, oPoint1, 1/14, kFrontViewOrientation, kHiddenLineRemovedDrawingViewStyle)
    
    Dim oRightView As DrawingView
    oPoint2 = ThisApplication.TransientGeometry.CreatePoint2d(18,12)
    Dim RightView = oSheet.DrawingViews.AddProjectedView(oBaseView,oPoint2,DrawingViewStyleEnum.kFromBaseDrawingViewStyle)
    
    Dim oIsoView As DrawingView
    oPoint3 = ThisApplication.TransientGeometry.CreatePoint2d(35,18)
    Dim IsoView = oSheet.DrawingViews.AddProjectedView(oBaseView,oPoint3, kShadedDrawingViewStyle)

[psaarloos · Accepted solution]

Hi,

This should be fairly easy. First make sure the scale of the iso drawingview is not linked to the view you are projecting from. The change the scale property of the view. Try somthing like this:

If IsoView.ScaleFromBase = True Then
   IsoView.ScaleFromBase = False
EndIf

IsoView.Scale = 0.5

Hope it helps!

[Anonymous]

Worked Great! Thanks