6 Replies Latest reply on Jan 24, 2017 2:48 AM by Mathew Challinor

    Change Scale and Shading of a single view

    Mathew Challinor

      Hi guys,


      I'm trying to change the shading of a single view in my macro. The macro creates a view then a project view form "Drawing View1". I'm then wanting to change the shading and scale of the newly created view two. I have been playing around and currently I'm changing the shading and scale and all views not just view one. Can some correct me where I'm going wrong. this is a snippet of my code;


        Dim vScaleRatio As Variant


        boolstatus = swModel.Extension.SelectByID2("Drawing View1", "DRAWINGVIEW", 0.13842553485699, 0.137862387566601, 0, False, 0, Nothing, 0)
        Set myView = swModel.CreateUnfoldedViewAt3(0.180250386904157, 0.13971698113208, 0, True)
        swModel.ClearSelection2 True
        boolstatus = swModel.Extension.SelectByID2("Drawing View2", "DRAWINGVIEW", 0.13842553485699, 0.187862387566601, 0, False, 0, Nothing, 0)

         vScaleRatio = swView.ScaleRatio
         swView.ScaleDecimal = swView.ScaleDecimal * 0.7
         vScaleRatio = swView.ScaleRatio
         boolstatus = swModel.EditRebuild3()
        swView.SetDisplayMode3 False, swSHADED, True, True