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

admin

$ J) M+ W6 o  q. RTeamcenter二次开发源码分享：判断对象是否存在在数据库中

#include <TC/tc_startup.h>
5 A3 N. ]. i7 x( v#include <pom/pom/pom.h>
2 X# s& N# {! P5 K#include <ITK/mem.h>
#include <tccore/workspaceobject.h>

logical is_instance_in_database(char *variable_name, tag_t object)
, r4 G% j! I" d- ]{
5 j6 q) e% [; |. Z    logical exists_in_db = FALSE;
' D& u" \& ?2 t9 n$ i+ q: H; ?$ T    if(object == NULLTAG) ECHO("\t %s: NULLTAG \n", variable_name);
3 z; G" ], |4 X1 L$ u3 {    else
    {
        char *uid = NULL;
4 r: k; ?0 g: K/ `  m- l        ITK__convert_tag_to_uid(object, &uid);
        POM_instance_exists(object, &exists_in_db);
        if(exists_in_db == TRUE)
/ K/ e- ?2 \' S$ K        {
; {1 M' ^/ ]0 T3 H8 }# O; h            if(is_WorkspaceObject(object) )
7 z3 n! z& I7 Q' m; \+ c            {
& t5 @: [9 H! S" d                char *object_id = NULL;
8 y7 z( e+ S+ G' b& {2 [                IFERR_REPORT(WSOM_ask_object_id_string(object, &object_id));
, q  r0 [3 v# H4 Z                char *object_type   = NULL;
2 C$ A  F3 ]9 j. G& y2 W, ~                IFERR_REPORT(WSOM_ask_object_type2(object, &object_type));
                ECHO("\t %s: %s - POM_instance_exists: true %s (%s)\n",
; q  H  C2 d1 X" }! O7 N, Q                    variable_name, uid, object_id, object_type);
                if(object_id) MEM_free(object_id);
                if(object_type) MEM_free(object_type);
            }
            else ECHO("\t %s:  %s - POM_instance_exists: true\n",
6 Q* z) t- I0 Z8 O/ B4 |. ?                variable_name, uid);
( n" i9 [3 ~5 s3 k5 L9 K' Y. c        }
        else ECHO("\t %s - POM_instance_exists: false \n", variable_name);
        if(uid) MEM_free(uid);
- q% o0 l2 n. [    }
- F/ M6 M" L' D- Y: u3 }7 L, b    return (exists_in_db);
8 I$ e- h' E2 d* Y1 L+ I}