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

admin

+ k! E+ v6 Q( S4 h4 B$ F/ KTeamcenter二次开发源码分享：判断对象是否存在在数据库中
) w7 E) l; m& ?4 j3 k  g
#include <TC/tc_startup.h>
#include <pom/pom/pom.h>
  c1 x3 G' @/ C4 e" n* [, b" S#include <ITK/mem.h>
#include <tccore/workspaceobject.h>

logical is_instance_in_database(char *variable_name, tag_t object)
{
    logical exists_in_db = FALSE;
. S- d. B5 Z: t    if(object == NULLTAG) ECHO("\t %s: NULLTAG \n", variable_name);
    else
    {
) l8 f  b5 t1 |* R        char *uid = NULL;
4 d$ O5 F/ a3 P: o+ b( F        ITK__convert_tag_to_uid(object, &uid);
        POM_instance_exists(object, &exists_in_db);
        if(exists_in_db == TRUE)
  e, d$ u# ~# |- I8 V5 L0 U        {
9 ?9 m5 A* e% T1 R1 F8 c: b            if(is_WorkspaceObject(object) )
7 H/ W2 z7 D+ n: D/ K            {
6 t! Y: J5 a1 O/ W9 P" s                char *object_id = NULL;
3 U5 g- J; |% N" n  b8 O                IFERR_REPORT(WSOM_ask_object_id_string(object, &object_id));
                char *object_type   = NULL;
% [$ v, \8 F& ]) \% p2 `6 Q                IFERR_REPORT(WSOM_ask_object_type2(object, &object_type));
; g8 {+ P3 N$ X% K7 P1 ^( k                ECHO("\t %s: %s - POM_instance_exists: true %s (%s)\n",
                    variable_name, uid, object_id, object_type);
- s7 j# C( G9 p9 Z+ ]1 K: x                if(object_id) MEM_free(object_id);
                if(object_type) MEM_free(object_type);
% ], v# @% ?5 V* F' i* t! ^            }
            else ECHO("\t %s:  %s - POM_instance_exists: true\n",
3 v4 B4 O2 P$ B- k3 ?9 M: S0 `7 G                variable_name, uid);
, f* k: Y% _* x2 y( j7 w9 G        }
        else ECHO("\t %s - POM_instance_exists: false \n", variable_name);
        if(uid) MEM_free(uid);
2 e. d+ K' Q7 {3 U3 n1 P2 R2 a    }
4 ~' a0 s" H4 V4 p/ T4 O    return (exists_in_db);
8 q8 X. K5 V' j5 L/ N}
; j' B' a  _- s6 a$ A1 p