求助：各位大大 谁有UG拉伸的源代码！！谢了

   如题！！我的信箱是nuaaya@163.com

double l1_endpt1[3] = {400,0,128.69*5};
  double l1_endpt2[3] = {192*5,0,218.74*5};
  double l2_endpt1[3] = {192*5,0,218.74*5};
  double l2_endpt2[3] = {286.51*5,0,222*5};
  double l3_endpt1[3] = {286.51*5,0,222*5};
  double l3_endpt2[3] = {280*5,0,25};
  double l4_endpt1[3] = {280*5,0,25};
  double l4_endpt2[3] = {94.62*5,0,35};
  double l5_endpt1[3] = {94.62*5,0,35};
  double l5_endpt2[3] = {400,0,128.69*5};
  
  double direction[3] = {0.0,1.0,0.0};
  double ref_pt[3];
  char *part_name = "door";
  char *taper_angle = "0.0";
  char *limit1[2] = {"-880", "-750"};
  int english_units = 2, i, count = 5;
  tag_t objarray[6], part;
  uf_list_p_t loop_list, features;
  UF_FEATURE_SIGN create = UF_NULLSIGN;
  UF_CURVE_line_t line1, line2, line3, line4, line5;
  
  line1.start_point[0] = l1_endpt1[0];
  line1.start_point[1] = l1_endpt1[1];
  line1.start_point[2] = l1_endpt1[2];
  line1.end_point[0]   = l1_endpt2[0];
  line1.end_point[1]   = l1_endpt2[1];
  line1.end_point[2]   = l1_endpt2[2];
  line2.start_point[0] = l2_endpt1[0];
  line2.start_point[1] = l2_endpt1[1];
  line2.start_point[2] = l2_endpt1[2];
  line2.end_point[0]   = l2_endpt2[0];
  line2.end_point[1]   = l2_endpt2[1];
  line2.end_point[2]   = l2_endpt2[2];
  line3.start_point[0] = l3_endpt1[0];
  line3.start_point[1] = l3_endpt1[1];
  line3.start_point[2] = l3_endpt1[2];
  line3.end_point[0]   = l3_endpt2[0];
  line3.end_point[1]   = l3_endpt2[1];
  line3.end_point[2]   = l3_endpt2[2];
  
  line4.start_point[0] = l4_endpt1[0];
  line4.start_point[1] = l4_endpt1[1];
  line4.start_point[2] = l4_endpt1[2];
  line4.end_point[0]   = l4_endpt2[0];
  line4.end_point[1]   = l4_endpt2[1];
  line4.end_point[2]   = l4_endpt2[2];
  line5.start_point[0] = l5_endpt1[0];
  line5.start_point[1] = l5_endpt1[1];
  line5.start_point[2] = l5_endpt1[2];
  line5.end_point[0]   = l5_endpt2[0];
  line5.end_point[1]   = l5_endpt2[1];
  line5.end_point[2]   = l5_endpt2[2];
  
  UF_CURVE_create_line([$line1,&objarray[0])]
  UF_CURVE_create_line([$line2,&objarray[1])]
  UF_CURVE_create_line([$line3,&objarray[2])]
  UF_CURVE_create_line([$line4,&objarray[3])]
  UF_CURVE_create_line([$line5,&objarray[4])]
   
  UF_MODL_create_list([$loop_list)]
  for(i = 0; i < count; i++) {
    UF_MODL_put_list_item(loop_list, objarray);
  }
  UF_MODL_create_extruded(loop_list, taper_angle, limit1,
                          ref_pt, direction, create, [$features)]

   非常感谢！！

不用客气,
我也是在磕磕碰碰中学习,
感同身受很多高手的帮助,
大家一起进步是最好的.