我编的这个程序主要是要生成一个长方体在上面打一个沉头孔，

xuexi_ug

我编的这个程序主要是要生成一个长方体在上面打一个沉头孔，
程序编辑没问题，就是在ug显示时，能出现长方体，就是出现不了沉头孔

2 O' r; H; W1 m0 q

" W# F7 |, ?3 y7 J0 J. i5 R
int SOLID_PLATE_Create_BLOCK(PartParameter *p_part_para,tag_t *m_block_tag)
! E/ b4 `' G1 W1 ?/ v; O1 A{
  
   double corner_pt[3];
+ N$ o& D6 x8 Z5 n0 d' Z7 M& i    int  err,sig=15;
2 ~7 y  C& r, O9 M: L- e0 x    char message[200];
$ s( c) P7 A) r6 M0 m/ }    char len1[120],len2[120],len3[120];
   
4 d  q( c$ y* H# E" `5 t   
    char *block_len[3]={len1,len2,len3};
    gcvt(p_part_para->L,sig,len1);
    gcvt(p_part_para->W,sig,len2);
5 F0 a! T1 }6 r0 h' N4 ?; U    gcvt(p_part_para->H,sig,len3);
$ c. M9 v$ Y, ^8 ~- f" H* b    corner_pt[0]=-(p_part_para->L*0.5);
9 B5 {- {" q: G: g, w( w1 C, {- a    corner_pt[1]=-(p_part_para->W*0.5);
    UF_LAYER_set_status(101,UF_LAYER_ACTIVE_LAYER);
* D" w+ [2 R3 b5 PUF_LAYER_set_status(1,UF_LAYER_WORK_LAYER);
  M% k# j% Q" ~8 X7 `err=UF_MODL_create_block(UF_NULLSIGN,NULL_TAG,corner_pt,block_len,m_block_tag);
    if(err!=0)
{
8 Y; u; |# k/ Q* K* JUF_get_fail_message( err,message);
uc1601(message,1);
return err;
- d: R% J% T$ _6 n" q, }1 h+ e& C}   
return err;
}
int SOLID_PLATE_Create_Hole(PartParameter *p_part_para,tag_t m_block_tag,tag_t *p_hole_tag)
5 R" ~) p0 h' Z& v0 ?% k{
4 W; O0 X% n* @" L8 ^uf_list_p_t face_list;
! w3 R. r- _% @9 C! {tag_t       body_tag;
) S" X$ S" E7 d- B# c. Nint         body_type,sub_type,sig=50;
* q/ r5 T! ]4 u* |% ]tag_t       bplanes[256];
, v8 I: |( j3 L7 Ddouble      point[3],dir[3],box[6],direction[3] = {0.0,0.0,10.0};
double      face_radius,rad_data,orgin[3];
2 m! \$ a7 g! Q$ d# Tint         i,norm_dir,type,is_parallel;
) c! O3 _, S$ W7 ]' oint         list_num=0,count=0,err;
char        diamf[256],diams[256],depthf[256],depths[256];
   
orgin[0]=-(p_part_para->W1*0.5);
    orgin[1]=p_part_para->L1*0.5;
    orgin[2]=0;
% K# k$ N4 I0 C4 |    UF_initialize( );
% J/ L4 k0 m. g    UF_MODL_ask_feat_body(m_block_tag,&body_tag);
, H, {' T( Z! G) P2 l  `      
" q" e: ]. t: BUF_OBJ_ask_type_and_subtype(body_tag,&body_type,&sub_type);
if(body_type==UF_solid_type&&sub_type==UF_solid_body_subtype)
5 p$ u( n# |8 ]' {$ w* O; c{
8 `( P6 y" Z5 B5 K2 g  tag_t face_object;
  UF_MODL_ask_body_faces(body_tag,&face_list);
4 t# `$ A) @0 B$ i- C7 y  UF_MODL_ask_list_count(face_list,&list_num);
  for(i=0;i<list_num;i++)
  {
   UF_MODL_ask_list_item(face_list,i,&face_object);
   UF_MODL_ask_face_data(face_object,&type,point,dir,box,&face_radius,
* J" A! K. Z1 I. Q: n5 B    &rad_data,&norm_dir);
- R' Z, @+ L1 @2 X% ~/ W* _& ~   if(type==22)
; U" t2 f" A8 K" H, D: z/ J   {
    UF_VEC3_is_parallel(dir,direction,0.000001,&is_parallel);
6 X% D# ~$ z/ b% u5 N4 G- [. ]. r    if(is_parallel)
+ U" z. F, B1 J* M2 g, f    {
9 z: T4 l" \8 `0 U8 \; K  Q* E6 F     bplanes[count]=face_object;
3 ]" F; e- G7 [: h. t" S/ u! x     count++;
8 D: L8 d$ l$ e8 f; E2 f% A4 ~5 I& `    }
9 {" j' C9 X& C4 J/ T: V; P   }
  }
% w+ Y6 v0 ~% Y$ p  UF_MODL_delete_list(&face_list);
* V; b& ~6 W" Y) N+ {! E/ J) a}
else
{
  uc1601("没有找到打孔的平面，程序错误",1);
  return 1;
}
6 {. [, _6 ]1 L' o5 r6 T+ r3 U1 Y    diamf[0]='\0',diams[0]='\0',depthf[0]='\0',depths[0]='\0';
' t3 D8 L  P3 u6 jsprintf(diamf,"%lf",p_part_para->D1);
1 V6 [9 t% Z& {1 }! D2 Z( [sprintf(depthf,"%lf",p_part_para->H1);
sprintf(diams,"%lf",p_part_para->D2);
sprintf(depths,"%lf",p_part_para->H1);
1 a1 I  Q5 O+ [4 r
: V# y# m7 X# x! D  k, W     
" \8 h0 _& M$ W& h9 I, Ierr=UF_MODL_create_c_bore_hole(orgin,direction,diamf,depthf,diams,depths,"0",bplanes[1],bplanes[0],p_hole_tag);
if(err!=0)
: [  ~) {. N0 O$ \1 d! L7 Kerr=UF_MODL_create_c_bore_hole(orgin,direction,diamf,depthf,diams,depths,"0",bplanes[0],bplanes[1],p_hole_tag);
2 z' ^3 a0 v; C8 M1 ereturn err;
  C% c& j% |* l" i0 [6 |}

刘木南太狼

难道工具栏里的  打孔    不能满足要求吗？