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

admin

6 I! }, L. V" l  ^1 c% a8 eTeamcenter二次开发源码分享：判断对象是否存在在数据库中

#include <TC/tc_startup.h>
#include <pom/pom/pom.h>
% \& ^# i! f/ X6 M" G. J3 T  U, e#include <ITK/mem.h>
' H6 U. }* `5 X5 y" A& [# s" D- [, _5 Z#include <tccore/workspaceobject.h>

8 k8 o/ p) W8 J' \$ f% vlogical is_instance_in_database(char *variable_name, tag_t object)
{
    logical exists_in_db = FALSE;
    if(object == NULLTAG) ECHO("\t %s: NULLTAG \n", variable_name);
. I" c" }" U/ E/ F' _, ?$ D    else
  ]3 [8 l3 ~' ?/ A6 Y8 `8 d    {
        char *uid = NULL;
        ITK__convert_tag_to_uid(object, &uid);
        POM_instance_exists(object, &exists_in_db);
        if(exists_in_db == TRUE)
4 ^4 J& O' v- a& ]! @        {
: J6 w/ {8 b( x: p1 X' }$ u; @            if(is_WorkspaceObject(object) )
0 c9 \1 I- t  s" ~$ C            {
  J* b4 m2 I7 u0 x" M( S                char *object_id = NULL;
; P# u6 M4 a+ G8 I$ R; \1 t+ `                IFERR_REPORT(WSOM_ask_object_id_string(object, &object_id));
7 `% _9 c% R0 n- _  Q                char *object_type   = NULL;
- x! \+ W: Y2 X. y! L6 n, n/ a                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);
' h* }* y4 }+ K) [5 N                if(object_id) MEM_free(object_id);
; C- D+ Y+ ]8 d3 L" x! |                if(object_type) MEM_free(object_type);
/ ?0 u. C, v: V# {/ n            }
            else ECHO("\t %s:  %s - POM_instance_exists: true\n",
# E6 M) Y0 s6 O* w) {+ K# c                variable_name, uid);
" [8 W- d1 b& \9 h, P0 `        }
        else ECHO("\t %s - POM_instance_exists: false \n", variable_name);
2 W7 [& r$ \; y8 N6 U2 a        if(uid) MEM_free(uid);
    }
+ ]% O' }3 C  q    return (exists_in_db);
}