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

admin

. U% b  R) U+ ^- y. YTeamcenter二次开发源码分享：判断对象是否存在在数据库中

. X$ K8 ^& t9 l: x- d! j* O& ^#include <TC/tc_startup.h>
. G% y3 o1 [7 i) v#include <pom/pom/pom.h>
3 m+ @7 a9 Z) ?; j) ^7 e#include <ITK/mem.h>
#include <tccore/workspaceobject.h>

logical is_instance_in_database(char *variable_name, tag_t object)
0 q, L) @" v. l# |{
% P7 e) U$ Y8 K, d1 E& R    logical exists_in_db = FALSE;
4 Q8 b; R- r; x3 O/ m% c    if(object == NULLTAG) ECHO("\t %s: NULLTAG \n", variable_name);
    else
, M7 `! i* [# t    {
. p* Z) V/ z' \3 H4 b! K        char *uid = NULL;
8 A8 Y' r9 w0 L( j+ t        ITK__convert_tag_to_uid(object, &uid);
        POM_instance_exists(object, &exists_in_db);
0 X  D  F/ Q2 D! u        if(exists_in_db == TRUE)
        {
            if(is_WorkspaceObject(object) )
            {
                char *object_id = NULL;
                IFERR_REPORT(WSOM_ask_object_id_string(object, &object_id));
9 C) _4 ?; C/ P* j' A5 @6 V                char *object_type   = NULL;
5 l: e& }) q& c5 X" [/ f) D                IFERR_REPORT(WSOM_ask_object_type2(object, &object_type));
5 A5 x) [  o, L: A8 C$ }$ z                ECHO("\t %s: %s - POM_instance_exists: true %s (%s)\n",
( J: X, _  p7 L' b                    variable_name, uid, object_id, object_type);
                if(object_id) MEM_free(object_id);
0 K$ ]" g( y# f* }0 Y0 W                if(object_type) MEM_free(object_type);
# I" {6 L1 p: S9 p3 b            }
            else ECHO("\t %s:  %s - POM_instance_exists: true\n",
                variable_name, uid);
        }
0 g! N( E, Z3 L+ N7 D8 W        else ECHO("\t %s - POM_instance_exists: false \n", variable_name);
        if(uid) MEM_free(uid);
    }
    return (exists_in_db);
}