This example shows a function that finds the matrix that describes
the position of an assembly component in its parent assembly.

/*====================================================================*\
Function : UserAsmcompTransfGet()
Purpose : Find the transformation matrix of the specified component
\*====================================================================*/
int UserAsmcompTransfGet()
{
 ProError status;
 ProMdl model;
 int nb_sel, i;
 ProMatrix matrix;
 ProAsmcomppath comp_path;
 ProIdTable comp_id_table;
 ProSelection *sel_list,selection;
 ProModelitem sel_obj;
 ProFeature feature;
 ProFeattypeftype;
 FILE *fp_out=NULL;
 ProName w_name, wfile_name;
 ProCharName name;
 status = ProSelect ("prt_or_asm",1,NULL,NULL,NULL,NULL,
 &sel_list,&nb_sel);
 ERROR_CHECK("UserAsmcompTransfGet","ProSelect",status);
 if (status == PRO_TK_NO_ERROR)
 {
 if (nb_sel > 0)
 {
 status = ProSelectionModelitemGet (sel_list[0],&sel_obj);
 ERROR_CHECK("UserAsmcompTransfGet","ProSelectionModelitemGet",
 status);
 status = ProSelectionHighlight (sel_list[0],PRO_COLOR_ERROR);
 ERROR_CHECK("UserAsmcompTransfGet","ProSelectionHighlight",
 status);
 status = ProSelectionAsmcomppathGet(sel_list[0],&comp_path);
 ERROR_CHECK("UserAsmcompTransfGet","ProSelectionAsmcomppathGet",
 status);
 if (status != PRO_TK_NO_ERROR) return (PRO_TK_GENERAL_ERROR);
 status = ProAsmcomppathTrfGet (&comp_path,PRO_B_TRUE,matrix);
 ERROR_CHECK("UserAsmcompTransfGet","ProAsmcomppathTrfGet",
 status);
 if (status != PRO_TK_NO_ERROR) return (PRO_TK_GENERAL_ERROR);
 status = ProAsmcomppathMdlGet(&comp_path,&model);
 ERROR_CHECK("UserAsmcompTransfGet","ProAsmcomppathMdlGet",
 status);
 if (status != PRO_TK_NO_ERROR) return (PRO_TK_GENERAL_ERROR);

ProMdlNameGet(model,w_name);
 ProWstringToString(name,w_name);
 fp_out = PTApplsUnicodeFopen("rptfile.txt", "w");
 ProTKFprintf(fp_out, " ------ Component Location ------ \n\n");
 ProTKFprintf(fp_out, "Component name : %s\n\n",name);
 ProTKFprintf(fp_out, "Matrix :\n\n");
 for (i=0 ; i<4 ; i++)
 ProTKFprintf(fp_out, "%f\t%f\t%f\t%f\n",
 matrix[i][0],matrix[i][1],
 matrix[i][2],matrix[i][3]);
 fclose(fp_out);
 ProStringToWstring(w_name,"rptfile.txt");
 status = ProInfoWindowDisplay (w_name,NULL,NULL);
 ERROR_CHECK("UserAsmcompTransfGet","ProInfoWindowDisplay",
 status);
 if (status != PRO_TK_NO_ERROR) return (-1);
 }
 }
 return (PRO_TK_NO_ERROR);
}