Saves the referenced document to a new name, directory, or format.
Visual Basic |
---|
Public Sub SaveAs( _ ByVal NewName As String, _ Optional ByVal IsATemplate As Variant, _ Optional ByVal FileFormat As Variant, _ Optional ByVal ReadOnlyEnforced As Variant, _ Optional ByVal ReadOnlyRecommended As Variant, _ Optional ByVal NewStatus As Variant, _ Optional ByVal CreateBackup As Variant, _ Optional ByVal UpdateLinkInContainer As Variant, _ Optional ByVal UpdateAllLinksInContainer As Variant _ ) |
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
using System.Windows.Forms; using System.IO; using System.Runtime.InteropServices; public class Form1 { private void Button1_Click(object sender, EventArgs e) { SolidEdgeFramework.Application objApplication = null; object objVal = null; SolidEdgeDraft.DraftDocument objDraftDocument = null; try { // Create/get the application with specific settings objApplication = (SolidEdgeFramework.Application)Marshal.GetActiveObject("SolidEdge.Application"); // Create new SolidEdgeDraft.DraftDocument. objDraftDocument = (SolidEdgeDraft.DraftDocument)CreateSolidEdgeDocument(objApplication, typeof(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 = null; objApplication.GetGlobalParameter(SolidEdgeFramework.ApplicationGlobalConstants.seApplicationGlobalDraftSaveAsPDFIncludeGridDisplay, objVal); objApplication.SetGlobalParameter(SolidEdgeFramework.ApplicationGlobalConstants.seApplicationGlobalDraftSaveAsPDFIncludeGridDisplay, true); objVal = null; objApplication.GetGlobalParameter(SolidEdgeFramework.ApplicationGlobalConstants.seApplicationGlobalDraftSaveAsPDFTransparentDVBackgrounds, objVal); objApplication.SetGlobalParameter(SolidEdgeFramework.ApplicationGlobalConstants.seApplicationGlobalDraftSaveAsPDFTransparentDVBackgrounds, true); objVal = null; objApplication.GetGlobalParameter(SolidEdgeFramework.ApplicationGlobalConstants.seApplicationGlobalDraftSaveAsPDFUseIndividualSheetSizes, objVal); objApplication.SetGlobalParameter(SolidEdgeFramework.ApplicationGlobalConstants.seApplicationGlobalDraftSaveAsPDFUseIndividualSheetSizes, false); objVal = null; objApplication.GetGlobalParameter(SolidEdgeFramework.ApplicationGlobalConstants.seApplicationGlobalDraftSaveAsPDFSheetOptions, objVal); objApplication.SetGlobalParameter(SolidEdgeFramework.ApplicationGlobalConstants.seApplicationGlobalDraftSaveAsPDFSheetOptions, SolidEdgeConstants.DraftSaveAsPDFSheetOptionsConstants.seDraftSaveAsPDFSheetOptionsConstantsAllSheets); objVal = null; objApplication.GetGlobalParameter(SolidEdgeFramework.ApplicationGlobalConstants.seApplicationGlobalDraftSaveAsPDFPrintQualityDPI, objVal); objApplication.SetGlobalParameter(SolidEdgeFramework.ApplicationGlobalConstants.seApplicationGlobalDraftSaveAsPDFPrintQualityDPI, SolidEdgeConstants.DraftSaveAsPDFPrintQualityDPIConstants.seDraftSaveAsPDFPrintQualityDPIConstants_1200); objVal = null; objApplication.SetGlobalParameter(SolidEdgeFramework.ApplicationGlobalConstants.seApplicationGlobalDraftSaveAsPDFSheetsRange, "2222"); objApplication.GetGlobalParameter(SolidEdgeFramework.ApplicationGlobalConstants.seApplicationGlobalDraftSaveAsPDFSheetsRange, objVal); objVal = null; objApplication.SetGlobalParameter(SolidEdgeFramework.ApplicationGlobalConstants.seApplicationGlobalDraftSaveAsPDFSheetsRange, "3333"); objApplication.GetGlobalParameter(SolidEdgeFramework.ApplicationGlobalConstants.seApplicationGlobalDraftSaveAsPDFSheetsRange, objVal); } catch (Exception ex) { MessageBox.Show(ex.ToString()); Clipboard.SetText(ex.ToString()); } } public object CreateSolidEdgeDocument(SolidEdgeFramework.Application objApplication, Type objType) { Guid objGuid = new Guid(); string strProgId = null; SolidEdgeFramework.Documents objDocuments = null; // Get the Type GUID. objGuid = objType.GUID; // Get the ProgId for the specified Type. strProgId = ProgIDFromCLSID(ref objGuid); // Get a reference to the Documents object. objDocuments = objApplication.Documents; // Add specified document. return objDocuments.Add(strProgId); } public string ProgIDFromCLSID(ref Guid clsid) { return null; } public Form1() { SubscribeToEvents(); } private bool EventsSubscribed = false; private void SubscribeToEvents() { if (EventsSubscribed) return; else EventsSubscribed = true; Button1.Click += Button1_Click; } }