首次提交: OnebotCatalog 项目代码与文档（含 NX 按需生成服务二期、后台、一键启动）

sample-data/tools/probe-display-api.vb

@@ -0,0 +1,72 @@
+' =============================================================================
+' NX Journal: probe how to SET the display part + locate DexManager (NX 2506)
+'
+' Last test failed: Parts.Display is ReadOnly. Need to find the correct API to
+' set the display part (so the STEP translator's DisplayPart mode can see the
+' solids in batch mode). Also re-confirm where DexManager lives (Session vs
+' Part vs BasePart) to know which export API to use.
+'
+' Dumps (reflection only, no risky calls):
+'   Session         members containing "Display" / "Dex"
+'   PartCollection  members containing "Display" / "Set" / "Work"
+'   Part            members containing "Display" / "Dex"
+'   BasePart        members containing "Display" / "Dex"
+'
+' Run: WorkingDirectory = catalog-masters\KC; run_journal.exe <this file>
+' Result: <cwd>\probe-display-api.txt
+'
+' Note: English comments only (avoids GBK/BOM mojibake on no-BOM .vb files).
+' =============================================================================
+Option Strict Off
+Imports System
+Imports System.IO
+Imports System.Text
+Imports NXOpen
+Imports NXOpen.UF
+
+Module ProbeDisplayApi
+
+    Sub DumpMembers(sb As StringBuilder, prefix As String, t As System.Type, filter As String)
+        For Each mi As System.Reflection.MemberInfo In t.GetMembers()
+            If filter.Length = 0 OrElse mi.Name.IndexOf(filter, StringComparison.OrdinalIgnoreCase) >= 0 Then
+                If mi.MemberType = System.Reflection.MemberTypes.Method OrElse
+                   mi.MemberType = System.Reflection.MemberTypes.Property Then
+                    sb.AppendLine(prefix & ": " & mi.MemberType & " " & mi.Name)
+                End If
+            End If
+        Next
+    End Sub
+
+    Sub Main()
+        Dim sb As New StringBuilder()
+
+        sb.AppendLine("=== Session members (Display) ===")
+        DumpMembers(sb, "S", GetType(Session), "Display")
+        sb.AppendLine("=== Session members (Dex) ===")
+        DumpMembers(sb, "S", GetType(Session), "Dex")
+
+        sb.AppendLine("=== PartCollection members (Display) ===")
+        DumpMembers(sb, "PC", GetType(PartCollection), "Display")
+        sb.AppendLine("=== PartCollection members (Set) ===")
+        DumpMembers(sb, "PC", GetType(PartCollection), "Set")
+        sb.AppendLine("=== PartCollection members (Work) ===")
+        DumpMembers(sb, "PC", GetType(PartCollection), "Work")
+
+        sb.AppendLine("=== Part members (Display) ===")
+        DumpMembers(sb, "P", GetType(Part), "Display")
+        sb.AppendLine("=== Part members (Dex) ===")
+        DumpMembers(sb, "P", GetType(Part), "Dex")
+
+        sb.AppendLine("=== BasePart members (Display) ===")
+        DumpMembers(sb, "B", GetType(BasePart), "Display")
+        sb.AppendLine("=== BasePart members (Dex) ===")
+        DumpMembers(sb, "B", GetType(BasePart), "Dex")
+
+        ' Also: does BasePart have a SetDisplay-style method?
+        sb.AppendLine("=== BasePart members (Set) ===")
+        DumpMembers(sb, "B", GetType(BasePart), "Set")
+
+        File.WriteAllText(Path.Combine(Directory.GetCurrentDirectory(), "probe-display-api.txt"), sb.ToString(), New UTF8Encoding(True))
+    End Sub
+
+End Module