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

admin

; P! Q7 S& o- F6 M9 a, E8 gTeamcenter二次开发源码分享：判断对象是否存在在数据库中
; ]2 u7 b. [. J# ~8 r' ?
: b& z9 U5 K" l' |/ f! M#include <TC/tc_startup.h>
#include <pom/pom/pom.h>
#include <ITK/mem.h>
8 J. ^5 V( L' n( k! }#include <tccore/workspaceobject.h>
# [7 n( d7 l2 V/ M1 @. t+ F
1 I3 V* r% R, M. F2 j) B1 G+ \logical is_instance_in_database(char *variable_name, tag_t object)
8 Q* I! w& M9 j* U( ^{
    logical exists_in_db = FALSE;
: [0 X9 x" J+ p3 I' j5 G    if(object == NULLTAG) ECHO("\t %s: NULLTAG \n", variable_name);
    else
4 z/ G4 N3 X3 O1 x# [; G) ~2 U    {
        char *uid = NULL;
        ITK__convert_tag_to_uid(object, &uid);
        POM_instance_exists(object, &exists_in_db);
        if(exists_in_db == TRUE)
$ e  e& x6 K7 D        {
4 x% D5 _3 F1 R, y" W            if(is_WorkspaceObject(object) )
% x8 n8 A* {& w" K            {
                char *object_id = NULL;
                IFERR_REPORT(WSOM_ask_object_id_string(object, &object_id));
                char *object_type   = NULL;
# ~7 S& w& o' ^. n8 `, v8 N                IFERR_REPORT(WSOM_ask_object_type2(object, &object_type));
                ECHO("\t %s: %s - POM_instance_exists: true %s (%s)\n",
                    variable_name, uid, object_id, object_type);
) r1 ?/ M" U2 G+ U: L$ v# H                if(object_id) MEM_free(object_id);
                if(object_type) MEM_free(object_type);
8 H6 H/ G9 f. J/ o8 }            }
            else ECHO("\t %s:  %s - POM_instance_exists: true\n",
                variable_name, uid);
        }
        else ECHO("\t %s - POM_instance_exists: false \n", variable_name);
        if(uid) MEM_free(uid);
  Z) R; [2 d$ Y. ?' l7 C    }
0 G, t. t' k/ V# ?    return (exists_in_db);
- R0 ^8 ?, a  s* s4 t6 k}
  L% Q  }" c" d