teamcenter二次开发源码分享：判断对象是否存在在数据库中

admin

) V$ _% b$ ~0 W. y% J  C+ ]Teamcenter二次开发源码分享：判断对象是否存在在数据库中
4 T4 B. U4 I* |% |% d
; V9 p. `' G; m' c2 H. i7 L; b#include <TC/tc_startup.h>
1 q; K1 r& K. s# T#include <pom/pom/pom.h>
#include <ITK/mem.h>
7 i$ U; a2 F! Z/ e& ^. h3 }  Q+ a#include <tccore/workspaceobject.h>

5 U6 h2 G, T3 `; L4 I( elogical is_instance_in_database(char *variable_name, tag_t object)
/ g& ]$ F: A, G8 R( w; `{
    logical exists_in_db = FALSE;
4 z2 d% L7 d/ B    if(object == NULLTAG) ECHO("\t %s: NULLTAG \n", variable_name);
    else
3 W9 n9 S; L3 s- b    {
        char *uid = NULL;
        ITK__convert_tag_to_uid(object, &uid);
2 V! i. [, V/ B  I3 O" h        POM_instance_exists(object, &exists_in_db);
4 M( t9 e- N7 X( \& q9 n        if(exists_in_db == TRUE)
        {
            if(is_WorkspaceObject(object) )
6 }$ J0 J( ?& Q% F            {
                char *object_id = NULL;
                IFERR_REPORT(WSOM_ask_object_id_string(object, &object_id));
                char *object_type   = NULL;
# h4 Z) E$ z/ y5 p5 ?' D% J                IFERR_REPORT(WSOM_ask_object_type2(object, &object_type));
" {# T6 w2 r+ f3 m+ g' j                ECHO("\t %s: %s - POM_instance_exists: true %s (%s)\n",
4 o5 |4 V' w  [& r5 w" F                    variable_name, uid, object_id, object_type);
                if(object_id) MEM_free(object_id);
                if(object_type) MEM_free(object_type);
            }
1 \6 t6 t4 z. ~            else ECHO("\t %s:  %s - POM_instance_exists: true\n",
2 y! i, G+ T6 _& t1 t( u# X                variable_name, uid);
' H' X' u- Q  E7 p' K        }
        else ECHO("\t %s - POM_instance_exists: false \n", variable_name);
& u# q  \! M, ^6 m3 Y3 M9 `3 l        if(uid) MEM_free(uid);
    }
    return (exists_in_db);
2 I6 {: D. {- p2 m+ p5 g}