' 探针 6: Step214Importer 成员
Option Strict Off
Imports System
Imports System.IO
Imports System.Text
Imports NXOpen
Imports NXOpen.UF

Module ProbeApi6
    Sub Main()
        Dim sb As New StringBuilder()
        Dim t As System.Type = GetType(Session).Assembly.GetType("NXOpen.Step214Importer", False)
        If t Is Nothing Then
            sb.AppendLine("Step214Importer 未找到; 列出 Step 相关类型:")
            For Each tt As System.Type In GetType(Session).Assembly.GetTypes()
                If tt.FullName.IndexOf("Step", StringComparison.OrdinalIgnoreCase) >= 0 Then sb.AppendLine("T: " & tt.FullName)
            Next
        Else
            For Each mi As System.Reflection.MemberInfo In t.GetMembers()
                If mi.MemberType = System.Reflection.MemberTypes.Method OrElse mi.MemberType = System.Reflection.MemberTypes.Property Then
                    sb.AppendLine("SI: " & mi.MemberType & " " & mi.Name)
                End If
            Next
            For Each nt As System.Type In t.GetNestedTypes()
                sb.AppendLine("SI NESTED: " & nt.Name)
                For Each f As System.Reflection.FieldInfo In nt.GetFields()
                    If f.IsStatic Then sb.AppendLine("  = " & f.Name)
                Next
            Next
        End If
        File.WriteAllText(Path.Combine(Directory.GetCurrentDirectory(), "probe6.txt"), sb.ToString(), Encoding.UTF8)
    End Sub
End Module
