Solid Edge Draft Type Library > DrawingView Object : ReferenceComponentsByConfigurations Property |
Visual Basic |
---|
Public Property ReferenceComponentsByConfigurations As Boolean |
Imports System.IO Imports System.Runtime.InteropServices Module Example <STAThread()> _ Sub Main() Dim objApplication As SolidEdgeFramework.Application Dim objDraftDocument As SolidEdgeDraft.DraftDocument Dim objSheet As SolidEdgeDraft.Sheet Dim objDrawingViews As SolidEdgeDraft.DrawingViews Dim objDrawingView As SolidEdgeDraft.DrawingView Try OleMessageFilter.Register() objApplication = Marshal.GetActiveObject("SolidEdge.Application") objDraftDocument = objApplication.ActiveDocument objSheet = objDraftDocument.ActiveSheet objDrawingViews = objSheet.DrawingViews For Each objDrawingView In objDrawingViews If objDrawingView.ReferenceComponentsByConfigurations Then objDrawingView.ReferenceComponentsByConfigurations = False Else objDrawingView.ReferenceComponentsByConfigurations = True End If Next Catch ex As Exception Console.WriteLine(ex.Message) Finally OleMessageFilter.Revoke() End Try End Sub End Module