---

hallo ,
habe mit mit einem vb script Probleme,
beim ausführen bekomme ich immer wieder die
die Fehlermeldung das eien Parameter nicht funktioniert.
Option Strict Off

Imports System
Imports NXOpen
Imports NXOpen.UF
Imports NXOpen.UI
Imports NXOpen.Utilities

Module find_and_delete_all_reports

  Public s As Session = Session.GetSession()
  Public ufs As UFSession = UFSession.GetUFSession()
 
  Sub Main()
 
  Dim tempTag As NXOpen.Tag = NXOpen.Tag.Null
      Dim dispPart As Part = s.Parts.Display
  Dim type As Integer
      Dim subtype As Integer
 
    Do
            ufs.Obj.CycleObjsInPart(dispPart.Tag,UFConstants.UF_report_entity_type, tempTag)
                 
  (Zeile 24)        ufs.Obj.AskTypeAndSubtype(tempTag, type, subtype)
'If tempTag <> NXOpen.Tag.Null Then
            If subtype = UFConstants.UF_report_parts_list_subtype Then

ufs.Obj.DeleteObject(tempTag)
    ' End if
            End If

        Loop Until tempTag = NXOpen.Tag.Null

  End Sub

  Public Function GetUnloadOption(ByVal dummy As String) As Integer

      Return Session.LibraryUnloadOption.Immediately

  End Function

End Module

Fehler:
NXOpen.NXException: The first parameter passed in was invalid
  bei NXOpen.UF.UFObj.AskTypeAndSubtype(Tag object_id, Int32& type,Int32& subtype)
  bei find_and_delete_all_reports.Main() in C:\temp\
NXJournals4048\journal.vb:Zeile 24.Fehler
Eine Idee was nicht funktioniert?
Danke.

Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP

---

Hallo Onkel_HO,

vermute, der Fehler kommt vom Cycle: Die Cycles werden m.W. mit Tag.Null gestartet und geben, wenn sie durch sind, wieder Tag.Null zurück.
Wenn Du nun AskTypeAndSubtype mit Tag.Null füttern willst, spuckt's das mit der entsprechenden Fehlermeldung wieder aus.
Kontrollier' also mal die Abbruchbedingung der Do- Schleife bzw. beende sie vorzeitig mit:

Code:

---

if tempTag = Tag.Null then exit do

---

Gruß, Michael

Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP