求曲线长度的程序，各位帮忙看看啊，那里出问题了？

214152df

我看了，求曲线程度的UF_CURVE_ask_arc_length这个函数，但是我写了后却没有用啊，求指教，我是新手，也不知道程序对还是不对，
$ Q! l: B6 S) Y7 U7 s        UpdateData(true);
        tag_t part_tag;
: J; C3 |, O  p7 w1 B        UF_PART_new("1",1,&part_tag);
6 h. @' w. h: g7 t9 Q' h$ b; F. y1 {        tag_t line_tag;
        UF_CURVE_line_t line_coords;
        line_coords.start_point[0]=x0;
        line_coords.start_point[1]=y0;
        line_coords.start_point[2]=z0;
( q: g6 m3 G2 q) u" d) p! F        line_coords.end_point[0]=x1;
        line_coords.end_point[1]=y1;
  Z( l! l& g9 O/ y" W2 V5 m" m        line_coords.end_point[2]=z1;
        UF_CURVE_create_line(&line_coords,&line_tag);//生成直线
5 h0 ^! U+ _& J3 w
        char buffer[UF_UI_MAX_STRING_LEN];
    double parm;
        parm=0;
* T" s& U0 ]! w        double point[3];
        point[0]=x0;
2 K9 k* ]: C/ O, r( z        point[1]=y0;
        point[2]=z0;
3 A3 H/ P/ _6 G4 Z# O/ H        double tangent[3], p_norm[3], b_norm[3], torsion, rad_of_cur;
        UF_MODL_ask_curve_props(line_tag,parm,point,tangent,p_norm,b_norm,&torsion,&rad_of_cur);
( q9 d0 W; ~8 C* g7 k% I& b) p    double point1[3];
" }# n- d$ q: ~. A  l4 j$ |        point1[0]=x1;
$ q6 h5 T) n2 ]. L  o9 f: M        point1[1]=y1;
        point1[2]=z1;
8 _  [- M5 O2 y6 X4 f        UF_MODL_ask_curve_props(line_tag,parm,point1,tangent,p_norm,b_norm,&torsion,&rad_of_cur);
6 p5 {' M0 }; _6 b# b$ J( y2 c/ a7 w: s6 x
        tag_t curve_tag;
5 T' v' k' }7 E! H$ n3 o    curve_tag=line_tag;
+ G9 p/ Y# v7 l( q! f+ _+ T        double start_param;
        start_param=0.0;
        double end_param;
( |+ \- n1 m' Z4 Z, ]% e1 O        end_param=1.0;
( v- t: k. g8 O& V        UF_MODL_units_t unit_flag;
: U( d! o- w3 k9 @' @        unit_flag=UF_MODL_UNITS_PART;
  h) V( T' a5 O5 j        double *arc_length;
        UF_CURVE_ask_arc_length(curve_tag,start_param,end_param,unit_flag,arc_length);//计算曲线长度

0 J; K6 }/ {9 B7 i- ^    char   meassage[133];
    sprintf(meassage, "%f\n",arc_length);  
+ X, Q0 m& Y9 t3 W8 e1 c    UF_UI_write_listing_window(meassage);
$ @+ n9 E( [% p) z. q: J, `% m/ {
        ShowWindow(SW_MINIMIZE);