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

admin

Teamcenter二次开发源码分享：判断对象是否存在在数据库中
6 \2 C( K& Y, I  D! \
#include <TC/tc_startup.h>
#include <pom/pom/pom.h>
4 l( R+ U0 W/ a) ?8 ?: w#include <ITK/mem.h>
' H7 q% t* t+ W#include <tccore/workspaceobject.h>

logical is_instance_in_database(char *variable_name, tag_t object)
{
6 X: J! D" o& U) M. b    logical exists_in_db = FALSE;
: s1 F6 U6 r; Q+ O0 ?    if(object == NULLTAG) ECHO("\t %s: NULLTAG \n", variable_name);
    else
    {
. ?: u3 Q! K7 O7 a! e        char *uid = NULL;
        ITK__convert_tag_to_uid(object, &uid);
        POM_instance_exists(object, &exists_in_db);
2 t9 D& i, |! ?1 b        if(exists_in_db == TRUE)
  X4 Z: p$ m$ N: Y) N( }2 {9 n/ }        {
; @$ f9 F* I1 y6 c; K* ]& b7 `            if(is_WorkspaceObject(object) )
            {
# d/ t$ \  j0 x                char *object_id = NULL;
# v* k, |/ Z; [                IFERR_REPORT(WSOM_ask_object_id_string(object, &object_id));
/ U$ [+ L' J: o. c# C& h                char *object_type   = NULL;
                IFERR_REPORT(WSOM_ask_object_type2(object, &object_type));
                ECHO("\t %s: %s - POM_instance_exists: true %s (%s)\n",
9 _" z- H, W' s, M- R                    variable_name, uid, object_id, object_type);
# @+ Y; \1 ^3 W& t1 F: s7 E! q                if(object_id) MEM_free(object_id);
                if(object_type) MEM_free(object_type);
, \; Q# O5 `! Y+ `4 Z            }
* e) X! G* j% g( v/ Q7 p+ F            else ECHO("\t %s:  %s - POM_instance_exists: true\n",
8 ?. d3 `. B1 w* t) Y* L* o. X5 P                variable_name, uid);
        }
        else ECHO("\t %s - POM_instance_exists: false \n", variable_name);
7 {5 r% I" ^# u# J; ^  `        if(uid) MEM_free(uid);
    }
    return (exists_in_db);
: b  z# K% Q1 Z7 ~9 u6 t. b* G& {3 T}
& K$ [* L" g- r0 I5 @/ {( m