0 Replies Latest reply on Sep 14, 2016 7:42 AM by Yong Ning

    Use sheet scale and UseParentScale

    Yong Ning

      Private Sub tUseSheetScale()

          Dim SwApp As SldWorks.SldWorks, SwModel As ModelDoc2

               Set SwApp = Application.SldWorks

               Set SwModel = SwApp.ActiveDoc

          Dim SwSelMgr As SelectionMgr

               Set SwSelMgr = SwModel.SelectionManager

          Dim SwDraw As DrawingDoc

               Set SwDraw = SwModel

          Dim SwView As View

               Set SwView = SwDraw.GetFirstView

               ''

               Do While Not SwView Is Nothing

                    SwView.useSheetScale = True

                    SwView.UseParentScale = True

                    Debug.Print SwView.UseParentScale

                    Set SwView = SwView.GetNextView

               Loop

      End Sub