Imports System.IO
Imports System.Runtime.InteropServices
Public Class Form1
Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
Dim objApplication As SolidEdgeFramework.Application = Nothing
Dim objVal As Object = Nothing
Dim objDraftDocument As SolidEdgeDraft.DraftDocument = Nothing
Try
' Create/get the application with specific settings
objApplication = Marshal.GetActiveObject("SolidEdge.Application")
' Create new SolidEdgeDraft.DraftDocument.
objDraftDocument = CreateSolidEdgeDocument(objApplication, GetType(SolidEdgeDraft.DraftDocument))
'objDraftDocument = objApplication.ActiveDocument
'Saves the draft document as pdf
objDraftDocument.SaveAs("C:\Temp\Draft1.pdf")
objApplication.GetGlobalParameter(SolidEdgeFramework.ApplicationGlobalConstants.seApplicationGlobalDraftSaveAsPDFSaveAllColorsBlack, objVal)
objApplication.SetGlobalParameter(SolidEdgeFramework.ApplicationGlobalConstants.seApplicationGlobalDraftSaveAsPDFSaveAllColorsBlack, True)
objVal = Nothing
objApplication.GetGlobalParameter(SolidEdgeFramework.ApplicationGlobalConstants.seApplicationGlobalDraftSaveAsPDFIncludeGridDisplay, objVal)
objApplication.SetGlobalParameter(SolidEdgeFramework.ApplicationGlobalConstants.seApplicationGlobalDraftSaveAsPDFIncludeGridDisplay, True)
objVal = Nothing
objApplication.GetGlobalParameter(SolidEdgeFramework.ApplicationGlobalConstants.seApplicationGlobalDraftSaveAsPDFTransparentDVBackgrounds, objVal)
objApplication.SetGlobalParameter(SolidEdgeFramework.ApplicationGlobalConstants.seApplicationGlobalDraftSaveAsPDFTransparentDVBackgrounds, True)
objVal = Nothing
objApplication.GetGlobalParameter(SolidEdgeFramework.ApplicationGlobalConstants.seApplicationGlobalDraftSaveAsPDFUseIndividualSheetSizes, objVal)
objApplication.SetGlobalParameter(SolidEdgeFramework.ApplicationGlobalConstants.seApplicationGlobalDraftSaveAsPDFUseIndividualSheetSizes, False)
objVal = Nothing
objApplication.GetGlobalParameter(SolidEdgeFramework.ApplicationGlobalConstants.seApplicationGlobalDraftSaveAsPDFSheetOptions, objVal)
objApplication.SetGlobalParameter(SolidEdgeFramework.ApplicationGlobalConstants.seApplicationGlobalDraftSaveAsPDFSheetOptions, SolidEdgeConstants.DraftSaveAsPDFSheetOptionsConstants.seDraftSaveAsPDFSheetOptionsConstantsAllSheets)
objVal = Nothing
objApplication.GetGlobalParameter(SolidEdgeFramework.ApplicationGlobalConstants.seApplicationGlobalDraftSaveAsPDFPrintQualityDPI, objVal)
objApplication.SetGlobalParameter(SolidEdgeFramework.ApplicationGlobalConstants.seApplicationGlobalDraftSaveAsPDFPrintQualityDPI, SolidEdgeConstants.DraftSaveAsPDFPrintQualityDPIConstants.seDraftSaveAsPDFPrintQualityDPIConstants_1200)
objVal = Nothing
objApplication.SetGlobalParameter(SolidEdgeFramework.ApplicationGlobalConstants.seApplicationGlobalDraftSaveAsPDFSheetsRange, "2222")
objApplication.GetGlobalParameter(SolidEdgeFramework.ApplicationGlobalConstants.seApplicationGlobalDraftSaveAsPDFSheetsRange, objVal)
objVal = Nothing
objApplication.SetGlobalParameter(SolidEdgeFramework.ApplicationGlobalConstants.seApplicationGlobalDraftSaveAsPDFSheetsRange, "3333")
objApplication.GetGlobalParameter(SolidEdgeFramework.ApplicationGlobalConstants.seApplicationGlobalDraftSaveAsPDFSheetsRange, objVal)
Catch ex As Exception
MsgBox(ex.ToString)
Clipboard.SetText(ex.ToString)
End Try
End Sub
Function CreateSolidEdgeDocument(objApplication As SolidEdgeFramework.Application, objType As Type) As Object
Dim objGuid As Guid
Dim strProgId As String
Dim objDocuments As SolidEdgeFramework.Documents
' Get the Type GUID.
objGuid = objType.GUID
' Get the ProgId for the specified Type.
strProgId = ProgIDFromCLSID(objGuid)
' Get a reference to the Documents object.
objDocuments = objApplication.Documents
' Add specified document.
Return objDocuments.Add(strProgId)
End Function
Function ProgIDFromCLSID(ByRef clsid As Guid) As String
End Function
End Class