通过PK内核函数获取面的面积

f1405602

double AskFaceAreasByPK(tag_t face_tag, double tol)
) Z" V2 m6 u$ |; W{
        tag_t       ps_tag = NULL_TAG;
        double     amount[3] = { 0.0, 0.0, 0.0 };
        double     mass[3] = { 0.0, 0.0, 0.0 };
% S4 q/ R  E- O, z& E2 {        double     c_of_g[3] = { 0.0, 0.0, 0.0 };
, i% N$ F! ?  y        double     m_of_i[6] = { 0.0, 0.0, 0.0, 0.0, 0.0, 0.0 };
; J/ l/ A3 d2 Q* L# l- r; X        double     periphery[3] = { 0.0, 0.0, 0.0 };
) W; ?+ r: U) R  V0 |) P9 N- c        double     areas = 0.0;
        PK_FACE_t  pkFace = 0;
+ s7 V- }4 q6 @/ c# _& |        PK_TOPOL_eval_mass_props_o_t props_o_t;       
+ a4 M& y5 e9 @. m& A        if (NULL_TAG == face_tag || UF_PS_ask_ps_tag_of_object(face_tag, &ps_tag))
6 u, d' K0 B, K  \2 O" P0 R                return 0;
  M9 [3 G8 m/ F1 c5 U0 I# l8 T/ O        pkFace = ps_tag;
% g) v5 w4 |3 `) L5 [7 ]        if (tol < 0.99)
                tol = 0.99;
# g4 Q& R9 h% A0 M; l# n        if (tol > 1.0)
) i4 g: x/ r" E1 J                tol = 1.0;
        PK_TOPOL_eval_mass_props_o_m(props_o_t);
1 P  A) r  h' M7 w" v2 _        props_o_t.mass = PK_mass_c_of_g_c;
- _# i% {0 r; F7 W' w, W* j        PK_TOPOL_eval_mass_props(1, &pkFace, tol, &props_o_t, amount, mass, c_of_g, m_of_i, periphery);
7 R8 b8 k" m! z7 g" \! q. ^        areas = amount[0] * 1000.0 * 1000.0;
        return areas;
}