API调用GRIP时 IDENT选择对话框无法显示问题！！

kanggeng

ug中运行时 提示在GRIP中IDENT处无法显示对话框，当时上一个操作对话框还在打开着 但我确实规定了return (UF_UI_CB_EXIT_DIALOG);关闭对话框的命令啊 ！请帮我看看程序！！
/ `$ }( c  L0 z1 aAPI中OK按钮的定义：
8 o9 m3 W( A7 x2 x: Jint BOTTLE_DESIGN_ok_cb ( int dialog_id,
7 `9 \% R  }  F! C- I7 b1 w: J             void * client_data,
- A% K. f: r, Q5 ^$ @! t% `             UF_STYLER_item_value_type_p_t callback_data)
{
     /* Make sure User Function is available. */  
* L1 L+ d5 M0 d9 G0 H  U7 t) n     if ( UF_initialize() != 0)
; e, ^9 I7 B; H& I          return ( UF_UI_CB_CONTINUE_DIALOG );
     /* ---- Enter your callback code here ----- */
% ~: ?! @2 y1 v" Q    UF_PART_save();
  int scope=0;
  int mode=1;
2 m& F' _. v  k  tag_t part;
$ A3 s5 M6 t  t2 u& X& U: i6 `  UF_PART_close(part,scope,mode);    /*蓝色部分是关闭并保存上一个部件，然后再把几个参数给GRIP调用并建模*/
: O5 Z9 G* l$ x! d  \$ y6 @   int i;
- L7 Q* x  s7 v5 h/ r     write_para(dialog_id);
# F4 q; \/ S: h, F. g6 M9 A  const char env[255]="UGII_USER_DIR";
+ W( G- R4 e3 ~- r6 M( S( b" T  char *basedir=NULL;
  basedir=getenv(env);
  
  char dir[100];
  strcpy(dir,basedir);
+ S: X  |; c, [4 _1 U2 d7 M: A  strcat(dir,\\grip\\mentou.grx);
   
  char *grip_exe=dir;
  int status;
  int grip_arg_count=4;
/ X' A7 b& b, V5 D     UF_args_t grip_arg_list[4];
( ]4 p8 N5 E9 L; Q; G6 r  d3 ]
     grip_arg_list[0].type=UF_TYPE_DOUBLE;
     grip_arg_list[0].length=0;
2 _! Z( K' Y# N! W" h     grip_arg_list[0].address=&data[0].value.real;
7 S& Z0 S2 V& D+ `+ \  grip_arg_list[1].type=UF_TYPE_DOUBLE;
     grip_arg_list[1].length=0;
. A# P8 T" z2 I. N" v% D; ?     grip_arg_list[1].address=&data[1].value.real;
3 h3 D- t" Q4 U* A& i, m% F; f4 d  grip_arg_list[2].type=UF_TYPE_DOUBLE;
2 @- y$ E% ?) ^" d& A/ M1 q! K     grip_arg_list[2].length=0;
5 @$ x8 o+ t/ Z; E: B8 c     grip_arg_list[2].address=&data[2].value.real;
   grip_arg_list[3].type=UF_TYPE_DOUBLE;
. Z0 M4 F5 `! a9 z* r     grip_arg_list[3].length=0;
     grip_arg_list[3].address=&data[3].value.real;
      
     status=UF_call_grip(grip_exe,grip_arg_count,grip_arg_list);
# @% P( {9 x" `7 N& Q     UF_terminate ();
0 ~6 q* u- K' y    /* Callback acknowledged, terminate dialog             */
    /* It is STRONGLY recommended that you exit your       */
, l- h% x* D5 w5 ?# O) W! W    /* callback with UF_UI_CB_EXIT_DIALOG in a ok callback.*/
    /* return ( UF_UI_CB_EXIT_DIALOG );                    */
6 Z8 k- N3 \: t9 z    return (UF_UI_CB_EXIT_DIALOG);                           
* @7 `" w# d( L: `0 @}
void write_para(int dialog_id)
/ ?8 e& @+ k0 o* p{
  data[0].item_attr=UF_STYLER_VALUE;
8 N; Y, J) C/ `$ e7 r* s  data[0].item_id=BOTTLE_DESIGN_REAL_DMAX;
* x& F, C+ j* [     UF_STYLER_ask_value(dialog_id,&data[0]);
+ f$ J% N9 O6 F9 |3 B/ r  data[1].item_attr=UF_STYLER_VALUE;
  data[1].item_id=BOTTLE_DESIGN_REAL_DMIN;
     UF_STYLER_ask_value(dialog_id,&data[1]);
  data[2].item_attr=UF_STYLER_VALUE;
  data[2].item_id=BOTTLE_DESIGN_REAL_B;
     UF_STYLER_ask_value(dialog_id,&data[2]);
  data[3].item_attr=UF_STYLER_VALUE;
% X. ?& l: b8 a- w9 C# }' m) N; q  data[3].item_id=BOTTLE_DESIGN_REAL_HF;
& Y% M( ^! k. L- i     UF_STYLER_ask_value(dialog_id,&data[3]);
}

GRIP部分代码（打开一个部件，在此部件上减实体添特征，有一个IDENT选择）
number/b,dmax,dmin,df,da,hf
entity/org,org1,org2
5 n$ h- k( t! @, O, jufargs/b,dmax,dmin,hf
+ p$ j# r9 r) `/ ^7 p. Tda=(dmin+dmax)/2
, g# W8 d6 [" }& F  Edf=b*da
& y& ?8 \* Z- l% B  r# V' p$ U. Yfetch/part,'D:\\model\\part\\mentou'
7 b; D6 ]5 O* S* nl10:
5 p9 J* g% c4 b9 l, x) c( oident/'选择实体',org,resp
jump/l10:,trm:,,resp
3 E; D, n+ ^; z0 B0 R+ r0 X! porg1=solcyl/origin,0,0,0,height,hf,diamtr,df
& u+ f  L0 n5 X9 korg2=subtra/org,with,org1
4 D) ]. E& }# X( I2 K5 strm:
. [3 Q, }9 a# V) F7 p& T# Shalt