34 lines
1.4 KiB
VB.net
34 lines
1.4 KiB
VB.net
' 探针 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
|