Hier ein Script für Ausgabe der OBJECT_ID mit MsgBox.
Als Benutzerdefinierte Funktion anhängen => Projekt auswählen, Funktion => OBJECT_ID.
--- START Script ---
Function ObjectId(ApplHndl As Long,Sstr As String,FirstPar As Long,SecondPar As Long,ThirdPar As Long) As Integer
' ------------------------------------------------
' --- Variablen festlegen --------------------
' ------------------------------------------------
Dim Session As SmApplic.SmSession
Dim FirstRecList As Object
Dim SecondRecList As Object
Dim ThirdRecList As Object
Dim i As Integer
' ------------------------------------------------
' --- Session, Konvertierung der Argumente ---
' ------------------------------------------------
' --- Aktuelle Sitzung erfassen ---
Set Session = SCREXT_ObjectForInterface(ApplHndl)
' --- Prozedurale Argumente in COM-Argumente umwandeln ---
CONV_RecListToComRecordList FirstPar, FirstRecList
CONV_RecListToComRecordList SecondPar, SecondRecList
CONV_RecListToComRecordList ThirdPar, ThirdRecList
' --- OBJECT_ID für alle Records auslesen
For i = 0 To FirstRecList.RecordCount -1
msgbox firstRecList.GetRecord(i).Value("OBJECT_ID")
Next
End Function
--- ENDE Script ---
------------------
PLM Solutions für CATIA, Pro/E, Autodesk, ... mit SMARTEAM.
http://www.transcat-plm.ch/
Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP