【紧急求助】又来向各位高手请教！！！

mazhiguo

       我想熟悉一下剪切实体的命令，用一个平面去剪切一个圆柱体，编译和连接都没有问题，可就是不执行剪切操作！烦愁！::?
       例子非常的简单，而且Trim Body的函数也很简单。我用信息窗口检查剪切实体的标识为零，从而得知操作没有成功。麻烦大家帮我看看程序到底是哪里出错了？？？先行谢过了各位了！！！
  tag_t  plane1_tag;
  tag_t trim_body;
  tag_t cyl1_tag;
  double origin_point[3]={0.0,0.0,5.0};
  double pl1_normal[3]={0.0,0.0,1.0};
  UF_MODL_create_plane(origin_point, pl1_normal, [$plane1_tag)]
  double origin[3]={0,0,-25};
  char * height="50";
  char * diam1="20";
  double direction[3]={0,0,1};
  UF_MODL_create_cyl1(UF_NULLSIGN,origin,height,diam1,direction,[$cyl1_tag)]  
                                                       
   int direction_flag=1;
   UF_MODL_trim_body(cyl1_tag,plane1_tag,direction_flag,[$trim_body)]
   char msg[133];
   UF_UI_open_listing_window();
   sprintf(msg,"%d",trim_body);
   UF_UI_write_listing_window(msg);

zzz

mazhiguo