Specifies whether the referenced view is a perspective view.
Visual Basic |
---|
Public Property IsPerspective As Boolean |
Imports System.IO Imports System.Runtime.InteropServices Module Example <STAThread()> _ Sub Main() Dim objApplication As SolidEdgeFramework.Application = Nothing Dim objDraftDocument As SolidEdgeDraft.DraftDocument = Nothing Dim objSheet As SolidEdgeDraft.Sheet = Nothing Dim objDrawingViews As SolidEdgeDraft.DrawingViews = Nothing Dim objDrawingView As SolidEdgeDraft.DrawingView = Nothing Dim bPerspective As Boolean Try OleMessageFilter.Register() objApplication = Marshal.GetActiveObject("SolidEdge.Application") objDraftDocument = objApplication.ActiveDocument objSheet = objDraftDocument.ActiveSheet objDrawingViews = objSheet.DrawingViews For Each objDrawingView In objDrawingViews bPerspective = objDrawingView.IsPerspective Next Catch ex As Exception Console.WriteLine(ex.Message) Finally OleMessageFilter.Revoke() End Try End Sub End Module
using System.IO; using System.Runtime.InteropServices; internal static class Example { [STAThread()] public static void Main() { SolidEdgeFramework.Application objApplication = null; SolidEdgeDraft.DraftDocument objDraftDocument = null; SolidEdgeDraft.Sheet objSheet = null; SolidEdgeDraft.DrawingViews objDrawingViews = null; // SolidEdgeDraft.DrawingView objDrawingView = null; bool bPerspective = false; try { OleMessageFilter.Register(); objApplication = (SolidEdgeFramework.Application)Marshal.GetActiveObject("SolidEdge.Application"); objDraftDocument = objApplication.ActiveDocument; objSheet = objDraftDocument.ActiveSheet; objDrawingViews = objSheet.DrawingViews; foreach (SolidEdgeDraft.DrawingView objDrawingView in objDrawingViews) { bPerspective = objDrawingView.IsPerspective; } } catch (Exception ex) { Console.WriteLine(ex.Message); } finally { OleMessageFilter.Revoke(); } } }