Solid Edge Framework Type Library > SolidEdgeInsightXT Object : GetInsightXTMode Method |
An output parameter which has two possible values:
Visual Basic |
---|
Public Sub GetInsightXTMode( _ ByRef bIsInsightXTMode As Boolean _ ) |
An output parameter which has two possible values:
Private Sub Command1_Click() On Error Resume Next Dim objApplication As SolidEdgeFramework.Application Dim objSolidEdgeInsightXT As SolidEdgeFramework.SolidEdgeInsightXT Set objApplication = GetObject(, "SolidEdge.Application") Set objSolidEdgeInsightXT = objApplication.SolidEdgeInsightXT Dim bGetInsightXTMode As Boolean Call objSolidEdgeInsightXT.GetInsightXTMode(bGetInsightXTMode) MsgBox (bGetInsightXTMode) Set objSolidEdgeInsightXT = Nothing Set objApplication = Nothing End Sub