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

admin

$ Q) E# K4 C8 a( ~Teamcenter二次开发源码分享：判断对象是否存在在数据库中

( j8 M! E* e& B! K#include <TC/tc_startup.h>
3 z; l+ R  I4 P# o# B1 _# r#include <pom/pom/pom.h>
% X) [! a! H+ u, D+ d. \* w/ f#include <ITK/mem.h>
#include <tccore/workspaceobject.h>

1 h3 A- x: o# B4 ~3 C9 llogical is_instance_in_database(char *variable_name, tag_t object)
: E3 R9 G6 P' B- i8 e{
" T, \4 a. \; f- j7 y, m    logical exists_in_db = FALSE;
    if(object == NULLTAG) ECHO("\t %s: NULLTAG \n", variable_name);
. v% F: N, r8 F    else
    {
        char *uid = NULL;
- g1 A! o4 D$ n6 }" T        ITK__convert_tag_to_uid(object, &uid);
% @. S" X( I1 U7 S7 t& ~$ D        POM_instance_exists(object, &exists_in_db);
        if(exists_in_db == TRUE)
        {
            if(is_WorkspaceObject(object) )
' z+ s/ W0 J; j" L. Q- R( ]            {
; @4 [1 I' I6 v5 Q8 k2 p3 ^                char *object_id = NULL;
                IFERR_REPORT(WSOM_ask_object_id_string(object, &object_id));
4 _2 R1 j! `) d- h  d4 u                char *object_type   = NULL;
                IFERR_REPORT(WSOM_ask_object_type2(object, &object_type));
- A' U/ A; o' ]# L$ u) \7 V: h; i                ECHO("\t %s: %s - POM_instance_exists: true %s (%s)\n",
                    variable_name, uid, object_id, object_type);
$ T" N& r8 s, U  {$ p                if(object_id) MEM_free(object_id);
! L& _  [- P5 |7 X. a: n$ k& a/ F; e, U                if(object_type) MEM_free(object_type);
            }
            else ECHO("\t %s:  %s - POM_instance_exists: true\n",
) l( C) D+ }" R                variable_name, uid);
        }
7 q$ J$ }2 d8 K7 u: K) B* a$ a        else ECHO("\t %s - POM_instance_exists: false \n", variable_name);
$ X+ @1 B5 i$ e2 a7 U' G        if(uid) MEM_free(uid);
6 f4 g( T! _. h- Y* U% q    }
    return (exists_in_db);
}