2 Replies Latest reply on Aug 13, 2018 9:39 AM by Ian Farquharson

    Inserting model views into a drawing (VBA)

    Ian Farquharson

      I have been trying to use this bit of code to automate my drawing process:



      ' Preconditions:

      ' 1. Open public_documents\samples\tutorial\advdrawings\blade shaft.sldasm.

      ' 2. Click File > Make Drawing from Assembly > OK.

      ' 3. Click a blank area of the FeatureManager design tree.


      ' Postconditions:

      ' 1. Drops the Current, Isometric, and Front views onto

      ' the drawing sheet.

      ' 2. Examine the drawing and Immediate window.


      Option Explicit

      Dim swApp As SldWorks.SldWorks
      Sub main()
          Dim swModel As SldWorks.ModelDoc2
          Dim swDrawing As SldWorks.DrawingDoc
          Dim swFeature As SldWorks.Feature
          Dim swSubFeature As SldWorks.Feature
          Dim swSheet As SldWorks.Sheet
          Dim swView As SldWorks.View
          Dim bFound As Boolean
          Dim vViewNames As Variant
          Dim vViewName As Variant
          Dim strViewName As String
          Dim lNumViews As Long
          Dim dSheetScale As Double
          Dim vSheetProperties As Variant
          Dim nPaperSize As swDwgPaperSizes_e
          Dim dWidth As Double
          Dim dHeight As Double   
          Set swApp = Application.SldWorks
          Set swModel = swApp.ActiveDoc
          Set swDrawing = swModel
          ' Get current sheet
          Set swSheet = swDrawing.GetCurrentSheet
          vSheetProperties = swSheet.GetProperties
          dSheetScale = vSheetProperties(2) / vSheetProperties(3)
          nPaperSize = swSheet.GetSize(dWidth, dHeight)
          Debug.Print "Sheet scale  = " & dSheetScale
          Debug.Print "Sheet width  = " & dWidth
          Debug.Print "Sheet height = " & dHeight
          lNumViews = 0
          vViewNames = swDrawing.GetDrawingPaletteViewNames
          If (Not (IsEmpty(vViewNames))) Then
              lNumViews = (UBound(vViewNames) - LBound(vViewNames) + 1)
              Debug.Print "Number of views on palette = " & lNumViews
              For Each vViewName In vViewNames
                  strViewName = vViewName
                  Debug.Print strViewName
                  If (strViewName = "*Current") Then
                      Set swView = swDrawing.DropDrawingViewFromPalette2(strViewName, dWidth / 5#, dHeight / 5#, 0#)
                      Debug.Print "  Dropped => " & swView.Name
                  End If
                  If (strViewName = "*Isometric") Then
                      Set swView = swDrawing.DropDrawingViewFromPalette2(strViewName, dWidth / 3#, dHeight / 2#, 0#)
                      Debug.Print "  Dropped => " & swView.Name
                  End If
                  If (strViewName = "*Front") Then
                      Set swView = swDrawing.DropDrawingViewFromPalette2(strViewName, dWidth / 4#, dHeight / 3#, 0#)
                      Debug.Print "  Dropped => " & swView.Name
                  End If
              Next vViewName
          End If
      End Sub



      This bit of code works great, if you make drawing from part/assembly.


      My workplace's process is to have a single drawing file with multiple sheets with each assembly and child component that has any extra operations on it other than a straight cut. This means that if I use the above code per each sheet on the drawing, I can only put that model on those sheets because the "DropDrawingViewFromPalette2" only chooses the model that the drawing was created from.


      Another note is that the above code does not work if you open a new drawing, then open the model to place in the drawing, and then run the code.


      Is this possible to do? I have already made a macro to create a drawing and add the correct amount of sheets/ names based on sub assemblies/ parts.







      I found that using predefined views works: swDraw.InsertModelInPredefinedView swCurModel.GetPathName(). I just don't know if there is a way to add predefined views to a new sheet, or add them to the sheet format. My current plan is to copy a "Source Sheet" and paste it over and over until I have all the sheets are there that I need. At the end of the macro I will delete it.