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

admin

& E2 u0 s/ f" o. DTeamcenter二次开发源码分享：判断对象是否存在在数据库中

6 E1 P5 q# p0 d! B#include <TC/tc_startup.h>
#include <pom/pom/pom.h>
! e7 N: k  T& A; G#include <ITK/mem.h>
, E) U+ z$ q' N! {& i2 n3 h' M#include <tccore/workspaceobject.h>
! j. y3 r; p% X4 C  p: ~
logical is_instance_in_database(char *variable_name, tag_t object)
' r* g( H- u9 P& b4 G  ?1 u# @{
+ b1 N" G7 _+ D6 z+ ?) C2 ~' A, K    logical exists_in_db = FALSE;
* w5 _0 n0 Y. `! M5 M' |    if(object == NULLTAG) ECHO("\t %s: NULLTAG \n", variable_name);
+ G, S3 W* S6 J& |* V) q, R    else
    {
: P3 u$ f- R8 g" {$ c/ I+ b        char *uid = NULL;
: w- t0 P- N, c% v" f- q2 Z: z        ITK__convert_tag_to_uid(object, &uid);
, t) _: R4 _! |, J, v, r* e7 D        POM_instance_exists(object, &exists_in_db);
! w* T, @& w  r5 B1 n& `        if(exists_in_db == TRUE)
        {
4 N: y7 L# m, T) X            if(is_WorkspaceObject(object) )
            {
                char *object_id = NULL;
                IFERR_REPORT(WSOM_ask_object_id_string(object, &object_id));
1 s7 r% @1 S; B9 i6 j4 q& o8 q+ B                char *object_type   = NULL;
1 X7 J2 U. [  f% ?                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);
6 `, l. u) n" U7 d  P. q                if(object_id) MEM_free(object_id);
: v" D/ F" K, e8 \/ W; |8 e                if(object_type) MEM_free(object_type);
            }
/ J9 \* g$ [% l, O7 }- h4 K            else ECHO("\t %s:  %s - POM_instance_exists: true\n",
                variable_name, uid);
        }
$ s0 Q+ x; |# U+ ^' J, I3 q        else ECHO("\t %s - POM_instance_exists: false \n", variable_name);
        if(uid) MEM_free(uid);
    }
    return (exists_in_db);
2 G$ i: T& {+ c% m* m}