首次提交: OnebotCatalog 项目代码与文档(含 NX 按需生成服务二期、后台、一键启动)
This commit is contained in:
33
sample-data/tools/probe-api6.vb
Normal file
33
sample-data/tools/probe-api6.vb
Normal file
@@ -0,0 +1,33 @@
|
||||
' 探针 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
|
||||
Reference in New Issue
Block a user