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