2 Replies Latest reply on Mar 23, 2015 5:11 PM by Brian Titus

    Help with a Macro

    Scott Littlejohn

      I have a macro (shown below) that will generate a PDF from an active drawing, then close the drawing.  However, I have specific drawing templates where the third sheet is strictly for shop notes that I do not want to include in the PDF.  Is there a way to modify this code so that only the first two sheets are included in the PDF?

       

       

      ' ******************************************************************************

      ' MK-Library PDF Generator

      ' ******************************************************************************

      ' Create PDF of open drawing and then close drawing

       

      Dim swApp As SldWorks.SldWorks

      Dim Part As SldWorks.ModelDoc2

       

      Sub main()

       

      Set swApp = Application.SldWorks

      Set Part = swApp.ActiveDoc

      On Error Resume Next

      Dim FilePath As String

      Dim PathSize As Long

      Dim PathNoExtension As String

      Dim NewFilePath As String

       

      FilePath = Part.GetPathName

      PathSize = Strings.Len(FilePath)

      PathNoExtension = Strings.Left(FilePath, PathSize - 6)

      NewFilePath = PathNoExtension & "pdf"

       

      1. Part.SaveAs2 NewFilePath, 0, True, False

       

      1. swApp.ActiveDoc.ActiveView.FrameState = 1

      Set Part = Nothing

      1. swApp.CloseDoc FilePath
      2. swApp.ActiveDoc.ActiveView.FrameLeft = 0
      3. swApp.ActiveDoc.ActiveView.FrameTop = 0
      4. swApp.ActiveDoc.ActiveView.FrameState = 1

       

      End Sub