ApplyNamedView Method

Description

Apply a named view.

Syntax

Visual Basic
Public Sub ApplyNamedView( _ ByVal Name As Variant _ )

Parameters

Name: Specify Name of the view object as string.

Remarks

This API takes a string as an argument and applies the view based on its name.

Example

Example (VB.NET)

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 objPartDoc As SolidEdgePart.PartDocument = Nothing
        Dim Obj1 As Object = Nothing
        Try
            ' Get application 
            objApplication = Marshal.GetActiveObject("SolidEdge.Application")

            If objApplication Is Nothing Then
                objApplication = Activator.CreateInstance(Type.GetTypeFromProgID("SolidEdge.Application"))
                objApplication.Visible = True
            End If

            If objPartDoc Is Nothing Then
                objPartDoc = objPartDoc.Documents.Add("SolidEdge.PartDocument")
            End If

            ' The methods take variants (objects) in order to allow for expansion in further projects but at this moment they will only take strings. 
            Obj1 = "TestView"
            Dim window As SolidEdgeFramework.Window = objPartDoc.Windows.Item(1)
            Dim view As SolidEdgeFramework.View
            view = window.View
            view.SaveCurrentView(Obj1)
            view.ApplyNamedView(Obj1)
        Catch ex As Exception
            MsgBox(ex.ToString)
        End Try

    End Sub
End Class