Imports System.Runtime.InteropServices

Imports SolidEdgeFramework

Imports SolidEdgeDraft

​

Public Class SaveDrawingAsPDF

    ' Main entry point for the macro

    Public Shared Sub Main()

        ' Get the active Solid Edge application

        Dim app As SolidEdgeApplication = Marshal.GetActiveObject("SolidEdge.Application")

​

        ' Get the active document

        Dim draftDoc As DraftDocument = app.ActiveDocument

​

        ' Path where the PDF file should be saved

        Dim pdfFilePath As String = "C:\Path\To\Save\Drawing.pdf" ' Update with your desired file path

​

        Try

            ' Save the drawing as PDF

            draftDoc.SaveAs(pdfFilePath, 1) ' 1 refers to exporting as PDF

​

            ' Optionally, display a success message

            Console.WriteLine("Drawing saved as PDF at: " & pdfFilePath)

        Catch ex As Exception

            ' Handle any errors (file path, permissions, etc.)

            Console.WriteLine("An error occurred: " & ex.Message)

        End Try

    End Sub

End Class