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

admin

8 z$ u* V; Q! u8 d& w! cTeamcenter二次开发源码分享：判断对象是否存在在数据库中

#include <TC/tc_startup.h>
#include <pom/pom/pom.h>
#include <ITK/mem.h>
! l7 ]4 Y: k* B9 Z& e#include <tccore/workspaceobject.h>
7 D$ \1 T% T9 T2 i
1 Y9 }. \3 v9 d, A, ]logical is_instance_in_database(char *variable_name, tag_t object)
8 ~2 q7 _; C1 H8 }( U{
: w, w5 n2 Y9 V  I5 f# |$ C" z( `$ e    logical exists_in_db = FALSE;
9 _# U$ `, u( P' D7 }. Z$ n) J    if(object == NULLTAG) ECHO("\t %s: NULLTAG \n", variable_name);
# v8 f/ ]$ _- P5 H# m  h& W. E    else
3 c, y6 v0 e# p$ w: t    {
        char *uid = NULL;
        ITK__convert_tag_to_uid(object, &uid);
2 S/ m- {1 n3 L3 P/ {! p2 m        POM_instance_exists(object, &exists_in_db);
( I9 O" Q9 S3 W: u1 I        if(exists_in_db == TRUE)
        {
            if(is_WorkspaceObject(object) )
# G  q# g0 J1 @+ D9 }9 U/ A            {
9 ^" `" q3 K% q                char *object_id = NULL;
                IFERR_REPORT(WSOM_ask_object_id_string(object, &object_id));
! j; }4 C6 h( U. E                char *object_type   = NULL;
                IFERR_REPORT(WSOM_ask_object_type2(object, &object_type));
                ECHO("\t %s: %s - POM_instance_exists: true %s (%s)\n",
: i" K/ |3 A! Y9 u+ B3 L                    variable_name, uid, object_id, object_type);
                if(object_id) MEM_free(object_id);
( F7 T' \" u6 X' h1 I2 Y! h( e                if(object_type) MEM_free(object_type);
$ }9 Q# R$ b2 s& l) V            }
            else ECHO("\t %s:  %s - POM_instance_exists: true\n",
                variable_name, uid);
2 p, s( d  q6 ?        }
) u. B, l+ V; m        else ECHO("\t %s - POM_instance_exists: false \n", variable_name);
/ P  \$ ?# M. N        if(uid) MEM_free(uid);
    }
    return (exists_in_db);
! U4 F& o& D  ^. o1 m}