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

admin

$ u8 Z' c5 i* B! o2 j2 k- D: L9 \Teamcenter二次开发源码分享：判断对象是否存在在数据库中

6 }# g; e& t* Y+ u& ~#include <TC/tc_startup.h>
#include <pom/pom/pom.h>
#include <ITK/mem.h>
#include <tccore/workspaceobject.h>

logical is_instance_in_database(char *variable_name, tag_t object)
) @' s4 _# U' t$ f) U2 R* ~' t{
    logical exists_in_db = FALSE;
    if(object == NULLTAG) ECHO("\t %s: NULLTAG \n", variable_name);
    else
4 H# ?% A; P8 R9 Y% _    {
0 I. f3 a0 `, o) H; i6 q- R2 G  a) o8 i        char *uid = NULL;
8 b$ V+ p4 Q+ l        ITK__convert_tag_to_uid(object, &uid);
* Y5 Z: j/ e  X6 f6 O        POM_instance_exists(object, &exists_in_db);
        if(exists_in_db == TRUE)
, j* v; x8 ?+ O1 O# m# `  }- j        {
            if(is_WorkspaceObject(object) )
8 z' ^3 g2 V7 v! v5 u+ j. ~            {
                char *object_id = NULL;
; A3 C0 A/ N7 T* p                IFERR_REPORT(WSOM_ask_object_id_string(object, &object_id));
" a* @/ e9 n& b                char *object_type   = NULL;
                IFERR_REPORT(WSOM_ask_object_type2(object, &object_type));
                ECHO("\t %s: %s - POM_instance_exists: true %s (%s)\n",
3 d& m7 N9 o, e- w                    variable_name, uid, object_id, object_type);
                if(object_id) MEM_free(object_id);
                if(object_type) MEM_free(object_type);
            }
5 }! ^! V- f$ s0 d* C% W            else ECHO("\t %s:  %s - POM_instance_exists: true\n",
% J/ d' _' j  y$ O  W6 V                variable_name, uid);
6 o! u% F4 U, x' g9 c        }
: Z  _& g4 }# S8 h8 C% g( ?        else ECHO("\t %s - POM_instance_exists: false \n", variable_name);
4 v9 V" N- @, d: B( l8 S        if(uid) MEM_free(uid);
    }
8 C2 ?( V. _# W+ [9 t2 F5 l: J    return (exists_in_db);
/ r" k# [* Q" Q! m3 O1 B2 W; y}