Option Infer On
Imports System
Imports System.Runtime.InteropServices
Namespace Examples
Friend Class Program
<STAThread>
Shared Sub Main(ByVal args() As String)
Dim application As SolidEdgeFramework.Application = Nothing
Try
' See "Handling 'Application is Busy' and 'Call was Rejected By Callee' errors" topic.
OleMessageFilter.Register()
' Attempt to connect to a running instance of Solid Edge.
application = DirectCast(Marshal.GetActiveObject("SolidEdge.Application"), SolidEdgeFramework.Application)
Dim linksUpdateOptions = SolidEdgeFramework.LinksUpdateOption.igNoLinksUpdate
Dim strAltLinkPath = String.Empty
Dim documentAccess = SolidEdgeFramework.DocumentAccess.igReadOnly
Dim notifyOption = SolidEdgeFramework.NotifyOption.igNoNotify
Dim strFilter = "Solid Edge Files (*.asm; *.par; *.dft; *.psm; *.pwd), *.asm; *.par; *.dft; *.psm; *.pwd"
strFilter &= ", Assembly Files (*.asm), *.asm"
strFilter &= ", Part Files (*.par), *.par"
strFilter &= ", Draft Files (*.dft), *.dft"
strFilter &= ", Sheet Metal Files (*.psm), *.psm"
strFilter &= ", Weldement Files (*.pwd), *.pwd"
Dim docRelationAutoServer As Object = Nothing
Dim strFilePath = application.GetOpenFileName(linksUpdateOptions, strAltLinkPath, documentAccess, notifyOption, docRelationAutoServer, strFilter)
Console.WriteLine(strFilePath)
Catch ex As System.Exception
Console.WriteLine(ex)
Finally
OleMessageFilter.Unregister()
End Try
End Sub
End Class
End Namespace
using System;
using System.Runtime.InteropServices;
namespace Examples
{
class Program
{
[STAThread]
static void Main(string[] args)
{
SolidEdgeFramework.Application application = null;
try
{
// See "Handling 'Application is Busy' and 'Call was Rejected By Callee' errors" topic.
OleMessageFilter.Register();
// Attempt to connect to a running instance of Solid Edge.
application = (SolidEdgeFramework.Application)Marshal.GetActiveObject("SolidEdge.Application");
var linksUpdateOptions = SolidEdgeFramework.LinksUpdateOption.igNoLinksUpdate;
var strAltLinkPath = String.Empty;
var documentAccess = SolidEdgeFramework.DocumentAccess.igReadOnly;
var notifyOption = SolidEdgeFramework.NotifyOption.igNoNotify;
var strFilter = "Solid Edge Files (*.asm; *.par; *.dft; *.psm; *.pwd), *.asm; *.par; *.dft; *.psm; *.pwd";
strFilter += ", Assembly Files (*.asm), *.asm";
strFilter += ", Part Files (*.par), *.par";
strFilter += ", Draft Files (*.dft), *.dft";
strFilter += ", Sheet Metal Files (*.psm), *.psm";
strFilter += ", Weldement Files (*.pwd), *.pwd";
object docRelationAutoServer = null;
var strFilePath = application.GetOpenFileName(out linksUpdateOptions, out strAltLinkPath, out documentAccess, out notifyOption, out docRelationAutoServer, strFilter);
Console.WriteLine(strFilePath);
}
catch (System.Exception ex)
{
Console.WriteLine(ex);
}
finally
{
OleMessageFilter.Unregister();
}
}
}
}